ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Help! ) I noobs ))
2 сообщений из 2, страница 1 из 1
Help! ) I noobs ))
    #36523292
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
У меня два вопроса в одном.
Как мне с генерировать ошибку в Excel VBA?

Данный код не хочет работать. Когда путь к frmGeneral.Show не доступен, так как ее нету, она скрыта от данного пользователя, (проще говоря она удалина у него из этой программы). ТО хочу что бы высвечивалась ошибка, когда задается запрос к этому окну в VBA.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Image1_Click()
On Error GoTo OpenError
    frmGeneral.Show vbModeless ' Навигационная понель.
Exit Sub
OpenError:
MsgBox "Данная команда не доступна!"
End Sub

И вторая проблема, эта с книгами WorkBook чето у меня с ними не ладится...
Тут, мне надо при копии всего листа ему присвоено имя(GeneralList). НА его копии были удалены некие элементы управления, а некоторые стали не доступны Enabled На false.
Дабы этот новый скопированный лист, стал уже некой отдельной частью от всей программы и многие вещи на нем не были доступны и естественно, при использовании его не выдавалось ошибок.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Cmd_SaveList_Click()
Dim Massge, response, title As String
Dim ButtonAsIcons As Integer

Massge = " Вы уверены что хотите сохранить график на новом листе?"
ButtonAsIcons = vbYesNo + vbQuestion
title = "Информационное сообщение "

response = MsgBox(Massge, ButtonAsIcons, title)
    If response = vbYes Then '  "Да" Создание копии листа продолжится.
        Unload frmGeneral
        GeneralList.Copy
    End If
End Sub

За ранее спасибо!
...
Рейтинг: 0 / 0
16.03.2010, 13:36
| Ответить | Цитировать | Написать  
Help! ) I noobs ))
    #36523317
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: lopuxi
> У меня два вопроса в одном.
> Как мне с генерировать ошибку в Excel VBA?

У объекта Err есть метод
[qout Object Browser]Sub Raise(Number As Long, [Source], [Description], [HelpFile], [HelpContext])
Member of VBA.ErrObject[/quot]

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
16.03.2010, 13:42
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Help! ) I noobs ))
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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