kimbal

¦^´_ 8# syuan

§Aªº·N«ä¬O¿ï¤@±iªíªº¹ï§a? ¥i¥H³o¼Ëªº

dim strsht as string
strsht ="sheet1"

.....
ElseIf UserForm1.ListBox1.ListIndex = 6 And UserForm1.ListBox2.ListIndex = 1 And UserForm1.ListBox3.ListIndex = 1 Then
With UserForm2.ListBox1
     .RowSource = worksheets(strsht).range("m5:n8").address(,,,1)
     .ColumnCount = 2
     .ColumnWidths = "100"
End With
UserForm2.Show

¥H¤W¦^¶Çsheet1
§âstrsht="sheet1"  ´«¦¨ "sheet2" ´N·|¦^¶Çsheet2 ªº