| Вопрос: вопрос по VB в Excel | Добавлено: 13.05.05 18:15 |
Автор вопроса:  johnny_t
|
|
не могу разобраться, в чём проблема, подробности в комментариях.
(нужно создать Sheet на него разместить кнопку, на неё повесить такую процедурку) Private Sub CommandButton1_Click() ' Необходимо программно задать формулу, которая ' обновляла бы ячейку (1,2) при изменении (1,1). ' При этом если значение в ячейке (1,1) пусто, то в (1,2) тоже должно быть ' пусто, а не "0". Dim strFormula As String Sheet1.Activate Sheet1.Cells(1, 1).Value = "1" strFormula = "=IF(Sheet1!A1 = " & Chr(34) & Chr(34) & ";" & Chr(34) & Chr(34) & ";Sheet1!A1)" Sheet1.Cells(1, 2).Formula = strFormula 'Формула формируется верно, однако судя по всему какая-то трабла с кавычками внутри формулы End Sub |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Дмит Вопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #1 | Добавлено: 13.05.05 19:29 |
|
Кавычки в норме. А оффис EN, если нет то:
Лист1.Cells(1, 2).FormulaLocal = "=Если(Лист1!A1 = " & Chr(34) & Chr(34) & ";" & Chr(34) & Chr(34) & ";Лист1!A1)" |
||
Страница: 1 |