Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.10.2018, 12:03   #1
Leon307
Пользователь
 
Регистрация: 26.09.2018
Сообщений: 19
По умолчанию Вставка функции персчета массива в счетчик

Уважаемые форумчане!
У меня имеется массив, который изменяется при помощи формул, записанных в ячейках, счетчиком. В приведенном примере в ячейке А1 работает счетчик, а в ячейках С6:С16 производится вычисление, то есть умножение ячеек F6:F16 с округлением до 0 на показания счетчика. Как можно записать эту формулу
Код:
 =ОКРУГЛ($A$1*F6;0)
в макрос счетчика:
Код:
Public Sub Counter()

Dim CounterCell As Range, i As Long
Set CounterCell = ActiveSheet.Range("A1")
CounterCell.Value = 0
Application.ScreenUpdating = False
Do While CounterCell.Value < 1000000#
    CounterCell.Value = CounterCell.Value + 0.01
        
Loop

Application.ScreenUpdating = True

End Sub
чтобы персчет призводился при каждом изменении счетчика?
Leon307 вне форума Ответить с цитированием
Старый 02.10.2018, 12:12   #2
Leon307
Пользователь
 
Регистрация: 26.09.2018
Сообщений: 19
По умолчанию

Уважаемые форумчане!
У меня имеется массив, который изменяется при помощи формул, записанных в ячейках, счетчиком. В приведенном примере в ячейке А1 работает счетчик, а в ячейках С6:С16 производится вычисление, то есть умножение ячеек F6:F16 с округлением до 0 на показания счетчика. Как можно записать эту формулу
Код:
 =ОКРУГЛ($A$1*F6;0)
в макрос счетчика:
Код:
Public Sub Counter()

Dim CounterCell As Range, i As Long
Set CounterCell = ActiveSheet.Range("A1")
CounterCell.Value = 0
Application.ScreenUpdating = False
Do While CounterCell.Value < 1000000#
    CounterCell.Value = CounterCell.Value + 0.01
        
Loop

Application.ScreenUpdating = True

End Sub
чтобы персчет призводился при каждом изменении счетчика?
Leon307 вне форума Ответить с цитированием
Старый 02.10.2018, 13:29   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Leon307 Посмотреть сообщение
чтобы персчет призводился при каждом изменении счетчика?
так он и так при каждом изменении производится.
Может быть, Вы имеете в виду, чтобы его зрительно на листе сразу было видно?
Там уберите выключение вывода на экран:

Цитата:
Сообщение от Leon307 Посмотреть сообщение
Код:
Public Sub Counter()

Dim CounterCell As Range, i As Long
Set CounterCell = ActiveSheet.Range("A1")
CounterCell.Value = 0
Application.ScreenUpdating = False
Do While CounterCell.Value < 1000000#
    CounterCell.Value = CounterCell.Value + 0.01
        
Loop

Application.ScreenUpdating = True

End Sub
Serge_Bliznykov вне форума Ответить с цитированием
Старый 02.10.2018, 18:30   #4
Leon307
Пользователь
 
Регистрация: 26.09.2018
Сообщений: 19
По умолчанию

Спасибо, но я имею ввиду вставить формулу в макрос, а не писать ее в ячейках. Я пытался это сделать, типа функции Do, но у меня получается, что просчитывает массив только один раз, а мне надо, чтобы просчитывался массив при каждом изменении счетчика.
Leon307 вне форума Ответить с цитированием
Старый 02.10.2018, 20:17   #5
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

вот когда Вы сможете четко и точно определить что нужно, тогда Вам смогут чем-то помочь
а пока Ваши идеи у Вас в голове остальным на это, как бы это по-мягче, по-барабану
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 02.10.2018, 20:26   #6
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

понимаете, предыдущая тема под 30 сообщений
эта тема, на самом деле продолжение предыдущей...
с нормальной сформулированной темы:
сообщение #1: вопрос
сообщение #2: ответ
сообщение #3: спасибо! получилось
сообщение #4: его нет.- тема исчерпана

в других темах:
сообщение #47: а что разве из #1 не понятно?
сообщение #48: да е...сь сами с Вашей постановкой задачи...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 02.10.2018, 20:52   #7
Leon307
Пользователь
 
Регистрация: 26.09.2018
Сообщений: 19
По умолчанию

Спасибо за совет. Тема исчерпана. Вряд ли еще раз сюда обращусь...
Leon307 вне форума Ответить с цитированием
Старый 02.10.2018, 21:16   #8
Leon307
Пользователь
 
Регистрация: 26.09.2018
Сообщений: 19
По умолчанию

Всего-то посоветовать добавить строку в счетчик: [c6:c16].Value = [f6:f16*A1], как это сделали другте, и все! А разговоров-то....
Leon307 вне форума Ответить с цитированием
Старый 02.10.2018, 21:22   #9
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

когда я понимаю задачу - я ее решаю без разговоров, на форуме тысячи примеров таких решений
а когда не понимаю - я удивляюсь как так можно обьяснять?
и возникают все последующие разговоры
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вставка элементов массива Alina31 Паскаль, Turbo Pascal, PascalABC.NET 4 25.06.2013 13:02
Код заполнения массива, вставка в с++ skanku Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 04.06.2012 13:29
Счетчик элементов массива (для модели толпы) mrandrew1990 Общие вопросы Delphi 6 05.03.2012 18:58
Произведение элементов массива в функции (передача массива в функцию) (Delphi) Toxa16 Помощь студентам 1 23.04.2011 04:42
Вставка, объединение, перестановка элементов массива. Vadim123456 Помощь студентам 4 07.02.2010 16:45