Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


49479 / 76735 ←次へ | 前へ→

【32166】Re:使用状況
回答  kobasan E-MAIL  - 05/12/7(水) 21:18 -

引用なし
パスワード
   今晩は。
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


>カレンダーから日付を選びコンボボックス1に表示し、コンボボックス2にはどの車(1〜11台あります)を選んだか表示し、誰がどこに使うかをコンボボックス3に表示しています。12/13.車のセルにコンボボックス3の内容を書き込むようにするにはどうすればいいですか?
> 列    A  B  C  D  E  F  G
>行        1.車 2.車 3.車 4.車 ・  ・
>1     12/1
>2     12/2
>3     12/3
>4      ・
>5      ・
>・     ・

0 hits

【32163】使用状況 悩みまくり・・・ 05/12/7(水) 19:43 質問
【32166】Re:使用状況 kobasan 05/12/7(水) 21:18 回答
【32168】Re:使用状況 悩みまくり・・・ 05/12/8(木) 0:28 発言
【32171】Re:使用状況 やっちん 05/12/8(木) 8:06 回答
【32173】Re:使用状況 悩みまくり 05/12/8(木) 9:32 発言
【32182】Re:使用状況 やっちん 05/12/8(木) 12:45 発言
【32186】Re:使用状況 kobasan 05/12/8(木) 16:04 発言
【32209】Re:使用状況 悩みまくり 05/12/9(金) 11:06 発言
【32211】Re:使用状況 やっちん 05/12/9(金) 11:45 発言
【32212】Re:使用状況 Jaka 05/12/9(金) 11:45 発言
【32214】Re:使用状況 悩みまくり 05/12/9(金) 13:59 発言
【32215】Re:使用状況 wad 05/12/9(金) 14:17 発言
【32217】Re:使用状況 Jaka 05/12/9(金) 14:39 発言
【32218】Re:使用状況 悩みまくり 05/12/9(金) 15:07 お礼

49479 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free