| Вопрос: Помогите написать команду ! (P/S) | Добавлено: 09.06.09 14:31 |
Автор вопроса:  Александр
|
|
Совсем забыл. я написал команду так.
Private Sub CommandButton1_Click() Sheets("Лист1").Select Range("b2").Select Select Case "0+1" Case Is = 1 Application.Run "'Лист Microsoft Excel.xls'!Макрос5" Case Is = 2 Application.Run "'Лист Microsoft Excel.xls'!Макрос6" Case Is = 3 Application.Run "'Лист Microsoft Excel.xls'!Макрос7" End Select End Sub Что я не так сделал? Сразу хочу сказать что я до этого ни чего подобного не делал. Так что прошу не смеяться если тут все не правильно. |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #1 | Добавлено: 09.06.09 15:22 |
|
Что я не так сделал? Создал два топика. Не совсем удобно читать вопрос в одном, а код в другом. (Я и вопрос то уже забыл пока переходил) 
|
||
|
Номер ответа: 2 Автор ответа: Александр Вопросов: 3 Ответов: 2 |
Профиль | | #2 | Добавлено: 09.06.09 15:40 |
| AndreyMp Я понял. Но не писать же 3 тему. | ||
|
Номер ответа: 3 Автор ответа: Arvitaly ICQ: 301746136 Вопросов: 28 Ответов: 549 |
Web-сайт: Профиль | | #3 | Добавлено: 09.06.09 17:21 |
|
Select Case "0+1"
Это у тебя что выбирается И в чем вопрос собственно? |
||
|
Номер ответа: 4 Автор ответа: Unknown_MasterВопросов: 11 Ответов: 264 |
Профиль | | #4 | Добавлено: 09.06.09 23:14 |
|
После оператора Select Case, нужно указывать переменную, содержащую значение.
У тебя там написано 0+1, соответстенно будет всегда выбираться первое значение(будет срабатывать пятый макрос) |
||
|
Номер ответа: 5 Автор ответа: Unknown_MasterВопросов: 11 Ответов: 264 |
Профиль | | #5 | Добавлено: 09.06.09 23:16 |
| Хотя стоп. Не должен срабатывать ни один,т.к. "0+1" - это строка,а нужно чар или интегер | ||
|
Номер ответа: 6 Автор ответа: AndreyВопросов: 1 Ответов: 2 |
Профиль | | #6 | Добавлено: 11.06.09 13:56 |
|
||
Страница: 1 |