| Glock | Дата: Четверг, 05.01.2017, 15:52 | Сообщение # 1 |
|
Рядовой
Группа: Проверенные
Сообщений: 8
Статус: Offline
| Все здравствуйте. Есть макрос, чтобы данные формулы отображались на кнопке, но почему то текст не отображается. Имя кнопки правильное, пробовал на английском тоже не получается, что я делаю неправильно?
Формула =СЧЁТЗ(C:C)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Long
X = WorksheetFunction.CountA(Columns("C"))
ActiveSheet.DrawingObjects("Кнопка 1").Characters.text = X
End Sub
|
| |
| |
| Pelena | Дата: Четверг, 05.01.2017, 18:37 | Сообщение # 2 |
|
Рядовой
Группа: Проверенные
Сообщений: 10
Статус: Offline
| Здравствуйте.
Этот код должен быть в модуле листа. Правой кнопкой мыши по ярлыку листа -- Исходный текст -- сюда и вставить макрос
|
| |
| |
| Glock | Дата: Четверг, 05.01.2017, 19:27 | Сообщение # 3 |
|
Рядовой
Группа: Проверенные
Сообщений: 8
Статус: Offline
| Спасибо, всё понял.
|
| |
| |
