Excel VBA質問箱 IV

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

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


10139 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【23479】チェックボックスの値の設定について
質問  こぞう  - 05/3/24(木) 16:34 -

引用なし
パスワード
   はじめまして。VBAがほぼ初心者な「こぞう」です。

早速ですが、ユーザフォームにチェックボックスを8個作成し、
項目は赤や青といった色を設定しています。
仕様としては、好きな色を選択してください(複数可)といったものです。

Excelシートには、一つのセルに選択された複数の色をセットし、
また、「赤-青-黄」と色と色の間には「ハイフン」をセットします。
(チェックがある数だけ一つのセルに表示(設定)したいです)

繰り返し文で添え字を使ってみようと試み、
HPなどで検索しましたが
どうもよくわかりませんでした。

どなたかご教授よろしくお願いいたします。

【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

【23483】Re:チェックボックスの値の設定について
回答  Jaka  - 05/3/24(木) 16:57 -

引用なし
パスワード
   こんにちは。
赤とか青ってどこに書いてあるのかわからないけど...。

st = Empty
For i = 1 To 8
  If Me.Controls("CheckBox" & i).Value Then
    st = st & "-" & Me.Controls("CheckBox" & i).Caption
  End If
Next
MsgBox Mid(st, 2)

【23484】Re:チェックボックスの値の設定について
お礼  こぞう  - 05/3/24(木) 16:57 -

引用なし
パスワード
   こぞうです☆

ありがとうございます!!

早速動かしてみます!!

【23485】Re:チェックボックスの値の設定について
お礼  こぞう  - 05/3/24(木) 17:00 -

引用なし
パスワード
   ▼Jaka さん:

jakaさんもありがとうございます!!

赤とか青の設定はまた、頭使って考えてみます!!

また、解決できなかったらよろしくお願いします!!

jakaさんのも試してみます!!

早々のお返事ありがとうございました!!

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