返回列表 上一主題 發帖

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

color790

帖子
117 
主題
34 
精華
0 
積分
155 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-8-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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
收藏 分享
初學者color

color790

帖子
117 
主題
34 
精華
0 
積分
155 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-8-29 
4#
發表於 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


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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 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
複製代碼

TOP

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
2#
發表於 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
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題