[算表] ExcelVBA Resume Next

看板Office作者 (Blue night)時間5年前 (2019/01/10 09:29), 編輯推噓0(0推 0噓 7→)
留言7則, 3人參與, 5年前最新討論串1/1
軟體:EXCEL 版本:2010 Sub n() For Each cell In Selection If cell.Value = "" Then Resume Next cell.Value = cell.Value + 1 Next End Sub 我希望空格不處理跳到下一個For 非空者則 +1 此處的Resume Next 會報錯：回復且無錯誤 請問該怎麼寫才對 謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 175.98.114.28 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1547083760.A.685.html
→
01/10 09:52, 5年前 , 1F
用GoTo，但後續可能會不易管理維護，可以考慮把要做的事放
01/10 09:52, 1F
→
01/10 09:53, 5年前 , 2F
在If的Else裡面，或是If判斷加個Not，要做的事放If裡面
01/10 09:53, 2F
→
01/10 10:11, 5年前 , 3F
如以原文條件來看，非空者+1，那cell.value<>""則做+1的動
01/10 10:11, 3F
→
01/10 10:12, 5年前 , 4F
作，可將resume next改為接下來的cell.value=cell.value+1
01/10 10:12, 4F
→
01/10 10:16, 5年前 , 5F
或是集合以range.specialcells常數，數字的方式，那迴圈內
01/10 10:16, 5F
→
01/10 10:16, 5年前 , 6F
應可不用判斷
01/10 10:16, 6F
→
01/10 10:42, 5年前 , 7F
了解了 謝謝
01/10 10:42, 7F
‣ 更多 home0303 的文章
文章代碼(AID): #1SDf_mQ5 (Office)