Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57990 / 76738

←次へ　｜　前へ→


	【23482】Re:チェックボックスの値の設定について

IROC - 05/3/24(木) 16:52 -


	引用なし

	パスワード

Private Sub CommandButton1_Click() Dim i As Long Dim a As String 　　For i = 1 To 3 　　　　If Me.Controls("CheckBox" & i).Value = True Then 　　　　　　Select Case i 　　　　　　Case 1 　　　　　　　 a = "あ-" 　　　　　　Case 2 　　　　　　　　a = a & "い-" 　　　　　　Case 3 　　　　　　　　a = a & "う-" 　　　　　　End Select 　　　　End If 　　Next i 　　　　If Right(a, 1) = "-" Then a = Left(a, Len(a) - 1) 　　　　MsgBox a End Sub