作者Rich8899 (瑞麒)
看板CodeJob
標題[發案] excel VBA的Do While迴圈的問題
時間Sun Apr 28 23:35:57 2024
凡是「*[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://webptt.com/m.aspx?n=bbs/CodeJob/M.1714318559.A.8FE.html
※ 編輯: Rich8899 (180.217.17.43 臺灣), 04/28/2024 23:37:21
1F：→ Iories: Do Until Range("A2").Value=0 04/29 06:43