powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как написать такой макрос интересный?
5 сообщений из 5, страница 1 из 1
Как написать такой макрос интересный?
    #35721301
konsentus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Наро подскажите пожалуйста: Написать макрос:Вводится неопределенное заранее число цифр в столбик, в ячейке после них должно выводиться среднее арифметическое.
...
Рейтинг: 0 / 0
Как написать такой макрос интересный?
    #35721398
Фотография SQL_Lamer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
konsentus,

Все уже украдено до нас.
...
Рейтинг: 0 / 0
Как написать такой макрос интересный?
    #35721520
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
konsentus,

или так :P

Код: plaintext
1.
2.
3.
LastCell = ActiveSheet.Range("A65536").End(xlUp).Row
adr = Range(Cells(LastCell,  1 ), Cells(LastCell,  1 )).Address
Range(adr).Offset( 1 ) = "=AVERAGE($A$1:" + adr + ")"
...
Рейтинг: 0 / 0
Как написать такой макрос интересный?
    #35723486
konsentus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
birkkonsentus,

или так :P

Код: plaintext
1.
2.
3.
LastCell = ActiveSheet.Range("A65536").End(xlUp).Row
adr = Range(Cells(LastCell,  1 ), Cells(LastCell,  1 )).Address
Range(adr).Offset( 1 ) = "=AVERAGE($A$1:" + adr + ")"


Это куда такое писать? :)
...
Рейтинг: 0 / 0
Как написать такой макрос интересный?
    #35723797
birk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
konsentus,

Alt+F11
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как написать такой макрос интересный?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]