| |
今晩は。
Userform1にコンボボックスを3つ作って、下記コードを貼り付けて、
試してみてください。
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Array("12/1", "12/2", "12/3", "12/4", "12/5", "12/6")
Me.ComboBox2.List = Array("1.車", "2.車", "3.車", "4.車")
Me.ComboBox3.List = Array("z1", "z2", "z3", "z4", "z5")
End Sub
Private Sub CommandButton1_Click()
cmb1 = Me.ComboBox1.Value
cmb2 = Me.ComboBox2.Value
cmb3 = Me.ComboBox3.Value
行 = Application.Match(cmb1, Range("A1:A10"), 0)
列 = Application.Match(cmb2, Range("A1:F1"), 0)
Cells(行, 列).Value = cmb3
End Sub
>カレンダーから日付を選びコンボボックス１に表示し、コンボボックス２にはどの車（１〜１１台あります）を選んだか表示し、誰がどこに使うかをコンボボックス３に表示しています。12/13.車のセルにコンボボックス３の内容を書き込むようにするにはどうすればいいですか？
> 列 Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ
>行 1.車 2.車 3.車 4.車 ・ ・
>1 12/1
>2 12/2
>3 12/3
>4 ・
>5 ・
>・ ・
|
|
kobasan
- 05/12/7(水) 21:18 -
