編譯錯誤,於隱藏模組

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

2^#

發表於 2010-11-22 20:37 | 顯示全部帖子

两位大大好
小弟剛回到家中, 看到2位大大回應,其實我也曾想過是否是不同版本的軟件關係,
但公司中用的全是統一作業系統, 應不是作業系統,oobird大大所提供的綱址未看過, 小弟會進入, 希望能找出原因..在此謝謝二位大大回應, 衷心謝謝..

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

3^#

發表於 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

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

4^#

發表於 2010-11-22 22:54 | 顯示全部帖子

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

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

5^#

發表於 2010-11-23 21:21 | 顯示全部帖子

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

aa.rar (31.27 KB)

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

6^#

發表於 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

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

7^#

發表於 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

8^#

發表於 2010-11-25 18:53 | 顯示全部帖子

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

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

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