編譯錯誤,於隱藏模組

周大偉

大大們,好
小弟有一vba程式工作表, 在家中及公司的個人電腦中使用是沒有問題, 但當這工作給予公司其他同事使用時, 會出現"編譯錯誤,於隱藏模組"請教大大們指導..謝謝!!

周大偉

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

周大偉

謝謝大大們,
小弟不才, 實看不端倪, 現把程式碼傳上,望大大們指導,實感激,謝謝!!
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$10J$10" Then
   Calendar1.Visible = True: Calendar1 = Date
   Else
   Calendar1.Visible = False
End If
End Sub

周大偉

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

周大偉

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

下載次數: 11

2010-11-23 21:21

周大偉

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

周大偉

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

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

周大偉

oobird大大, 好
謝謝指導, 祝願快樂..

周大偉

oobird大大,
謝謝提供路徑, 衷心感謝,
其實我打算重灌office, 現在我可多個選擇了,
最後再謝過大大, 聖誕快到, 祝願各版主大大,前輩, 聖誕快樂...新年進步..