|
現在下記の様な感じでセルからテキストボックスにデータを入れてるのですが、
矢印の部分を構造体とか配列とか使って構文を短くしようと思っています。
何かスッキリする方法は無いでしょうか・・・・・
構造体や配列等の事はサイトで調べてみたのですが、使った事がないので思いつきません、アドバイス及びヒントの方よろしくお願いします。
Private Sub CommandButton1_Click()
Dim p_name As String
p_name = ComboBox1
Select Case p_name
Case "ma"
→ TextBox2 = Range("B2")
→ TextBox3 = Range("C2")
→ TextBox4 = Range("D2")
Case "mb"
TextBox2 = Range("B3")
TextBox3 = Range("C3")
TextBox4 = Range("D3")
Case "mc"
TextBox2 = Range("B4")
TextBox3 = Range("C4")
TextBox4 = Range("D4")
End Select
End Sub
|
|