子过程或函数未定义是怎么回事？

Ling323 · 发表于 2018-10-14 19:59

Private Sub NKthStep()
Dim k As Integer
Sheet("New").Cells(62, 2) = nk
Application.ScreenUpdating = False
For k = nk * 5 - 4 To nk * 5

      getDemand (k)
      capacitydrop (k)
      calY (k)
      calNum (k)
      calSpeed (k)
      calDTC (k)
      rmcontrol (k)
      printResult (k)

Next k
nk = nk + 1
End Sub

不知道为什么 · 发表于 2018-10-14 20:19

getDemand (k)
      capacitydrop (k)
      calY (k)
      calNum (k)
      calSpeed (k)
      calDTC (k)
      rmcontrol (k)
      printResult (k)

这么一串都要自己写的

Ling323 · 发表于 2018-10-14 20:24

不知道为什么发表于 2018-10-14 20:19
getDemand (k)
capacitydrop (k)
calY (k)

在下面写了对应的Sub诶，没贴上来

mythqiu · 发表于 2018-10-15 10:39

都加如 call calY(k)
或者不加call 如 calY k

Ling323 · 发表于 2018-10-15 15:45

mythqiu 发表于 2018-10-15 10:39
都加如 call calY(k)
或者不加call 如 calY k

我把第三行改为nk=1就显示下标越界

mythqiu · 发表于 2018-10-15 18:41

Ling323 发表于 2018-10-15 15:45
我把第三行改为nk=1就显示下标越界

说明你有sub写的错了,越界并非for ... next循环本身,而是循环中的sub有错.

ww87725244 · 发表于 2018-10-15 22:02

带参数的SUB过程，其参数是整型吗？

不知道为什么 · 发表于 2018-10-15 22:10

嗨，上传个附件有那么困难么？都在浪费时间啊

Ling323 · 发表于 2018-10-15 22:24

不知道为什么发表于 2018-10-15 22:10
嗨，上传个附件有那么困难么？都在浪费时间啊

链接：https://pan.baidu.com/s/1t6AwBlng5xrbnzUDg0B_CA
提取码：nsp5
我上传了，大神帮我看一下，谢谢

		自动登录	找回密码
密码			免费注册

[求助] 子过程或函数未定义是怎么回事？