Как заставить Excel слушаться команды Option Base 1

@AAVB · Регистрация: 18.06.2009

Author24 — интернет-сервис помощи студентам

Всем привет, Не могу понять почему не получается.
Пишу в разделе General Declarations:

Visual Basic

Option Base 1
Type Brand
    Name As String
    Week(53) As Double
End Type
Private Sub cmdGo_Click()
    Dim aaa As Brand
End Sub

Если потом посмотреть на aaa.week то массив будет начинаться с нулевого элемента. Почему? А главное как победить, чтобы начиналось с единицы.

@vlth · 07.09.2007, 17:19

Вставив в код строку Debug.Print LBound(aaa) , убеждаемся, что переменная aaa массивом не является, поэтому проблему решаем след. образом:
'Option Base 1
Type Brand
Name As String
Week(1 To 53) As Double
End Type

@AAVB · 07.09.2007, 19:30 **[ТС]**

Спасибо.

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	07.09.2007, 17:19	2
	Вставив в код строку Debug.Print LBound(aaa) , убеждаемся, что переменная aaa массивом не является, поэтому проблему решаем след. образом: 'Option Base 1 Type Brand Name As String Week(1 To 53) As Double End Type 0

@AAVB 0 / 0 / 0 Регистрация: 18.06.2009 Сообщений: 17
	07.09.2007, 19:30 [ТС]	3
	Спасибо. 0