子程序或函数未定义？

qjsu

在VBA中使用sum（）,COUNTIF()等函数的时候提示  “子程序或函数未定义”，请问是为什么？

hwc2ycy

EXCEL里用的函数和VBA里用的还是有区别的。
虽然在VBA里也可以引用工作表函数，但是要加前缀。
sum在VBA里要引用得是这个形式：application.worksheetfunction.sum

qjsu

hwc2ycy 发表于 2012-10-19 21:47
EXCEL里用的函数和VBA里用的还是有区别的。
虽然在VBA里也可以引用工作表函数，但是要加前缀。
sum在VBA里 ...

在请问一下，在VBA里面我想表示
i=4 to 20
Ai:Mi
应该怎么写？

chin15

range("a" & i & ":M" & i)

qjsu

以下面这句为例吧~~
If Application.WorksheetFunction.CountIf(C:Li, m3) > 1 Then

lsehbyc

Sub t1()
Dim x As Integer
For x = 2 To 1000 Step 1
If Range("B" & x) >= 90 Then
Range("F" & x) = "九十多分"
ElseIf Range(("B" & x)) >= 80 Then
Range("F" & x) = "八十多分"
ElseIf Range(("B" & x)) >= 70 Then
Range("F" & x) = "七十多分"
ElseIf Range(("B" & x)) >= 60 Then
Range("F" & x) = "六十多分"
ElseIf Range("B" & x) >= 50 Then
Range("F" & x) = "五十多分"
ElseIf Range("B" & x) >= 40 Then
Range("F" & x) = "四十多分"
ElseIf Range("B" & x) >= 30 Then
Range("F" & x) = "三十多分"
ElseIf Range("B" & x) >= 20 Then
Range("F" & x) = "二十多分"
ElseIf Range("B" & x) >= 10 Then
Range("F" & x) = "十多分"
ElseIf Range("B" & x) > 0 Then
Range("F" & x) = "多少有几分吧"
Else: Range("F" & x) = "你怎么会考负分呢？"
End If
nest x
End Sub
提示“子过程或函数未定义”是怎么回事啊？

过儿

lsehbyc 发表于 2013-6-10 00:23
Sub t1()
Dim x As Integer
For x = 2 To 1000 Step 1

nest x 拼写错了，是next

这是照着网上做的模拟考试试卷出题按钮的宏，显示子程序或函数未定义，请问怎么解决？可以的话能不能直接帮我完成
Sub 出题()
Sheet("单选题").Range("A:D").Sort Key1:=Sheet("单选题").Range("D2"), Order1:=xlAscending, Header:=xlGuess
Sheet("判断题").Range("A:D").Sort Key1:=Sheet("判断题").Range("D2"), Order1:=xlAscending, Header:=xlGuess
Columns("B:B").Rows.AutoFit
Range("D5").Select
ActiveSheet.Shapes("出题按钮").Visible = False
ActiveSheet.Shapes("评分按钮").Visible = True
重来:

End Sub

http://www.excelpx.com/forum.php?mod=attachment&aid=NDMzNTA4fGYzMjg5MTgyN2E1MGRmNDc2NjUwYzYwNGU2NGZmZTMwfDE3MTM1MzQ1MzA%3D&request=yes&_f=.zip

lovelfg

溞Ε 发表于 2019-5-15 23:08
这是照着网上做的模拟考试试卷出题按钮的宏，显示子程序或函数未定义，请问怎么解决？可以的话能不能直接帮 ...

sheet改成sheets