1樓：解0人
'簡單問題被你搞複雜了吧？
sub 工作表()
dim x, y, z
z = worksheets.count
for x = 1 to z
if worksheets(x).name <> "某某" then '不是某某**時才執行下面，否則就不執行嘛
'操作end if
next
end sub
2樓：匿名使用者
dim x%, y as worksheet, z%z = worksheets.count
for x = 1 to z
set y = worksheets(x)if y.name = "某某" thenelse
'然後對工作的操作
end if
next x
-------------------------------你**中的y是變體變數，根據賦值，為工作表。工作表與工作表相等的描述是錯誤的，只有工作表的名稱是否相同的判斷。所以，你那裡會出錯。
順便一提，你所使用的判斷跳轉語句： goto line。意思是如果判斷為假，則重新執行迴圈，這樣的迴圈會造成無限迴圈。這一句是多餘的。你不需要用跳轉，只需要忽略即可。
還有就是，建議最好申明變數時能明確定義變數的資料型別，這樣可以加快程式的執行。只不過，你這裡因為資料量不大，可能沒有這個必要。建議要養成一個好的習慣。
3樓：匿名使用者
if y then next x。
access2019中VBA程式設計Select Case語句
1.dim salary as double tax as double 給salary賦值，如 salary val text1.text select case salary case is 3500 tax 0 case is 5000 tax salary 0.05 case is 6000...
關於VBA程式設計,建立查詢視窗,請大神幫幫忙
private sub mandbutton1 click for i 2 to 100 if textbox1.text cells i,a value then label2.caption cells i,b value if cells i,b value yes then label2.b...
如何用函式或vba呼叫引用另外工作表的資料
假如你要引用sheet2中的b5單元格的內容，直接寫成 sheet2 b5就可以了沒必要那麼複雜 sub rename for i 1 to sheets.countsheets i name sheets i cells 1,1 value next end sub 假設每張sheet都以a1單元...