Question

我有EXCEL问题需要请教，是关于VB代码限制使用次数的，运行时总是提示“1004” 类Range的Select方法无效。

Private Sub Workbook_Open()
Dim Msg, Style, Title
'对话框内容
Msg = " 敬告,内部资料，禁止外传！ ggzhao设计于2011年11月18日 "
'Style=vbokonly
'对话框标题
Title = " 欢迎使用PCB板报价计算器--A00版 "
MsgBox Msg, Style, Title

Dim x
Application.ScreenUpdating = False
x = Sheet1.Range("IV1")
Sheet1.Range("IV1") = x + 1
ThisWorkbook.Save
Sheet1.Range("IV1").Select
If Sheet1.Range("IV1") > 258 Then
MsgBox "Abnormal data, please check!"
ThisWorkbook.Close savechanges:=True
End If
If Count > CountTop Or DateDiff("d", Date, #1/18/2012#) < 0 Then
MsgBox "Data needs to be updated, please check!"
ThisWorkbook.Close savechanges:=True
End If
Application.ScreenUpdating = True

End Sub

我的邮箱是ggzhao@163.com,如果需要我可以将文件发给您！
急切希望得到您的大力帮忙！
Q

Answer 1

我新建文件用你的代码，运行没有错误。或者你可以把文件发给我看看。