Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.10.2018, 07:33   #1
ЮрийPI118
 
Регистрация: 20.10.2018
Сообщений: 6
По умолчанию [VBA] при выполнении команды UserForm1.Hide возникает ошибка

Код:
Private Sub CommandButton1_Click()
Макрос3
End Sub
Sub Макрос1()
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim e As Double
Dim f As Double
Dim g As Double
Dim i As Double
Dim h As Double
Dim j As Double
pi = 3.14159265358979

Dim tb1 As Double, tb2 As Double, tb3 As Double, tb4 As Double, tb5 As Double, tb6 As Double, tb7 As Double, tb8 As Double, tb9 As Double, tb10 As Double

tb1 = (UserForm1.TextBox1.Text)
tb2 = (UserForm1.TextBox2.Text)
tb3 = (UserForm1.TextBox3.Text)
tb4 = (UserForm1.TextBox4.Text)
tb5 = (UserForm1.TextBox5.Text)
tb6 = (UserForm1.TextBox6.Text)
tb7 = (UserForm1.TextBox7.Text)
tb8 = (UserForm1.TextBox8.Text)
tb9 = (UserForm1.TextBox9.Text)
tb10 = (UserForm1.TextBox10.Text)

If IsNumeric(tb1) = False Then tb1 = "003"
If IsNumeric(tb2) = False Then tb2 = "003"
If IsNumeric(tb3) = False Then tb3 = "003"
If IsNumeric(tb4) = False Then tb4 = "003"
If IsNumeric(tb5) = False Then tb5 = "003"
If IsNumeric(tb6) = False Then tb6 = "003"
If IsNumeric(tb7) = False Then tb7 = "003"
If IsNumeric(tb8) = False Then tb8 = "003"
If IsNumeric(tb9) = False Then tb9 = "003"
If IsNumeric(tb10) = False Then tb10 = "003"
MsgBox "Ошибка ввода. Проверьте ваши значения! Замените 003 в ячейке с некорректным значением на корректное"

If tb1 = 0 And tb2 = 0 Then
tb1 = "004" And tb2 = "004"
End If
If tb3 = 0 And tb4 = 0 Then
tb3 = "004" And tb4 = "004"
End If
If tb5 = 0 And tb6 = 0 Then
tb5 = "004" And tb6 = "004"
End If
If tb7 = 0 And tb8 = 0 Then
tb7 = "004" And tb8 = "004"
End If
If tb9 = 0 And tb10 = 0 Then
tb9 = "004" And tb10 = "004"
End If

a = ((1 * 2 * tb2 + 5 * tb1 * 1) / (1 * 5 * tb1 + 1 * (-2) * tb2) * 180 / pi)
b = ((1 * 3 * tb4 + 2 * tb3 * 1) / (1 * 2 * tb3 + 1 * (-3) * tb4) * 180 / pi)
c = ((1 * 1 * tb6 + 3 * tb5 * 1) / (1 * 3 * tb2 + 1 * 1 * tb6) * 180 / pi)
d = ((1 * 2 * tb8 + 4 * tb7 * 1) / (1 * 4 * tb7 + 1 * (-2) * tb8) * 180 / pi)
e = ((1 * 2 * tb10 + 3 * tb9 * 1) / (1 * 3 * tb7 + 1 * (-2) * tb10) * 180 / pi)


If a < 0 Then f = 360 + a Else f = a
If b < 0 Then g = 360 + b Else g = b
If c < 0 Then i = 360 + c Else i = c
If d < 0 Then h = 360 + d Else h = d
If e < 0 Then j = 360 = e Else j = e

UserForm1.TextBox11.Text = f
UserForm1.TextBox12.Text = g
UserForm1.TextBox13.Text = i
UserForm1.TextBox14.Text = h
UserForm1.TextBox15.Text = j

End Sub
Sub Макрос3()
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
End
End Sub
Изображения
Тип файла: jpg Новый точечный рисунок.jpg (94.9 Кб, 119 просмотров)
Тип файла: jpg скрин ошибки.jpg (88.5 Кб, 145 просмотров)
ЮрийPI118 вне форума Ответить с цитированием
Старый 24.10.2018, 09:37   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Переводить сообщение об ошибке не пробовали?
Там написано, что у Вас открыта другая форма, которую нужно сперва закрыть или спрятать.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA Access Ошибка object reqired при выполнении запроса Ethex Помощь студентам 1 06.05.2017 23:29
Ошибка возникает при смене ПК Dima36668 Microsoft Office Excel 6 02.08.2014 11:49
Почему возникает ошибка при построении? с++ cemaru Visual C++ 1 13.04.2014 22:36
При создании объекта возникает ошибка yaprogrammist C# (си шарп) 2 20.02.2014 20:49
Ошибка и падение (выход) Excel при выполнении сложной программы на VBA Serge_Bliznykov Microsoft Office Excel 6 13.08.2008 16:50