|
UserFormに名前の異なる複数のチェックボックスを定義して、各チェックボックスの状況をWorkSheetにUserForm上に表示されている順番にセットしていきたいのですが、以下の方法で行ったのですが、UserFormに表示されている順番にチェックボックスの状況をセットすることが出来ませんでした。
例えば、CheckBox1,CheckBox3,CheckBox2の順に1列に配置したとします(タブオーダーもCheckBox1,CheckBox3,CheckBox2です)。これを、以下の方法で取得すると、
CheckBox1,CheckBox2,CheckBox3の順で取得していくようです。何か、順番を決定する指定があるのでしょうか?
Private Sub コントロール文を使う方法_バラバラの場合()
Dim myCtrl As Control
Dim myCnt As Long
For Each myCtrl In Controls
If TypeName(myCtrl) = "CheckBox" Then
If myCtrl.Value Then myCnt = myCnt + 1
End If
Next
MsgBox myCnt
End Sub
|
|