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

看板CodeJob作者 (瑞麒)時間2周前 (2024/04/28 23:35), 2周前編輯推噓0(0推 0噓 1→)
留言1則, 1人參與, 2周前最新討論串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
→
04/29 06:43, 2周前 , 1F
Do Until Range("A2").Value=0
04/29 06:43, 1F
‣ 更多 Rich8899 的文章
文章代碼(AID): #1cBcpVZ- (CodeJob)