Excel 複数のコンボボックスから値を抽出したい

Question

閲覧いただきありがとうございます。

業務効率化のためにユーザーフォームを製作しておりまして、わからない場所がある為、お力をお貸しください。

a列　　ｂ列 あ列　　い列　　う列、、、、、、

1 あ 1　　　a b c
2 い 2 a1 b1 c1
3 う 3
4 え 4
5 お 5

---

a列で列名、b列で行数をコンボボックスで選択してテキストボックスに表示させたいのですが
どういったコードを書いたらよいかわからず困っております。

例え
me.cmda列で列名（あ、い、う、、、)を選択
me.cmdb列で行数を(1,2,3、、、)選択
me.txt場所に選択したセルの値を表示させたいです。

お力をお貸しいただけましたら幸いです。

Answer 1

下記のようなシートとします。

ユーザーフォームにコンボボックスを２つ、テキストボックスを１つ配置します。

ユーザーフォームのモジュールに下記のコードを記述してください。

Dim tbl As Range

Private Sub ComboBox1_Change()
    On Error Resume Next
    Me.TextBox1.Value = tbl.Cells(Me.ComboBox2.ListIndex + 1, Me.ComboBox1.ListIndex + 1)
End Sub

Private Sub ComboBox2_Change()
    ComboBox1_Change
End Sub

Private Sub UserForm_Initialize()
    
    Dim ColCnt As Long, rowCnt As Long
    ColCnt = Cells(1, 1).End(xlDown).Row
    rowCnt = Cells(1, 2).End(xlDown).Row
    
    Me.ComboBox1.RowSource = "A1:A" & ColCnt
    Me.ComboBox2.RowSource = "B1:B" & rowCnt

    Set tbl = Cells(1, 3).Resize(rowCnt, ColCnt)
    
End Sub

Comments

[masa1975]

解決することが出来ました！とても助かりました。ありがとうございました。