編譯錯誤,於隱藏模組

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

16^# 跳轉到 »

發表於 2010-11-24 20:02 | 只看該作者

2003版是1.1
2002是1.0

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

15^#

發表於 2010-11-24 19:56 | 只看該作者

回復 13# 周大偉

應是你的月曆控制項不存在，讓EXCEL處於設計模式
看看有沒有看到月曆控制項，若是沒有就設置上去
因為你說其他電腦可以執行，有可能遺失控制項
從工具/設定引用項目中檢查
勾選Microsoft Calendar Control 2007(這是2007版中所見名稱)
沒記錯的話2003版前應該是日曆控制項?.0
若是沒有此控制項可勾選，可能是那台電腦沒有安裝Access
重新安裝Access看是否能解決問題

學海無涯_不恥下問

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

14^#

發表於 2010-11-24 19:39 | 只看該作者

這樣的話幾乎可以斷定如4樓Min版主所說的，設定引用項目遺失的問題了。
在設定引用項目中找到遺失的引用，取消勾選。然後最好儲存後重啟！
若還是不行，應該這台電腦沒有把日曆控件拉出來！

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

13^#

發表於 2010-11-24 18:55 | 只看該作者

本帖最後由 Hsieh 於 2010-11-24 19:38 編輯

oobird大大,Solely大大, 两位好,先謝過回應
两位大大的指導, 問題還是解決不來,
Solely大大所指出, 不知我是否有理解錯, 還請Solely大大再度指導, 因按其指示修改還是不成功, 謝謝!!
oobird大大, 已按其修改處修改, 程式錯誤處呈現尾處Calendar1.Visible = False,請大大教導, 謝謝!!

Private Sub Worksheet_SelectionChange(ByVal T As Range)
dim C as range
If T.Count > 2 Then End
For Each C In [d15:d35]
If C.Value >= 1 And C.Value < 500 Then C.Borders(6).LineStyle = 1
Next
If Not Application.Intersect([h15:h35], T) Is Nothing Then
If T.Borders(6).LineStyle = 1 Then
T.Borders(6).LineStyle = 0
Else
T.Borders(6).LineStyle = 1
End If
ElseIf T.Address = "$I$10:$J$10" Then
Calendar1.Visible = True: Calendar1 = Date
Else
Calendar1.Visible = False
End If
End Sub

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

12^#

發表於 2010-11-23 21:45 | 只看該作者

If T.Count > 2 Then End為什麼寫兩行？
把第一行改成dim C as range試試。

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

11^#

發表於 2010-11-23 21:21 | 只看該作者

先謝過各大大回應, 衷心感謝,
今日按HSIEH大大的教指導, 解除保護, 在公司中再開啟該檔案, 如HSIEH大大所言, 跳出錯誤處, 但小弟實看不出錯在何處, 而為何小弟家中及公司中的個人電腦則沒有問題, 請大大協助修改,
solely大大, 謝謝回應, 大大所指出之處, 小弟明天會回公司試試, 衷心感謝回應,
我現把該檔案上傳, 請大大協助修改, 實感激萬分....

aa.rar (31.27 KB)

solely

帖子: 92
主題: 18
精華: 0
積分: 195
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台北
註冊時間: 2010-8-15
最後登錄: 2011-8-11

10^#

發表於 2010-11-23 19:10 | 只看該作者

我猜.....
[I10] = Calendar1 的[I10] 會跳異常
要改成cells(10,9)
另外For Each C In [d15:d35]
要先Dim C ，至於 [d15:d35]也要以cells方式表示

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

9^#

發表於 2010-11-22 22:54 | 只看該作者

謝謝提示, 明天回到公司, 試試

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2010-11-22 22:44 | 只看該作者

你解除VBE密碼後，在出現錯誤的電腦中執行
看出現錯誤時的中斷點是哪一行?
就知道問題出在哪裡
依此程式碼會出錯得應該只有月曆控制項
你先自行檢查看看

學海無涯_不恥下問

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

7^#

發表於 2010-11-22 22:25 | 只看該作者

謝謝大大們,
小弟不才, 實看不端倪, 現把程式碼傳上,望大大們指導,實感激,謝謝!!
Private Sub Calendar1_Click()
[I10] = Calendar1
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 2 Then End
If T.Count > 2 Then End
For Each C In [d15:d35]
If C.Value >= 1 And C.Value < 500 Then C.Borders(6).LineStyle = 1
Next
If Not Application.Intersect([h15:h35], T) Is Nothing Then
If T.Borders(6).LineStyle = 1 Then
T.Borders(6).LineStyle = 0
Else
T.Borders(6).LineStyle = 1
End If
ElseIf T.Address = "$I$10

J$10" Then
Calendar1.Visible = True: Calendar1 = Date
Else
Calendar1.Visible = False
End If
End Sub