Excel VBA質問箱 IV

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

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


61759 / 76738 ←次へ | 前へ→

【19593】Re:コンボボックスの不具合について 追伸
発言  Yamayama E-MAIL  - 04/11/10(水) 0:57 -

引用なし
パスワード
   ichinose さん
こんばんわ

変更したコードです

private Sub CommandButton1_Click()

With ComboBox2


'項目

  Cells(ComboBox1.Value + 0, 2) = ComboBox2.List(ListIndex, 0)
  
'称呼

  Cells(ComboBox1.Value + 0, 4) = ComboBox2.List(ListIndex, 1)
  
'単価

  Cells(ComboBox1.Value + 0, 5) = ComboBox2.List(ListIndex, 2)
  

'番号

  Cells(ComboBox1.Value + 0, 10) = ComboBox2.List(ListIndex, 3)
  
'単価

  Cells(ComboBox1.Value + 0, 11) = ComboBox2.List(ListIndex, 4)
  
  End With
 
End Sub

Combobox1に設定しているセル範囲とそのセルの値

11から31が表示できれば良いので「項目」シートのR3〜R23へ11〜31の数字をいれて

Combobox1のプロパティRowSourceに「項目!R3:R23」と記入しています

Excelのバージョンは2000です

よろしくお願いします
0 hits

【19549】コンボボックスの不具合について Yamayama 04/11/8(月) 23:07 質問
【19550】Re:コンボボックスの不具合について ichinose 04/11/8(月) 23:41 回答
【19552】Re:コンボボックスの不具合について Yamayama 04/11/9(火) 6:09 お礼
【19588】Re:コンボボックスの不具合について Yamayama 04/11/9(火) 23:41 発言
【19589】Re:コンボボックスの不具合について ichinose 04/11/10(水) 0:29 発言
【19592】Re:コンボボックスの不具合について 追伸 ichinose 04/11/10(水) 0:31 発言
【19593】Re:コンボボックスの不具合について 追伸 Yamayama 04/11/10(水) 0:57 発言
【19594】Re:コンボボックスの不具合について 追伸 Yamayama 04/11/10(水) 1:53 発言
【19597】Re:コンボボックスの不具合について 追伸 ichinose 04/11/10(水) 7:24 発言
【19602】Re:コンボボックスの不具合について 追伸 Yamayama 04/11/10(水) 20:43 発言
【19604】Re:コンボボックスの不具合について 追伸 ichinose 04/11/10(水) 22:26 発言
【19610】Re:コンボボックスの不具合について 追伸 Yamayama 04/11/11(木) 9:21 お礼

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