編譯錯誤,於隱藏模組

　頭銜: 街友一族

帖子: 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

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

　頭銜: 街友一族

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

論壇貢獻勳章

14^#

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

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

Hsieh

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

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看是否能解決問題

學海無涯_不恥下問

　頭銜: 街友一族

帖子: 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

solely

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

17^#

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

如果，錯誤最後停留在Calendar1.Visible
那就像各位版主所說的，其他控制項裏沒有月曆控制項XD
如果，你們公司的電腦和我們公司的一樣的話
那麼，它們是看不懂什麼是[I10]、Chr(10)、For Each C...

周大偉

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

18^#

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

"oobird"Soleiy"Hsieh"Min"大大,
好, 謝謝回應, 看完了這幾段指導, 總結是找不到月曆控制項, 心想, 家中電腦及公司個人電腦都可以使用該月曆控制項, 為何在公司其它電腦中用不著, 同是03excel, 為何有此情況, 再翻看各大大指導文,Hsieh文中提到access, 再聯想各大大文中所提及的沒有該控制項, 腦海突然明白了一件事, 程式碼應沒錯誤, 如各大大所說, 沒有該控制項, 因家中及公司個人電腦能使用的原因是安裝了access, 該軟件是有月曆控制項, 而03excel, 有沒有該月曆控制項, 而能正常使用中, 都是安裝了access, 這點我一直都忽略, 當然真正原因明天回到公司中再印證便知曉, 在此再次謝謝各大大無私的指導, 感恩, 願主庇佑各大大..

周大偉

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

19^#

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

本帖最後由周大偉於 2010-11-25 18:55 編輯

終於印證了, 如大大們所說, 是沒有該月曆控件, 我用的電腦有access軟件,而在沒有該軟件電腦中使用,沒法使用該控制項, 我在控制工具箱中,其他控制項中查看有沒有該月曆控制項, 真是沒有該控制項,這便使迷惑多時的問題解開,
謝謝大大們於此期間的指導,

但我有另一問題請教,excel軟件是不是沒有該控制項,而必須具備access軟件,才能用到該月曆控制項, 可有其它途徑,無須安裝access軟件,而excel軟件就可使用月曆控制項. 謝謝!!

　頭銜: 街友一族

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

論壇貢獻勳章

20^#

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

把你電腦中的複製過去就行了！