[發問] 關於UserForm1中的ListBox應用

av8d

1. Private Sub ListBox2_Click()
   
2.     For i = 0 To ListBox1.ListCount - 1
   
3.         If ListBox2.Selected(i) = True Then
   
4.             ActiveWorkbook.Sheets(14).Select
   
5.             Cells(1, 1).Select
   
6.         End If
   
7.     Next
   
8. End Sub

複製代碼

當選擇第一個選項時，我要選擇在工作表14的A1 ，即Cells(1, 1)
當選擇第二個選項時，我要選擇在工作表14的F1 ，即Cells(1, 6)
當選擇第三個選項時，我要選擇在工作表14的K1 ，即Cells(1, 11)
當選擇第四個選項時，我要選擇在工作表14的P1 ，即Cells(1, 16)
當選擇第五個選項時，我要選擇在工作表14的A24 ，即Cells(24, 1)
當選擇第六個選項時，我要選擇在工作表14的F24 ，即Cells(24, 6)
當選擇第七個選項時，我要選擇在工作表14的K24 ，即Cells(24, 11)
當選擇第八個選項時，我要選擇在工作表14的P24 ，即Cells(24, 16)
以此類推，預計會有50個選項，每四個選項會換列，請問該如何撰寫？謝謝

目前唯一想到的方法就是寫50次

1.             If i = 0 Then Cells(1, 1).Select
   
2.             If i = 1 Then Cells(1, 6).Select
   
3.             If i = 2 Then Cells(1, 11).Select
   
4.             If i = 3 Then Cells(1, 16).Select

複製代碼

av8d

回復 3# singo1232001


感謝前輩的解答，很受用，
目前我改寫了一下，但是又卡住了，
如F1如果是空，我設定加入的項目會略過，
但指定位置就會位移，該如何改寫，謝謝。

1. Private Sub UserForm_Activate()
   
2.     Dim j As Integer
   
3.    
   
4.     For j = 1 To 300 Step 23
   
5.         If ActiveWorkbook.Sheets(1).Cells(j, 1).Value <> "" Then ListBox1.AddItem ActiveWorkbook.Sheets(1).Cells(j, 1).Value & "：" & ActiveWorkbook.Sheets(1).Cells(j + 20, 4).Value
   
6.         
   
7.         If ActiveWorkbook.Sheets(1).Cells(j, 6).Value <> "" Then ListBox1.AddItem ActiveWorkbook.Sheets(1).Cells(j, 6).Value & "：" & ActiveWorkbook.Sheets(1).Cells(j + 20, 9).Value
   
8.         
   
9.         If ActiveWorkbook.Sheets(1).Cells(j, 11).Value <> "" Then ListBox1.AddItem ActiveWorkbook.Sheets(1).Cells(j, 11).Value & "：" & ActiveWorkbook.Sheets(1).Cells(j + 20, 14).Value
   
10.                
    
11.         If ActiveWorkbook.Sheets(1).Cells(j, 16).Value <> "" Then ListBox1.AddItem ActiveWorkbook.Sheets(1).Cells(j, 16).Value & "：" & ActiveWorkbook.Sheets(1).Cells(j + 20, 19).Value
    
12.     Next
    
13. End Sub

複製代碼

av8d

回復 8# av8d
回復 9# singo1232001

感謝兩位前輩，受益良多，寫法不同，目的相同，用途使用廣泛。