多账套免费财务系统：星星桥_账务处理系统

50707698

感谢楼主的无私奉献，我的QQ邮箱50707698@qq.com谢谢

zzyaoxh

楼主，请问选月份，输入凭证时提示：运行时错误“5712”，应用程序定义或对象定义错误。怎么解决和处理？

zzyaoxh

Sub pzlr() '''凭证录入隐藏,,标准凭证样式
Set sh = Sheets("凭证入")
sh.ScrollArea = "b3:i299"
  sh.Range("b5:i300,g3") = ""
  ' sh.Range("b5:i300") = ""
   sh.Columns("E:E").EntireColumn.Hidden = True
   sh.Columns("k:iv").EntireColumn.Hidden = True
   sh.Rows("1:10").EntireRow.Hidden = False
   sh.Rows("11:300").EntireRow.Hidden = True
   sh.Rows("301:305").EntireRow.Hidden = False
   sh.Rows("306:65536").EntireRow.Hidden = True
   sh.CommandButton2.Enabled = False '''''保存
  ActiveWindow.ScrollRow = 1 '回到第一行
End Sub = 1 '回到第一行
End Sub光标在黄色的第三行

zzyaoxh

Sub pzlr() '''凭证录入隐藏,,标准凭证样式
Set sh = Sheets("凭证入")
sh.ScrollArea = "b3:i299"
  sh.Range("b5:i300,g3") = ""
  ' sh.Range("b5:i300") = ""
   sh.Columns("E:E").EntireColumn.Hidden = True
   sh.Columns("k:iv").EntireColumn.Hidden = True
   sh.Rows("1:10").EntireRow.Hidden = False
   sh.Rows("11:300").EntireRow.Hidden = True
   sh.Rows("301:305").EntireRow.Hidden = False
   sh.Rows("306:65536").EntireRow.Hidden = True
   sh.CommandButton2.Enabled = False '''''保存
  ActiveWindow.ScrollRow = 1 '回到第一行
End Sub

zzyaoxh

Sub pzlr() '''凭证录入隐藏,,标准凭证样式
Set sh = Sheets("凭证入")
sh.ScrollArea = "b3:i299"
  sh.Range("b5:i300,g3") = ""
  ' sh.Range("b5:i300") = ""
   sh.Columns("E:E").EntireColumn.Hidden = True
   sh.Columns("k:iv").EntireColumn.Hidden = True
   sh.Rows("1:10").EntireRow.Hidden = False
   sh.Rows("11:300").EntireRow.Hidden = True
   sh.Rows("301:305").EntireRow.Hidden = False
   sh.Rows("306:65536").EntireRow.Hidden = True
   sh.CommandButton2.Enabled = False '''''保存
  ActiveWindow.ScrollRow = 1 '回到第一行
End Sub

zzyaoxh

1. Sub pzlr() '''凭证录入隐藏,,标准凭证样式
   
2. Set sh = Sheets("凭证入")
   
3. sh.ScrollArea = "b3:i299"
   
4.   sh.Range("b5:i300,g3") = ""
   
5.   ' sh.Range("b5:i300") = ""
   
6.    sh.Columns("E:E").EntireColumn.Hidden = True
   
7.    sh.Columns("k:iv").EntireColumn.Hidden = True
   
8.    sh.Rows("1:10").EntireRow.Hidden = False
   
9.    sh.Rows("11:300").EntireRow.Hidden = True
   
10.    sh.Rows("301:305").EntireRow.Hidden = False
    
11.    sh.Rows("306:65536").EntireRow.Hidden = True
    
12.    sh.CommandButton2.Enabled = False '''''保存
    
13.   ActiveWindow.ScrollRow = 1 '回到第一行
    
14. End Sub

复制代码

zzyaoxh

具体的发在您QQ上

zzyaoxh

因未显示，发重复了，不知如何删、

东来东往

能发一个给我吗，1634027297@qq.com

50707698

不知道怎么回复版主，邮件收到了，谢谢版主的分享