| |
ListBoxに ２列の表示をさせています。
CommandButtonで、ListBox1の行選択した２列データを、指定したセルの位置に貼り付けたいのですが、個別の２列の選択が出来ません（同じ値が入ります･･･サンプルでは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を表示したいのですが･･･
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'どのようにコードを書けばよいのでしょうか？
よろしくお願いします。
|
|
Masako
- 07/3/10(土) 9:12 -
