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。
excel關於自動生成日期的vba程式設計，請大家幫個忙
private sub worksheet change byval target as range if target.column 1 and target and target.offset 0,1 then activecell.offset 1,1 date if target.colum...
如何用VBA編寫，把工作表中相同字串標記上顏色，非常感謝
姓王的 dim i j n b ra as rangeset ra activesheet.usedrangera.font.colorindex 4105n 3 for i 1 to ra.count 1b 0 if n 18 then n 3 a ra i font.colorindexif r...
關於VBA中變數的問題（bErrList As Boolean）
你 中未體現這個 布林型變數的具體作用 不過berrlist false 如果要顯示出錯資料夾，請把值改為 true 這裡是註釋已經大概說明了用意 這種變數要麼false 要麼true 2種值if berrlist true then 不同值 執行不同 msgbox 真 else msgbox 假 ...