質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

コンボボックス

GUIの要素のひとつです。Listboxと同様にいくつかのうちひとつを選択する機能だが、Comboboxの場合は選択されたもののみがデフォルトとして表示される。

Q&A

1回答

912閲覧

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

sktkr

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

コンボボックス

GUIの要素のひとつです。Listboxと同様にいくつかのうちひとつを選択する機能だが、Comboboxの場合は選択されたもののみがデフォルトとして表示される。

0グッド

0クリップ

投稿2021/01/26 02:51

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

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

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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2021/01/26 04:29

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

回答1

0

コンボボックスで選択肢を選んでテキストボックスに入力し、それを書き出すなら下記のプログラムです。
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

書き出し時に末尾取得も行えばスムーズになると思います

投稿2021/01/26 04:50

退会済みユーザー

退会済みユーザー

総合スコア0

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問