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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

編譯錯誤,於隱藏模組

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

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

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

通常這種現象發生於程式運行時發生錯誤本來應該會跳岀偵錯視窗
而vba保護的狀態下所以無法檢視vbe
若不同電腦才會發生
可檢查office版本是否相同

學海無涯_不恥下問

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

3^#

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

http://support.microsoft.com/kb/307410/zh-tw
這裡的看過了嗎？

TOP

周大偉

中學生 Rank: 2

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

4^#

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

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

TOP

solely

中學生 Rank: 2

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

5^#

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

這個問題.....我碰過，凡是有變數的都要宣告
例如for i =1 to 100
我的電腦不用Dim i 程式依然可以執行，公司的就不行。
原本還誤以為是2010與2003版本的問題，差點把公司的2010砍了XD

TOP

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 172
主題: 39
精華: 20
積分: 177
點名: 0
作業系統: Microsoft Windows XP
軟體版本: Microsoft Office 2003
閱讀權限: 100
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2023-3-19

論壇貢獻勳章帥哥勳章

6^#

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

大大們,好
小弟有一vba程式工作表, 在家中及公司的個人電腦中使用是沒有問題, 但當這工作給予公司其他同事 ...
周大偉發表於 2010/11/22 07:35 AM

檢查一下"引用項目"
看看有沒有遺漏的~

若是我回答，使您滿意，請您讓我知道！
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

周大偉

中學生 Rank: 2

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

8^#

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

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

學海無涯_不恥下問

TOP

周大偉