下面excel vba 代码为什么运行没反应也没提示错误 50
哪里出错PublicSubqwe()Dima,b,c,dAsIntegera=1d=InputBox("判断")DoWhilea≤13Worksheets("sheet1...
哪里出错
Public Sub qwe()
Dim a, b, c, d As Integer
a = 1
d = InputBox("判断")
Do While a≤13
Worksheets("sheet1").Cells(a, "c") = 13582
a = a + 1
Exit Do
If d = 1 Then
For b = 14 To 18 Step 2
Worksheets("sheet1").Cells(b, "c") = 13582
Next b
Else
For c = 15 To 19 Step 2
Worksheets("sheet1").Cells(c, "c") = 13582
Next c
End If
Loop
End Sub 展开
Public Sub qwe()
Dim a, b, c, d As Integer
a = 1
d = InputBox("判断")
Do While a≤13
Worksheets("sheet1").Cells(a, "c") = 13582
a = a + 1
Exit Do
If d = 1 Then
For b = 14 To 18 Step 2
Worksheets("sheet1").Cells(b, "c") = 13582
Next b
Else
For c = 15 To 19 Step 2
Worksheets("sheet1").Cells(c, "c") = 13582
Next c
End If
Loop
End Sub 展开
展开全部
On Error Resume Next
CommandBars("单据录入").Delete
On Error goto 0
CommandBars("单据录入").Delete
On Error goto 0
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
天正软件
2024-08-02 广告
天正软件可以解决以下问题：1. 提供设计标准化：天正软件专注于勘察设计领域，为用户提供标准化、信息化、智能化的解决方案，以提高设计效率、优化设计流程、降低成本。2. 提高绘图效率：天正软件提供了一系列专业绘图工具，能够帮助设计师快速绘制图纸...
点击进入详情页
本回答由天正软件提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
