Board logo

標題: 請問怎麼讓巨集執行次數=某個儲存格中的值 [打印本頁]
作者: color790    時間: 2011-6-30 11:43     標題: 請問怎麼讓巨集執行次數=某個儲存格中的值

本帖最後由 color790 於 2011-6-30 13:20 編輯

請問
如果想將該巨集做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    時間: 2011-7-1 06:35

本帖最後由 Min 於 2011-7-1 06:37 編輯

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    時間: 2011-7-1 07:53

回復 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    時間: 2011-7-1 11:44

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


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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)