|
ListBoxに 2列の表示をさせています。
CommandButtonで、ListBox1の行選択した2列データを、指定したセルの位置に貼り付けたいのですが、個別の2列の選択が出来ません(同じ値が入ります・・・サンプルではE8F8共に222のデータになります)。
その方法を指導ください。
(元データ) (仕上げたい状態)
A B E F
項目1 項目2 ha1 ha2
8 111 221 112 222
9 112 222→→ 111 221
10 113 223 115 325
11 115 325
: : :
: : :
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のデータを貼り付けたいのですが・・・
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'どのようにコードを書けばよいでしょうか?
End Sub
'・・・・・・・・・・・・・・・
Sub Hyouji()
Range("G7").Clear
UserForm1.Show 0
End Sub
'またG7にはBoundColumn = 0を表示したいのですが・・・
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'どのようにコードを書けばよいのでしょうか?
よろしくお願いします。
|
|