求问VBA编程中出现错误：缺少子程序、函数或属性

这是我的程序：
Public Sub 自动记录调查数据()
Dim temp As Integer
Dim count As Integer
temp Sheets("数据表").[A1].CurrentRegion.roes.count
count = temp - 3 '
Sheets("问卷").Select
Range("A50:H50").Select
Selection.Copy '
Sheets ("数据表"), Activate
Rows(temp + 1).Select
ActiveSheet.Paste
Cells(temp + 1, 13).Value = count + 1
Sheets("问卷").Select
Application.CutCopyMode = False
MsgBox "记录已成功保存，谢谢！", vbOKOnly, "确定"
End Sub
这程序是用来自动记录问卷的调查结果的

举报该问题

推荐答案 2020-06-10

部分代码有误，修正参考如下：
Public Sub 自动记录调查数据()
Dim temp As Integer
Dim count As Integer
temp=Sheets("数据表").[A1].CurrentRegion.Rows.count
count = temp - 3 '
Sheets("问卷").Select
Range("A50:H50").Select
Selection.Copy '
Sheets("数据表").Activate
Rows(temp + 1).Select
ActiveSheet.Paste
Cells(temp + 1, 13).Value = count + 1
Sheets("问卷").Select
Application.CutCopyMode = False
MsgBox "记录已成功保存，谢谢！", vbOKOnly, "确定"
End Sub
希望能帮上忙！

温馨提示：答案为网友推荐，仅供参考

当前网址：http://55.wendadaohang.com/zd/IGGQGIQ8QQ4cQL8LI4L.html

相似回答

vb程序中缺少子程序,函数或属性答：1、经调试，Picture1.Print a(j).zgh; a(j).xm: a(j).gz错把；打错为：。2、最多可存放5人的数据，经调试，这个程序只能存储4个数据，打印出来也是4个数据。经修改后的代码为：Option Explicit Private Type zg zgh As String * 3 xm As String * 3 gz As String * 3 End Type Dim...

VB:缺少子程序、函数或属性是怎么回事?答：Option Explicit '定义修改下类型更好 Private Type zg zgh As Integer xm As String * 3 gz As Integer End Type Dim a(0 To 4) As zg, i Private Sub command1_click()i = i + 1 If i > 4 Then MsgBox "最多可存放5人的数据": Exit Sub With a(i).zgh = Val(Text1).xm ...

vb总是出现缺少子程序 函数或属性 是怎么回事?答：只能说你的程序语法错误一大堆，可能是从来没有写过vb的。我修改了一下你的代码如下：Dim firstnum As Boolean Dim strnum1 As String Private Sub Command1_Click(index As Integer)Select Case index Case 0 To 9 If firstnum Then strnum1 = Trim(Str(index))firstnum = False Else strnum...

VB中为什么说缺少子程序,函数或属性答：Print "圆的面积为：" : S 把冒号改成分号，为 Print "圆的面积为：" ; S 下边那一句也一样冒号用来分隔一行中的几条语句，用冒号的话，编译器会把变量S解释为过程，当然就出错了

VB为什么显示“缺少子程序,函数或属性答：Print "数组中的负元素之和为：";s 改为 Print "数组中的负元素之和为："; s 意思就是不要换行！

大家正在搜

登录错误缺少参数mobile 网页弹出缺少函数主程序子程序子程序编程实例子程序放主程序里格式错误缺少根元素网页错误行125缺少1 网页错误详细信息缺少对象 win7应用程序缺少根元素