[已解决]代码测试

642070295

各位大师，附件中的代码运行时总是提示“应用程序定义或对象定义错误”，错在哪呢？麻烦帮纠正一下。 代码测试附件3.rar (24.75 KB, 下载次数: 2)

2014-3-11 12:19 上传

点击文件名下载附件 ，先谢了！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-3-11 12:51

1. Private Sub CommandButton1_Click()
   
2.     Dim n1%, p%, hb#
   
3.     hb = 21.5689
   
4.     n1 = Sheets("Sl").Range("b1048576").End(xlUp).Row
   
5.     With Sheets("Sl")
   
6.         p = Application.Match(.Range("f3"), .Range("B1:B" & n1), -1)
   
7.         .Range("f1") = "=F3+SUM(A1:A" & p & ")/" & hb & "/100"
   
8.         .Range("e3") = "=F3-SUM(A" & p + 1 & ":A" & n1 & ")/" & hb & "/100"
   
9.     End With
   
10.     MsgBox "完成！"
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

"=F3-SUM(A" & p + 1 & ":A " & n1 & ")/" & hb & "/100"
多了个空格
你仔细看看。

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim n1%, p%, hb#
   
3.     hb = 21.5689
   
4.     n1 = Sheets("Sl").Range("b1048576").End(xlUp).Row
   
5.     With Sheets("Sl")
   
6.         p = Application.Match(.Range("f3"), .Range("B1:B" & n1), -1)
   
7.         .Range("f1") = "=F3+SUM(A1:A" & p & ")/" & hb & "/100"
   
8.         .Range("e3") = "=F3-SUM(A" & p + 1 & ":A" & n1 & ")/" & hb & "/100"
   
9.     End With
   
10.     MsgBox "完成！"
    
11. End Sub
    

复制代码

642070295

hwc2ycy 发表于 2014-3-11 12:51

请问一下老师，这问题是出在哪呢？

hwc2ycy

"=F3-SUM(A" & p + 1 & ":A " & n1 & ")/" & hb & "/100"
这里输出时 =F3-SUM(A1:A 5)/2/100
中间多了个空格。

642070295

hwc2ycy 发表于 2014-3-11 13:02
"=F3-SUM(A" & p + 1 & ":A " & n1 & ")/" & hb & "/100"
这里输出时 =F3-SUM(A1:A 5)/2/100
中间多了个空 ...

好的，谢谢老师！