|
お久しぶりにお世話になります。
UserFormにListBoxが1つだけあります。
Sheeet1のボタンをクリックすると、UserFormが表示され、
ListBoxにSheet2のA列とC列のデータを表示したいのですが、
うまくいきません。
Sheet1のボタンをクリックしたときのコードはこんな感じです。
1列分のデータならうまくいったのですが・・・。
Sub 摘要参照()
Application.ScreenUpdating = False
行 = ActiveCell.Row: 列 = ActiveCell.Column
If 行 > 2 And 列 = 3 Then
Sheets("摘要・科目").Select
レコード数 = Range("A1").CurrentRegion.Rows.Count
UserForm1.ListBox1.MultiSelect = fmMultiSelectSingle
UserForm1.ListBox1.List = Sheets("摘要・科目").Range(Cells(2, 1), Cells(レコード数, 1)).Value
Sheets("出納帳").Select
UserForm1.Show
End If
Application.ScreenUpdating = True
End Sub
どなたかご教授よろしくお願いします。
|
|