Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel VBA, Select Case Default, с каких пор? / 3 сообщений из 3, страница 1 из 1
05.12.2013, 17:05
    #38490698
Диклевич Александр
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel VBA, Select Case Default, с каких пор?
Всю жизнь делал так
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
    Dim i As Long
    i = 1
    Select Case i
        Case 1
             'bla
        Case 2
             'do nothing
        Case Else
             'bla-bla
    End Select


недавно узнал, что можно так
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
    Dim i As Long
    i = 1
    Select Case i
        Case 1
             'bla
        Case 2
             'do nothing
        Case Default 'что за дефолт такой???????
             'bla-bla
    End Select


при этом компилятор не ругается (да, с Option Explicit), и документация молчит.
что за?
Код: vbnet
1.
Debug.Print Default

кажет 0. Почему 0?
может есть у кого ссылки на эту тему, чтобы знать в чем различия между Else и Default?
...
Рейтинг: 0 / 0
05.12.2013, 17:09
    #38490707
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel VBA, Select Case Default, с каких пор?
Про "правой кнопкой на объект и definition" что-нить слышали?

Const Default = 0
Member of stdole.LoadPictureConstants

можно еще написать Case vbRed
тоже ругаться не будет
...
Рейтинг: 0 / 0
05.12.2013, 17:18
    #38490727
Диклевич Александр
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel VBA, Select Case Default, с каких пор?
Shocker.Pro,

точно, подзабыл уже.
просто прислали файл с макросом, а там это.
видать джависты или сишники писали, у них там в switch default есть.
А тут вот и ошибка на ровном месте и не отловишь.

я уж было подумал в новом VBA такое ввели.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel VBA, Select Case Default, с каких пор? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]