VBAについて教えてください

VBA初心者なので説明不足な点等あると思いますがご容赦ください。

ユーザーフォームにチェックボックスをいくつかつくりチェックを入れたらアクティブセルに繋げて入力できるようにしたいです。どうすればいいか教えてください。


ユーザーフォーム
☑︎りんご
◻︎れもん
☑︎ばなな

アクティブセル
りんごばなな

のような感じです。

質問者からの補足コメント

• 回答ありがとうございます。
  例えば
  sheet1のa1のセルを選ぶ。
  ↓
  ユーザーフォームでチェックをつける
  ↓
  ボタンを押す
  ↓
  a1のセルにチェックをつけた文字が転記される。
  複数のチェックをつけた場合にはa1のセルにチェックをつけた文字が続けて入力される。
  と言ったイメージです。
  
  Private Sub CommandButton1_Click()
  Dim ctrl As Control
  For Each ctrl In Controls
  If InStr(ctrl.Name, "CheckBox") <> 0 Then
  If ctrl.Value = True Then
  activecell.formulaR1C1= ctrl.Caption
  End If
  End If
  Next ctrl
  End Sub
  これだと上書きされて最後にチェックしたやつしか反映されず困っています

  No.2の回答に寄せられた補足コメントです。 補足日時：2022/12/18 11:42

No.4 ベストアンサー 回答者： bonaron 回答日時： 2022/12/18 12:17

こんな感じで。

Dim ctrl As Control
Dim tmp As String
For Each ctrl In Controls
If InStr(ctrl.Name, "CheckBox") <> 0 Then
If ctrl.Value = True Then
tmp = tmp & ctrl.Caption
End If
End If
Next ctrl
activecell.formulaR1C1= tmp
End Sub

１つもチェックが無い場合 空白になりますが、
もし、その場合は何もしない、というなら

If tmp <> "" Then
activecell.formulaR1C1= tmp
End If

未確認。間違っていたら後免。

この回答へのお礼

お陰様で無事思った通りのことをすることができました。本当にありがとうございます。

お礼日時：2022/12/18 12:28

No.3 回答者： mygoonickname 回答日時： 2022/12/18 12:03

こんにちは。

セルに入っている文字に、そのまま繋げて入力するという意味と思って、
下記はどうでしょうか？

activecell.formulaR1C1= ctrl.Caption
↓
activecell.Value = activecell.Value & "," & ctrl.Caption

No.2 回答者： めぐみん_ 回答日時： 2022/12/18 11:26

アクティブセルはSheetに対し１個なので、詳細に状況を書かないと厳しいでしょうね。

選択セルなら複数行けますけど。

＞アクティブセルに繋げて入力できるように

繋げるとは？
入力とはどこに？

No.1 回答者： lv4u 回答日時： 2022/12/18 11:05

１）自分がやりたいことを実現する手順を細かく書き出す。

２）手順を実現するＶＢＡの命令を調べる。
３）調べたＶＢＡの命令を使って、プログラムを作る。

です。