請問怎麼讓巨集執行次數=某個儲存格中的值

color790

請問
如果想將該巨集做X次, X =工作表1.Cells(a, 2)的值該怎麼加進去, 或是可以怎麼修改比較好~ 謝謝各位先進
Sub AA()
a = 工作表1.[A1].End(xlDown).Row
b = 工作表1.Cells(a, 5)
Select Case b
Case "AAA"
For i = 2 To 工作表3.[A1].End(xlDown).Row
For j = 2 To 5

If 工作表3.Cells(i, j) = "" Then
工作表3.Cells(i, j) = 工作表1.Cells(a, 1)
工作表3.Cells(i + 1, j) = 工作表1.Cells(a, 1)
Exit Sub
End If
Next
Next

Case "BBB"
For i = 2 To 工作表3.[A1].End(xlDown).Row
For j = 2 To 5

If 工作表3.Cells(i, j) = "" Then
工作表3.Cells(i, j) = 工作表1.Cells(a, 1)
Exit Sub
End If
Next
Next
End Select
End Sub

Min

Sub AA()
for cnt= 1 to 工作表1.Cells(a, 2)
a = 工作表1.[A1].End(xlDown).Row
b = 工作表1.Cells(a, 5)
Select Case b
Case "AAA"
.
.
.
.
next cnt
End Sub

或是在寫個SUB
Sub AA2()
for cnt= 1 to 工作表1.Cells(a, 2)
call aa
next cnt
End Sub

GBKEE

回復 1# color790

1. Sub AA()
   
2.     For a = 1 To 工作表1.[A1].End(xlDown).Row
   
3.         For i = 2 To 工作表3.[A1].End(xlDown).Row
   
4.             For j = 2 To 5
   
5.                 If 工作表3.Cells(i, j) = "" Then
   
6.                     If 工作表1.Cells(a, 5) = "AAA" Then
   
7.                         工作表3.Cells(i, j) = 工作表1.Cells(a, 1)
   
8.                         工作表3.Cells(i + 1, j) = 工作表1.Cells(a, 1)
   
9.                         Exit Sub
   
10.                     ElseIf 工作表1.Cells(a, 5) = "BBB" Then
    
11.                         工作表3.Cells(i, j) = 工作表1.Cells(a, 1)
    
12.                         Exit Sub
    
13.                     End If
    
14.                 End If
    
15.             Next
    
16.         Next
    
17.     Next
    
18. End Sub

複製代碼

color790

Sub AA()
for cnt= 1 to 工作表1.Cells(a, 2)
a = 工作表1.[A1].End(xlDown).Row
b = 工作表1.Cells(a,  ...
Min 發表於 2011-7-1 06:35

喔~原來降就可以了, 真是太感謝你了, 也謝謝版主的回覆