[發案] excel VBA的Do While迴圈的問題

看板CodeJob (BBS架站)作者Rich8899 (瑞麒)時間6月前 (2024/04/28 23:35)推噓0(0推 0噓 1→)

留言1則, 1人參與討論串1/1

凡是「*[30m」開始的行，都請使用 Ctrl + y 刪除。如果對於發案文章格式有不清楚的地方，請參考置底文章：[發案] 發案範例　發案人：陳先生聯絡方式1（line ID）：allgowell 聯絡方式2：站內信所在地區：台北有效時間：2024/4/29 專案說明：在用excel VBA編輯餐廳菜單時，Do While迴圈卡在一個地方，簡單來說，當以 unpatatable為標籤的欄位的資料都刪光時，A2的值會變成0，然後程式會直接從Do While A2 = 0這行跳出迴圈，但卻沒跳出，然後程式就錯誤了，程式碼如下 Sub 菜單() Range("A1").Select Selection.Copy Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Do While A2 = 0 Range("B1:G1").Select Selection.Find(What:="unpatatable", After:=ActiveCell, LookIn:=xlFormulas2, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False, SearchFormat:=False).Activate ActiveCell.EntireColumn.Select Selection.ClearContents Range("A1").Select Selection.Copy Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Loop End Sub 　　預算：1000 接案者要求：無　　附註：A1這個欄位的設定是 =COUNTIF(B1:G1,"unpatatable") -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 180.217.17.43 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/CodeJob/M.1714318559.A.8FE.html ※ 編輯: Rich8899 (180.217.17.43 臺灣), 04/28/2024 23:37:21