[已解决]程序不能逐句运行

969341591

Book1.rar (5.15 KB, 下载次数: 3)

2014-4-26 11:27 上传

点击文件名下载附件 有一段小程序想逐句运行但不能,想知道缘由.(现在想返回A1的值),请求帮助.我就是把sub程序删了,function程序也还是不能逐句运行.

1. Function getv(rg As Range)
   
2.    getv = rg.Text
   
3. End Function
   
4. Sub aa()
   
5.    MsgBox getv
   
6. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2014-4-26 13:31

看了你的图，似乎跟我的说明没有矛盾，我的意思是，function有参数传递的话，
在调用的时候可以逐句运行，单独运行不行。
不过只是根据现象得出的结论，可能有些片面或错误，有其他朋友释疑的话不胜感激

跳转到最佳答案楼层

大灰狼1976

1. Function getv(rg As Range)
   
2.    getv = rg.Text
   
3. End Function
   
4. Sub aa()
   
5.    MsgBox getv([a1])
   
6. End Sub

复制代码

969341591

大灰狼1976 发表于 2014-4-26 11:31

如果我现在把sub程序删了,function程序还是不能逐句运行.想知道这是为什么?

大灰狼1976

在sub aa()里逐句运行，到调用Function时就明白了，Function调用时才会运行

969341591

大灰狼1976 发表于 2014-4-26 11:42
在sub aa()里逐句运行，到调用Function时就明白了，Function调用时才会运行

你的说法有问题例如下面代码就可以逐句运行
Function 工作表数目()
   工作表数目 = Sheets.Count
End Function

大灰狼1976

对function不是太熟悉，确实错了，应该是有参数传递的不行

969341591

大灰狼1976 发表于 2014-4-26 12:48
对function不是太熟悉，确实错了，应该是有参数传递的不行

还是谢谢你,但有参数传递的不一定不行.例如下面代码
Function 求平方(n As Integer)
  求平方 = n ^ 2
End Function
Sub bb()
   MsgBox 求平方(6)
End Sub

大灰狼1976

看了你的图，似乎跟我的说明没有矛盾，我的意思是，function有参数传递的话，
在调用的时候可以逐句运行，单独运行不行。
不过只是根据现象得出的结论，可能有些片面或错误，有其他朋友释疑的话不胜感激