Excel VBA質問箱 IV

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

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


57984 / 76732 ←次へ | 前へ→

【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
3 hits

【23479】チェックボックスの値の設定について こぞう 05/3/24(木) 16:34 質問
【23482】Re:チェックボックスの値の設定について IROC 05/3/24(木) 16:52 回答
【23484】Re:チェックボックスの値の設定について こぞう 05/3/24(木) 16:57 お礼
【23483】Re:チェックボックスの値の設定について Jaka 05/3/24(木) 16:57 回答
【23485】Re:チェックボックスの値の設定について こぞう 05/3/24(木) 17:00 お礼

57984 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free