Форум по VBA, Excel и Word
Почта для связи: Box1100@yandex.ru
Начало
Поиск
Вход
Регистрация
Форум по VBA, Excel и Word
»
VBA, Excel
»
VBA, макросы в Excel
»
макрос на вставку формулы в ячейку excel по цвету
Печать
Страницы:
1
[
2
]
Автор
Тема: макрос на вставку формулы в ячейку excel по цвету (Прочитано 135 раз)
Йен
Посетитель форума
Сообщений: 13
Re: макрос на вставку формулы в ячейку excel по цвету
«
Ответ #15 :
18 Февраль 2021, 11:20 »
в 5 ответе писал СУММЕСЛИ('файл2'!$A:$A;$A3;'файл2'!AI:AI)
Записан
Администратор
Administrator
Сообщений: 1787
Re: макрос на вставку формулы в ячейку excel по цвету
«
Ответ #16 :
18 Февраль 2021, 11:22 »
Формула в режиме R1C1 по-другому выглядит.
Записан
Йен
Посетитель форума
Сообщений: 13
Re: макрос на вставку формулы в ячейку excel по цвету
«
Ответ #17 :
18 Февраль 2021, 11:48 »
СУММЕСЛИ('[файл1.xlsb]лист1'!C1;RC1;'[файл1.xlsb]лист1'!C)
да вот так поменял
Записан
Администратор
Administrator
Сообщений: 1787
Re: макрос на вставку формулы в ячейку excel по цвету
«
Ответ #18 :
18 Февраль 2021, 16:17 »
Не совпадают две формулы. Вы не вручную сделайте формулу, а перейдите в режим R1C1 и скопируйте формулу на форум.
СУММЕСЛИ('файл2'!$A:$A;$A3;'файл2'!AI:AI)
СУММЕСЛИ('[файл1.xlsb]лист1'!C1;RC1;'[файл1.xlsb]лист1'!C)
Записан
Йен
Посетитель форума
Сообщений: 13
Re: макрос на вставку формулы в ячейку excel по цвету
«
Ответ #19 :
18 Февраль 2021, 18:02 »
СУММЕСЛИ('[файл1.xlsb]лист1'!C1;RC1;'[файл1.xlsb]лист1'!C) вот эта уже не вручную, это первая белая ячейка, куда нужно вставить макросу данную формулу
Записан
Администратор
Administrator
Сообщений: 1787
Re: макрос на вставку формулы в ячейку excel по цвету
«
Ответ #20 :
18 Февраль 2021, 18:39 »
С каким фрагментом должен работать макрос? Пользователь выделил фрагмент и затем запустит макрос?
Или макрос должен найти низ и право таблицы?
Записан
Йен
Посетитель форума
Сообщений: 13
Re: макрос на вставку формулы в ячейку excel по цвету
«
Ответ #21 :
19 Февраль 2021, 09:22 »
да, именно так - "Пользователь выделил фрагмент и затем запустит макрос"
Записан
Администратор
Administrator
Сообщений: 1787
Re: макрос на вставку формулы в ячейку excel по цвету
«
Ответ #22 :
19 Февраль 2021, 09:36 »
Написал вам письмо на почту с заголовком "Письмо с форума". Написал именно на почту, а не на форум.
Написал два письма.
Макрос
Sub Макрос()
Dim Ячейка As Range
' Отключение монитора и формул, чтобы ускорить макрос.
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
' Вставка формул в выделенный фрагмент в белые ячейки.
For Each Ячейка In Selection.Cells
If Ячейка.Interior.Pattern = xlNone Then
Ячейка.FormulaR1C1 = "=SUMIF([файл1.xlsb]Лист1!C1,RC1,[файл1.xlsb]Лист1!C)"
End If
Next Ячейка
' Включение того, что отключили.
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
' Сообщение.
MsgBox "Готово.", vbInformation
End Sub
Записан
Йен
Посетитель форума
Сообщений: 13
Re: макрос на вставку формулы в ячейку excel по цвету
«
Ответ #23 :
19 Февраль 2021, 14:44 »
Круто! все работает и быстро! 4 секунды вместо 4 часов! благодарность огромная))
Записан
Печать
Страницы:
1
[
2
]
Форум по VBA, Excel и Word
»
VBA, Excel
»
VBA, макросы в Excel
»
макрос на вставку формулы в ячейку excel по цвету