Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не задаётся пользовательский тип данных / 6 сообщений из 6, страница 1 из 1
29.05.2017, 08:05
    #39461208
xy1igan.one
xy1igan.one
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не задаётся пользовательский тип данных
Здравствуйте, я делаю контрольную. В нескольких заданиях нужно использовать пользовательский тип данных. У меня почему-то постоянно выдает ошибку. "Compile error: User-defined type not defined", выделяет строку желтым Sub zadacha20()
Подскажите пожалуйста, в чем проблема?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Public Type koord
x As Double
y As Double
End Type

Sub zadacha20()
Dim axy() As koord
Dim a As Integer, b As Integer, i As Integer, n As Integer, k As Integer
n = CInt(Val(InputBox("Ââåäèòå êîëè÷åñòâî òî÷åê")))
ReDim axy(n)
For i = 1 To n
  axy.x(i) = Cells(i, 1)
  axy.y(i) = Cells(i, 2)
Next i
a = CInt(Val(InputBox("Ââåäèòå Õ")))
b = CInt(Val(InputBox("Ââåäèòå Y")))
k = 0
For i = 1 To n
  If a * axy.x(i) + b < axy.y(i) Then
    k = k + 1
    Cells(i, 3) = "&#221;&#242;&#224; &#242;&#238;&#247;&#234;&#224; &#226;&#251;&#248;&#229; &#239;&#240;&#255;&#236;&#238;&#233;"
  End If
Next i
MsgBox ("&#206;&#225;&#249;&#229;&#229; &#234;&#238;&#235;&#232;&#247;&#229;&#241;&#242;&#226;&#238; &#242;&#238;&#247;&#229;&#234;, &#226;&#251;&#248;&#229; &#239;&#240;&#255;&#236;&#238;&#233; = " + Format(k, "# ##0"))
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2017, 08:30
    #39461219
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не задаётся пользовательский тип данных
xy1igan.one,

Код: vbnet
1.
2.
3.
4.
Public Type koord
x As Double
y As Double
End Type


Это надо разместить в модуле.

И поменяйте везде axy.x(i) на axy(i).x .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2017, 08:58
    #39461240
xy1igan.one
xy1igan.one
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не задаётся пользовательский тип данных
big-duke, спасибо за ответ.

Извините, но я не понимаю это где именно?
Я вроде как пишу листинг в модуле (для выполнения в качестве макроса).

Я ничего не поменял, но теперь новая ошибка: " Only comments may appear after End Sub, End Function, or End Property "
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2017, 09:00
    #39461242
xy1igan.one
xy1igan.one
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не задаётся пользовательский тип данных
big-duke,

Скрин моего экрана VBA (к слову о модуле):
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2017, 09:03
    #39461244
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не задаётся пользовательский тип данных
xy1igan.oneЯ ничего не поменял, но теперь новая ошибка: " Only comments may appear after End Sub, End Function, or End Property " Объявление типа разместите в начале модуля
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2017, 09:08
    #39461249
xy1igan.one
xy1igan.one
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не задаётся пользовательский тип данных
Shocker.Pro,

Спасибо! Заработало!
Как я сразу не догадался.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не задаётся пользовательский тип данных / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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