Вопрос № 99362: Здравствуйте господа, я в VB новичок, так что не смейтесь.
Подскажите в чем проблема:
1) пишет type mismach - но оно понятно (текст+число), но если через рипит(2), то работает.
2) да и то уже не работает :-( , пишет процедура не определен...
Вопрос № 99.362
Здравствуйте господа, я в VB новичок, так что не смейтесь.
Подскажите в чем проблема:
1) пишет type mismach - но оно понятно (текст+число), но если через рипит(2), то работает.
2) да и то уже не работает :-( , пишет процедура не определена!
В чем дело???
Заранее благодарен.
Приложение:
Отправлен: 23.08.2007, 09:16
Вопрос задал: DaLi_Bor (статус: 3-ий класс)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Alexander N. Monastyrsky
Здравствуйте, DaLi_Bor!
Связка "Repeat ... Until" - это в Паскале...
В VB "do ... loop" "while ... wend"
Синтаксис:
Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop
ИЛИ так
Do
[statements]
[Exit Do]
[statements]
Loop [{While | Until} condition]
Приложение:
--------- Страшен Русский сервис, бессмысленный и беспощадный...
Ответ отправил: Alexander N. Monastyrsky (статус: 1-ый класс)
Ответ отправлен: 23.08.2007, 10:21
Отвечает: Nance
Здравствуйте, DaLi_Bor!
дело в том, что вы неправильно обращаетесь к ячейке, для того чтоб выделить ячейку А1 используйте запись Cells (1,1).select. и тогда все у Вас получится, я изменила код в вашем проложении, попробуйте.
Приложение:
Ответ отправила: Nance (статус: 7-ой класс)
Ответ отправлен: 23.08.2007, 17:27
Отвечает: Черников Игорь Владимирович
Здравствуйте, DaLi_Bor!
Вот тка должно быть:
1) For i = 1 To 30
Range("A" & i).Select
ActiveCell.FormulaR1C1 = i
Next i
2) Repeat
i = i + 1
Range("A" & i).Select
ActiveCell.FormulaR1C1 = i
While i < 30
Приложение:
--------- От каждого по способностям, каждому по труду
