Excel VBA質問箱 IV

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

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


33332 / 76734 ←次へ | 前へ→

【48624】リストボックスから選択、他セルへ転記
質問  武蔵  - 07/4/26(木) 2:17 -

引用なし
パスワード
   下記のようなコードでD4セルにリストボックスから
データを入力しているのですが同時にE6・E7・E8・G6・G7・G8に
データを転記したいのですがコードの修正方法がわかりません。
よろしくお願いします。
データ範囲はAG列からAN列に記入済み
リストボックスからD4選択と同時に
E6に2番目のデータ[AH列]
E7に3番目のデータ[AI列]
E8に4番目のデータ[AJ列]
G6に5番目のデータ[AK列]
G7に6番目のデータ[AL列]
G8に7番目のデータ[AM列]
のデータをそれぞれ転記したいと考えています。

Option Explicit

Private Sub UserForm_Initialize()
  ListBox1.RowSource = Sheets("sheet1"). _
  Range(Range("AG2"), Range("AG2").End(xlDown)).Address
End Sub

Private Sub CommandButton2_Click()
 Unload Me
End Sub

Private Sub CommandButton1_Click()
  ActiveCell.Value = ListBox1.Value
 Unload Me
End Sub

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = vbKeyReturn Then
    ListBox1.Enabled = False
    ListBox1.Enabled = True
    KeyCode = 0
  End If
End Sub

2 hits

【48624】リストボックスから選択、他セルへ転記 武蔵 07/4/26(木) 2:17 質問
【48625】Re:リストボックスから選択、他セルへ転記 武蔵 07/4/26(木) 2:25 発言
【48626】Re:リストボックスから選択、他セルへ転記 ウッシ 07/4/26(木) 9:20 発言
【48628】Re:リストボックスから選択、他セルへ転記 武蔵 07/4/26(木) 10:55 質問
【48629】Re:リストボックスから選択、他セルへ転記 ウッシ 07/4/26(木) 11:20 発言
【48630】Re:リストボックスから選択、他セルへ転記 武蔵 07/4/26(木) 14:54 質問
【48631】Re:リストボックスから選択、他セルへ転記 ウッシ 07/4/26(木) 17:20 発言
【48632】Re:リストボックスから選択、他セルへ転記 武蔵 07/4/26(木) 18:25 お礼

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