| Вопрос: Пару вопросов по работе с меню в Excel | Добавлено: 07.05.05 14:50 |
Автор вопроса:  Den
|
| Ответы | Всего ответов: 19 |
|
Номер ответа: 16 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #16 | Добавлено: 10.05.05 16:34 |
| А где брал расшифровки констант, в справке ExcelVBA? Ведь xlWBATWorksheet интуитивно ни о чём не говорит. | ||
|
Номер ответа: 17 Автор ответа: ActiveX Вопросов: 0 Ответов: 73 |
Профиль | | #17 | Добавлено: 10.05.05 17:25 |
|
Строковое представление этой константы я как ни странно помнил, а числовое представление можно "увидеть" после ввода константы.
P.S. Вы можете использовать более привычную для Вас константу xlWorksheet Workbooks.Add xlWorksheet |
||
|
Номер ответа: 18 Автор ответа:  Den Вопросов: 3 Ответов: 5 |
Профиль | | #18 | Добавлено: 10.05.05 21:48 |
|
Все равно не работает!!! точнее работает но всевремя говорит что листа нет, при вот такой модификации
function IsThere(byval Where as workbook, byval SheetName as string) as boolean
on error resume next isthere=not where.worksheets(sheetname) is nothing If IsThere = False Then MsgBox ("нет листа" 
end function Я вот думаю может это потому что у меня лист и программа находяться в разных книгах? после вот такой модификации тоже ни че не работает Function IsThere() As Boolean On Error Resume Next IsThere = Not Workbooks("Мат.Анализ.xls" .Worksheets("КР" Is Nothing
If IsThere = True Then MsgBox ("нет листа"
End Function ????? И у меня еще вопрос поивился. Как можно в лист боксе огроничить кол-во выбранных элементов у меня их 3, а человек должен выбирать только 2, не больше не меньше! |
||
|
Номер ответа: 19 Автор ответа: ActiveXВопросов: 0 Ответов: 73 |
Профиль | | #19 | Добавлено: 11.05.05 19:13 |
|
Если при использовании этой функции, Вы получаете сообщение об отсутствии рабочего листа с указанным именем, то это может означать как минимум две вещи :
1) Его действительно нет 2) Рабочая книга закрыта (что более вероятно) Sub IsObjectWs() wb = "Beer.xls": ws = "Sheet1" MsgBox IIf(IsThere(wb, ws), "есть мерзавец", "нет его"
End Sub Function IsThere(wb, ws) As Boolean On Error Resume Next IsThere = IsObject(Workbooks(wb).Worksheets(ws)) End Function |
||