На листе excel расположены 15 флажков checkbox. Они выполняют выбор данных из соответствующих строк таблицы. Для каждого написан код

If CheckBox1.Value = True Then
nPk = nPk + 1
Vkk(nPk) = WsResult.Cells(1 + 2, 2)
Zpk(nPk) = WsResult.Cells(1 + 2, 3)
Rdk(nPk) = WsResult.Cells(1 + 2, 4)
End If
...
If CheckBox15.Value = True Then
nPk = nPk + 1
Vkk(nPk) = WsResult.Cells(15 + 2, 2)
Zpk(nPk) = WsResult.Cells(15 + 2, 3)
Rdk(nPk) = WsResult.Cells(15 + 2, 4)
End If
Это работает, но как упростить программу и сделать это в цикле?
Пробовал вариант
For i=1 to 15
If CheckBox(i).Value = True Then
nPk = nPk + 1
Vkk(nPk) = WsResult.Cells(i + 2, 2)
Zpk(nPk) = WsResult.Cells(i + 2, 3)
Rdk(nPk) = WsResult.Cells(i + 2, 4)
End If
next i
ругается во второй строке. Помогите разобраться с этим делом.

Цитата

ругается во второй строке

В приведенном коде нет номеров строк. Это раз. И два - тег "Код" для кого придуман??? исправь исходное сообщение.

На листе excel расположены 15 флажков checkbox. Они выполняют выбор данных из соответствующих строк таблицы. Для каждого написан код

Код

If CheckBox1.Value = True Then   nPk = nPk + 1   Vkk(nPk) = WsResult.Cells(1 + 2, 2)   Zpk(nPk) = WsResult.Cells(1 + 2, 3)   Rdk(nPk) = WsResult.Cells(1 + 2, 4) End If ... If CheckBox15.Value = True Then   nPk = nPk + 1   Vkk(nPk) = WsResult.Cells(15 + 2, 2)   Zpk(nPk) = WsResult.Cells(15 + 2, 3)   Rdk(nPk) = WsResult.Cells(15 + 2, 4) End If

Это работает, но как упростить программу и сделать это в цикле?
Пробовал вариант

Код

For i=1 to 15   If CheckBox(i).Value = True Then     nPk = nPk + 1     Vkk(nPk) = WsResult.Cells(i + 2, 2)     Zpk(nPk) = WsResult.Cells(i + 2, 3)     Rdk(nPk) = WsResult.Cells(i + 2, 4)   End If next i

ругается во второй строке. Помогите разобраться с этим делом.

вообще - то объекты перебираются For Each...Next. Но фиг знает где у него control. Самое простое это связать объект со строкой(ячейкой),а потом обрабатывать строки.

один из возможных вариантов:

Код

For i = 1 To 15 If ActiveSheet.Shapes("CheckBox" & CStr(i)).OLEFormat.Object.Object Then     Vkk(i) = WsResult.Cells(i + 2, 2)         Zpk(i) = WsResult.Cells(i + 2, 3)         Rdk(i) = WsResult.Cells(i + 2, 4)   End If Next

Вот держи:

Код

Sub getChecksValue()   Dim oc As Shape   For Each oc In ActiveSheet.Shapes     If oc.Type = msoFormControl Then       If oc.FormControlType = xlCheckBox Then         If oc.ControlFormat.Value = 1 Then            MsgBox "Checked `" & oc.Name & "` value is: " & oc.ControlFormat         End If       End If     End If   Next End Sub

javastic
Опа-опа!
А как сделать то же самое, только для

Код

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1")

?

javastic
И ещё вопрос вдогонку: как эти элементы выравнивать (любые, хоть ОЛЕ, хоть msoFormControl) по границе ячейки, добавляя их в цикле?

Я так думаю Range(следующая ячейка).Left

Staruha
А на каком месте какие координаты стоят? %)
CheckBoxes.Add(Range("E1").Next.Left, Range("E1").Next.Top, 49.5, 17.25).Select

javastic
Staruha

Дело в том, что до этого чекбоксы почему-то съезжали вниз. То есть, не печатались строго внутри ячеек, а постепенно смещались вниз (или вверх).

И ещё. Я заметил, что каждый раз при добавлении этих чекбоксов у них новые имена: Check Box номер. Так вот "номер" всегда с каждой последующей операцией увеличивается... Можно ли как-нибудь это запретить?

Цитата(Vidocq @ 2.12.2005, 11:24)

у них новые имена: Check Box номер.

у каждого элемента должно быть уникальное имя, поскольку при создании элемента ты его никак не называешь, то это происходит "автоматом" вышеописанным способом

likhobory
Каким образом я могу контролировать именование чекбоксов?
И кстати, почему после перезапуска процедуры (даже после перезапуска приложения) значение имен не обнуляется? Они так и продолжают хранится в памяти? Можно ли как-то принудительно их сбрасывать, чтоб они именовались " с начала" ?

Код

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1").Name = "MyName"

likhobory
Вроде бы разобрался.

Код

While rstLost.EOF = False         Cells(i, 1).Value = rstLost!artikel         Cells(i, 2).Value = rstLost!einheitid         Cells(i, 3).Value = rstLost!gebinde         Cells(i, 4).Value = rstLost!preis         Cells(i, 5).Value = rstLost!bemerkungen                  'ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, DisplayAsIcon:=False, Left:=Cells(i, 6).Left, Top:=Cells(i, 6).Top, Width:=Cells(i, 6).Width, Height:=Cells(i, 6).Height / 2).Select                  ActiveSheet.CheckBoxes.Add(Cells(i, 7).Left, Cells(i, 7).Top, 70, 17.25) = 0                  i = i + 1         rstLost.MoveNext     Wend     j = 2     For Each control In ActiveSheet.Shapes         If control.Type = msoFormControl Then             If control.FormControlType = xlCheckBox Then                         control.Name = j             End If         End If         j = j + 1     Next

А как сделать, чтоб имя присваивалось в while-цикле. Я пробовал так:

Код

While rstLost.EOF = False         Cells(i, 1).Value = rstLost!artikel         Cells(i, 2).Value = rstLost!einheitid         Cells(i, 3).Value = rstLost!gebinde         Cells(i, 4).Value = rstLost!preis         Cells(i, 5).Value = rstLost!bemerkungen                  'ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, DisplayAsIcon:=False, Left:=Cells(i, 6).Left, Top:=Cells(i, 6).Top, Width:=Cells(i, 6).Width, Height:=Cells(i, 6).Height / 2).Select                  ActiveSheet.CheckBoxes.Add(Cells(i, 7).Left, Cells(i, 7).Top, 70, 17.25) = 0                         If control.Type = msoFormControl Then             If control.FormControlType = xlCheckBox Then                 'If oc.ControlFormat.Value = 1 Then                     control.Name = i                 'End If             End If         End If i = i + 1 rstLost.MoveNext Wend

Ошибка исполнения: Object variable is not set