- 帖子
- 117
- 主題
- 34
- 精華
- 0
- 積分
- 155
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-19
- 最後登錄
- 2024-8-29
|
請問怎麼讓巨集執行次數=某個儲存格中的值
本帖最後由 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 |
|
發表於 2011-6-30 11:43
| 
