|
さる さん ichinose さん こんにちは。
おじゃまします。
'A,C列
Sub nnnm()
Dim Tb() As String
'Cells(3, 3).Select
行 = ActiveCell.Row: 列 = ActiveCell.Column
If 行 > 2 And 列 = 3 Then
レコード数 = Sheets("摘要・科目").Range("A1").CurrentRegion.Rows.Count
UserForm1.ListBox1.MultiSelect = fmMultiSelectSingle
UserForm1.ListBox1.ColumnCount = 2
ReDim Tb(1 To レコード数 - 1, 1 To 2)
For i = 2 To レコード数
Tb(i - 1, 1) = Cells(i, 1).Value
Tb(i - 1, 2) = Cells(i, 3).Value
Next
UserForm1.ListBox1.List = Tb
'Sheets("出納帳").Select
Erase Tb
UserForm1.Show
End If
End Sub
'A,B列
Sub nnn22()
Dim Tb() As String
'Cells(3, 3).Select
行 = ActiveCell.Row: 列 = ActiveCell.Column
If 行 > 2 And 列 = 3 Then
レコード数 = Sheets("摘要・科目").Range("A1").CurrentRegion.Rows.Count
UserForm2.ListBox1.MultiSelect = fmMultiSelectSingle
UserForm2.ListBox1.ColumnCount = 2
UserForm2.ListBox1.List = Range("A1:B21").Value
'Sheets("出納帳").Select
UserForm2.Show
End If
End Sub
Private Sub CommandButton1_Click()
MsgBox "右=" & ListBox1.Column(0) & " 左=" & ListBox1.Column(1)
End Sub
|
|