Excel VBA質問箱 IV

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

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


34499 / 76734 ←次へ | 前へ→

【47444】Re:UserForm・ListBoxにおいて複数列のデータを個別にコピー貼り付けの方法
回答  Hirofumi  - 07/3/10(土) 9:48 -

引用なし
パスワード
   今一意味が?ですがこんな事かな?

Option Explicit

Private Sub UserForm_Initialize()

  With ListBox1
    .ColumnCount = 2
    .ColumnWidths = "27;27"
    .ColumnHeads = True
    .RowSource = "A8:B" & Cells(Rows.Count, 2).End(xlUp).Row
    .ControlSource = "G7"
'    .BoundColumn = 1
'    .BoundColumn = 2
    .BoundColumn = 0
   End With
  
End Sub

Private Sub CommandButton1_Click()

'   Range("D" & 65536).End(xlUp).Offset(1) = ListBox1.Value
'   Range("E" & 65536).End(xlUp).Offset(1) = ListBox1.Value
   '→E列にBoundColumn = 2のデータを貼り付けたいのですが・・・
   '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   'どのようにコードを書けばよいでしょうか?
  
  Dim rngMark As Range
  
  Set rngMark = Range("D" & 65536).End(xlUp).Offset(1)
  
  With ListBox1
    rngMark.Value = .List(.ListIndex, 0)
    rngMark.Offset(, 1).Value = .List(.ListIndex, 1)
  End With
  
  Set rngMark = Nothing
  
End Sub

1 hits

【47443】UserForm・ListBoxにおいて複数列のデータを個別にコピー貼り付けの方法 Masako 07/3/10(土) 9:12 質問
【47444】Re:UserForm・ListBoxにおいて複数列のデー... Hirofumi 07/3/10(土) 9:48 回答
【47447】Re:UserForm・ListBoxにおいて複数列のデー... Masako 07/3/10(土) 11:53 お礼

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