编译错误 缺少End Sub 怎么解决
Sub 保存入库单()
Private Sub CommandButton1_Click()
Dim R, R1 As Long
R = Range("B13").End(xlUp).Row - 7
If R < 1 Then Exit Sub
With Sheets("入库数据")
R1 = .Range("b65536").End(xlUp).Row + 1
.Cells(R1, 2).Resize(R, 1) = Range("E3")
.Cells(R1, 3).Resize(R, 1) = Range("I3")
.Cells(R1, 4).Resize(R, 1) = Range("B5")
.Cells(R1, 5).Resize(R, 1) = Range("B3")
.Cells(R1, 7).Resize(R, 1) = Range("B8").Resize(R, 1).Value
.Cells(R1, 13).Resize(R, 1) = Range("F8").Resize(R, 1).Value
Range("B3:C6").ClearContents
Range("E3:F3").ClearContents
Range("I3:I5").ClearContents
Range("B8:I13").ClearContents
End With
End Sub
Private Sub CommandButton2_Click()
Sheets("入库单").PrintOut
End Sub
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)是一个‘表格点选位置改变触发的事件过程’，不需要再增加‘Sub 按名称筛选片段图片()’也不需要写在模块中，Sheet("引用")应写作Sheets("引用")其他类似，没有你的表格，无法测试。
Dim R, R1 As Long
R = Range("B13").End(xlUp).Row - 7
If R < 1 Then Exit Sub
With Sheets("入库数据")
R1 = .Range("b65536").End(xlUp).Row + 1
.Cells(R1, 2).Resize(R, 1) = Range("E3")
.Cells(R1, 3).Resize(R, 1) = Range("I3")
.Cells(R1, 4).Resize(R, 1) = Range("B5")
.Cells(R1, 5).Resize(R, 1) = Range("B3")
.Cells(R1, 7).Resize(R, 1) = Range("B8").Resize(R, 1).Value
.Cells(R1, 13).Resize(R, 1) = Range("F8").Resize(R, 1).Value
Range("B3:C6").ClearContents
Range("E3:F3").ClearContents
Range("I3:I5").ClearContents
Range("B8:I13").ClearContents
End With
End Sub
Private Sub CommandButton2_Click()
Sheets("入库单").PrintOut
End Sub追问
这能指定宏吗？我想在excel 表中点击按钮执行该程序 请指点 不胜感激
追答这个代码是针对两个按钮做的，你创建两个按钮，名称分别是CommandButton1和CommandButton2，把对应的代码放进去就行了，点击按钮，分别执行响应的代码
本回答被提问者采纳...运行宏时总是提示编译错误:缺少 End Sub 请帮忙看看:
那是因为你不小心打开的录入的宏的代码!把过程结束语End Sub删除了! 你按ALT+F11打开VBE编辑器,打开右边模块,打开你录制的宏的名字.里面有代码,在所有代码后加上End Sub就行了!
Excel VBA里面编译错误:缺少end sub怎么解决?
看看是否中间有结束的地方，或者是加的end sub在执行时能被跳过去
为什么我的VB提示缺少End Sub?
你开始的代码错误较多，改成下面的样子，运行时点击标签就行了。Private Sub Label1_Click()Label1 = a End Sub Function a()As String Dim b(2)As String b(0)= 1 b(1)= 2 b(2)= 3 'b(3)= 4 Randomize a = b(Rnd 2)End Function 问题补充下面的代码没有问题，可以运行。
excel中添加vba过程,老是不能运行,说是缺少end sub 请高手帮忙_百度知 ...
把最后面的一个END SUB移到第二行下面即可 搞不懂你为什么一个全局变量要那样做呢 修改后应该是这样的 Public Sub reg()Dim ydtext As String '原单元格值 End Sub Private Sub Worksheet_Change(ByVal Target As Range)If Target.Cells.Count = 1 Then Dim mycom As Comment Dim ybzstr As ...
...但运行一直提示编译错误 缺少End Sub 请问是什么原因呢
你第一个Sub后面没有跟End sub 或者 你把第一句也就是途中蓝色的部分，删除就可以了。
VB编译错误缺少end sub怎么办
把Private Sub Form_Load()这句删了
Vba 编程出错,老是说我缺少End Sub。。。求助大神!!
第一个 删除这条 Sub 阶乘函数()上面已经有sub，不能再里面再出现另外一个过程 第二个 If score >= 85 And score <= 100 Then MsgBox (score & "分的等级是A"), vbOKOnly, "学生成绩转换"前面四条，像这样改成同一行或者，或者 添加End if语句 第三个：Private Sub ToggleButton5_...
Excel VBA里面编译错误 缺少End Sub 怎么解决
Private Sub Worksheet_Change(ByVal Target As Range)是一个‘表格点选位置改变触发的事件过程’，不需要再增加‘Sub 按名称筛选片段图片()’也不需要写在模块中，Sheet("引用")应写作Sheets("引用")其他类似，没有你的表格，无法测试。
EXCEL编程中提示"缺少End Sub"是什么问题?在网上找的程序,写进去为什么...
对那图进行的回答，第一行已经是一个SUB的开始了，就没有必要再写一个Sub hebingbiao()解决就是把Sub hebingbiao()行删除 两个End Sub只留一个就行了。
为什么会提示缺少end sub
楼主，你现在写的这段代码绝对没问题！请你耐心检查其他代码，绝对是其他代码出错了！ 当你找到出错的地方后再自己添加上"End Sub"就可以了！麻烦采纳，谢谢!
