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

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

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 31.03.2015, 14:15   #1
Nekala
Пользователь
 
Регистрация: 19.02.2011
Сообщений: 25
По умолчанию expected end sub

Не могу понять в чем проблема, почему ошибка. Помогите, пожалуйста.
Вот код

Private Sub CommandButton1_Click()
Dim x As Integer
Dim a As Integer
Dim z As Single
Public Function MyNumOfDegr(Mynumb As Long, Optional MyVol As Long = 2) As Double
MyNumOfDegr = Mynumb ^ (1 / MyVol)
End Function
x = Val(TextBox1)
If x < 0 Or x = 0 Then
a = 1 + x * x * x * x
a = MyNumOfDegr(a, 3)
z = (1 + x * x) / (2 * a)
Label10.Caption = Str(z)
Else
z = 0
End If
End Sub
Nekala вне форума Ответить с цитированием
Старый 31.03.2015, 15:33   #2
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

В том что у вас Public Function MyNumOfDegr внутри макроса. Уберите его наружу и будет Вам счастье.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728
kuklp вне форума Ответить с цитированием
Старый 31.03.2015, 15:38   #3
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

или закройте End Sub-ом Private Sub CommandButton1_Click()
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
END expected but Function found Host-2013 Общие вопросы Delphi 20 27.02.2013 20:05
BEGIN expected but END found lypyotr Помощь студентам 4 09.11.2011 15:43
expected end but var found obsession Общие вопросы Delphi 7 10.05.2011 11:19
Определяет ошыбку end expected helena91 Паскаль, Turbo Pascal, PascalABC.NET 5 07.03.2011 20:05
expected END but : found qqanton Помощь студентам 2 31.10.2008 17:45