フリーページ
全て
| カテゴリ未分類
| ミッションステートメントを作ろう
| 内緒で会社を作るわたしに50の質問
| ダイエット
| 神田語録
| 肥満・肥満児
| しょうが
| 花粉
| 脳力トレーニング
| 楽天 ベストバイ ワーストバイ
2024年05月14日
カテゴリ： カテゴリ未分類
Private Sub CommandButton1_Click()
Dim chkBoxes(1 To 49) As Control
Dim i As Integer
Dim isChecked As Boolean
isChecked = False
' チェックボックスを配列に格納
For i = 1 To 49
Set chkBoxes(i) = Me.Controls("Checkbox" & i)
Next i
For i = 1 To 49
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(1 To 49) As Control
Dim i As Integer
Dim isChecked As Boolean
isChecked = False
' チェックボックスを配列に格納
For i = 1 To 49
Set chkBoxes(i) = Me.Controls("Checkbox" & i)
Next i
For i = 1 To 49
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.
