Excel VBA質問箱 IV

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

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


39717 / 76732 ←次へ | 前へ→

【42124】Re:列の選択をシート上のリストボックスからユーザーフォーム上に変更する
発言  ichinose  - 06/9/1(金) 23:19 -

引用なし
パスワード
   ▼GPA さん:
こんばんは。

>コンボボックスの値を、シートA列からE列に入力するようにしています。
>シート上のリストボックスのリンク先をCells(6,7)として列選択を
>しています。この列選択をフォーム上に作成するには、どのように
>すると良いのでしょうか、アドバイスお願いします。
>
>
>Private Sub CommandButton1_Click()
>  Cells(65536, Cells(6, 7).Value).End(xlUp).Offset(1) = ComboBox1.Value
>End Sub
↑このコードを変更なしで使うなら・・・・、

Userform1にリストボックス(Listbox1)を配置してください。
このフォームのモジュールに

'=========================================================
Private Sub UserForm_Initialize()
  With ListBox1
    .ControlSource = "sheet1!g6"
'    これは、事前にプロパティ設定もできます
'   リストボックスで選択した列番号を入力したいセルをシート名から指定する
    .List = Array(1, 2, 3, 4, 5)
    .ListIndex = 0
    End With
End Sub

これで指定シートのセルG6にリストボックスで選択した列番号が
入ります。


試してみてください。

0 hits

【42122】列の選択をシート上のリストボックスからユーザーフォーム上に変更する GPA 06/9/1(金) 21:12 質問
【42123】Re:列の選択をシート上のリストボックス... ponpon 06/9/1(金) 23:08 発言
【42125】Re:列の選択をシート上のリストボックス... GPA 06/9/2(土) 11:37 お礼
【42160】Re:列の選択をシート上のリストボックス... ponpon 06/9/3(日) 9:47 発言
【42124】Re:列の選択をシート上のリストボックスか... ichinose 06/9/1(金) 23:19 発言
【42126】Re:列の選択をシート上のリストボックスか... GPA 06/9/2(土) 11:53 質問
【42142】Re:列の選択をシート上のリストボックスか... ichinose 06/9/2(土) 19:25 発言
【42145】Re:列の選択をシート上のリストボックスか... GPA 06/9/2(土) 20:27 お礼

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