VBA　コンボボックスをシートに選択肢毎に列を分けて入力したい。

ユーザーフォームのコンボボックスで選択した項目を、
項目ごとに列を分けて転記したいです。

チェックボックス、オプションボタンにするには項目数が多いので、
コンボボックスに選択肢を20個程度いれています。
あとでエクセルでピポットテーブルにして閲覧する人がいる為、
選択肢を同列に記載するのではなくて、列を分けて「1」と入力していきたいです。

自分で調べては見たのですが、どうしても解決せず、質問させていただきました。

退会済みユーザー

2021/01/26 04:29

ComboBox1.textとcomboBox2.textの値を任意の列に入れればいいと思うのですが、もしかして一つのコンボボックスで複数回チェックを入れる想定なのですか？

行動規範の内容に同意します

回答1件

コンボボックスで選択肢を選んでテキストボックスに入力し、それを書き出すなら下記のプログラムです。
selectで条件分けするのが答えに近いと思いますがuserformの配置が正確に分からないのでサンプルで組みました。

VBA
1Private Sub CommandButton1_Click()
2    Select Case Me.ComboBox1
3        Case "タイトル"
4            ThisWorkbook.Worksheets(1).Cells(1, 1) = Me.TextBox1
5        Case "内容"
6            ThisWorkbook.Worksheets(1).Cells(1, 2) = Me.TextBox1
7        Case "日付"
8            ThisWorkbook.Worksheets(1).Cells(1, 3) = Me.TextBox1
9        Case Else
10    End Select
11End Sub