主页 > 科技生活 >祁同伟老婆_在VBA中,如果代码出现错误,就跳转到错误的那个地方,让我知道是那儿错了请问用什么语句 >

祁同伟老婆_在VBA中,如果代码出现错误,就跳转到错误的那个地方,让我知道是那儿错了请问用什么语句

在VBA中,如果代码出现错误,就跳转到错误的那个地方,让我知道是那儿错了?请问用什么语句?
去掉代码中的on error,自动就会跳转到错误代码处想知道哪里出错了就不要使用On error goto 呀。on error goto 0on error resume next
VBA编程加载DLL错误该怎么弄?
重新注册一下DLL 运行里面输入regsvr32 xxx.dll

xxx.dll 为DLL 文件路径和名称最起码要先保证DLL已经被注册成功!你的意思是,a1单元是表头,也是数据(即a1是5,a5也是5么筛选后只有一个5
这样的话,修改代码如下:
rows(1).insert
range("a1")
=
"tmp"
finalrow
=
cells(65536,
1).end(xlup).row
range("a1").resize(finalrow,
1).advancedfilter
action:=xlfiltercopy,
copytorange:=range("b1"),
unique:=true
rows(1).delete
求教 我的vba编程哪儿出错了?执行不了而且不提示错误啊
就如“的心_2010”所你这个循环只能运行。
另外一个非常严重的错误,你不改正,就算你改正了他所说的你也达不到你想要的效果,请把:
oldnom = Cells(i, 2)
oldprice = Cells(i, 3)
newnom = Cells(i, 5)
newprice = Cells(i, 7)
这一段放到循环里面去。
另外对于你要的功能来说For-Next循环比你现在用的更合适。不是执行不了,是一瞬间就完成了,你最后那里newnom = "",一下就跳出循环了。感觉你用字典会比较简单
excel中 vba编程错误

PrivateSubWorksheet_selectionchange()
Dima,b,sAsInteger
s=Sheet1.UsedRange.Rows.Count
Fora=1Tos
IfSheet1.Cells(a,3)>0Then
b=b+1
Sheet2.Cells(b,1)=Sheet1.Cells(a,1)
Sheet2.Cells(b,2)=Sheet1.Cells(a,3)
EndIf
Next
EndSub

代码可以实现你需现的功能,已测试过,放心。O(∩_∩)O~你的代码里面a=a+1,这个循a没有设置上限,如果一直运行下去会报错。我在你的a=a+1这个代码下面加了debug.print a 测试了一下,就卡死了。a会一直循环增大到报错。

如果你第三列都没有符合>0,就会出错了,前面加个On Error Resume Next就可以了这个界面点【调试】看黄色条在哪一行,鼠标放在该行的变量上,看看变量的值是多少改成 sheets("sheet1").cells(a,3)试试


上一篇: 下一篇: