作者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/cn.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