フリーページ
全て
| カテゴリ未分類
| ミッションステートメントを作ろう
| 内緒で会社を作るわたしに50の質問
| ダイエット
| 神田語録
| 肥満・肥満児
| しょうが
| 花粉
| 脳力トレーニング
| 楽天 ベストバイ ワーストバイ
2024年05月14日
カテゴリ： カテゴリ未分類
Private Sub CommandButton1_Click()
Dim chkBoxes() As Control
Dim i As Integer
Dim j As Integer
Dim isChecked As Boolean
Dim index As Integer
isChecked = False
' 各大項目の小項目の数
Dim subItems() As Integer
' チェックボックスの数を合計して配列を初期化
Dim totalCheckboxes As Integer
totalCheckboxes = 0
For i = LBound(subItems) To UBound(subItems)
totalCheckboxes = totalCheckboxes + subItems(i)
Next i
ReDim chkBoxes(1 To totalCheckboxes)
' 配列にチェックボックスを格納
index = 1
For i = 1 To UBound(subItems) + 1
Set chkBoxes(index) = Me.Controls(i & "_" & j)
index = index + 1
Next j
Next i
' 配列内のチェックボックスを確認
If chkBoxes(i).Value = True Then
isChecked = True
Exit For
End If
Next i
' 全てのチェックボックスが未チェックの場合の処理
If Not isChecked Then
MsgBox "少なくとも一つのチェックボックスを選択してください。", vbExclamation, "選択エラー"
End If
End Sub
Dim chkBoxes() As Control
Dim i As Integer
Dim j As Integer
Dim isChecked As Boolean
Dim index As Integer
isChecked = False
' 各大項目の小項目の数
Dim subItems() As Integer
' チェックボックスの数を合計して配列を初期化
Dim totalCheckboxes As Integer
totalCheckboxes = 0
For i = LBound(subItems) To UBound(subItems)
totalCheckboxes = totalCheckboxes + subItems(i)
Next i
ReDim chkBoxes(1 To totalCheckboxes)
' 配列にチェックボックスを格納
index = 1
For i = 1 To UBound(subItems) + 1
Set chkBoxes(index) = Me.Controls(i & "_" & j)
index = index + 1
Next j
Next i
' 配列内のチェックボックスを確認
If chkBoxes(i).Value = True Then
isChecked = True
Exit For
End If
Next i
' 全てのチェックボックスが未チェックの場合の処理
If Not isChecked Then
MsgBox "少なくとも一つのチェックボックスを選択してください。", vbExclamation, "選択エラー"
End If
End Sub
お気に入りの記事を「いいね！」で応援しよう
【毎日開催】
15記事にいいね！で1ポイント
PR
キーワードサーチ
▼キーワード検索
Helio Japan
みなさん、花粉症対策ってどうしてます??
毎日がエヴリディ！
oyazy44さん
ドラマチックな映画… groomixさん
スッポンの達人 弥右ヱ門さん
アメリカ奮闘記 System of a Downさん
吉川裕一のオースト… 和歌山の風達人 ヒロさんさん
ドラマチックな映画… groomixさん
スッポンの達人 弥右ヱ門さん
アメリカ奮闘記 System of a Downさん
吉川裕一のオースト… 和歌山の風達人 ヒロさんさん
コメント新着
© Rakuten Group, Inc.
