返回列表 上一主題 發帖

[發問] Excell 2003 MsgBox莫明奇妙的 bug~~~

[發問] Excell 2003 MsgBox莫明奇妙的 bug~~~

Excell 2003 MsgBox莫明奇妙的 bug~~~

msgbox_bug.zip (14.25 KB)

原本的程式很大一個,開啟時很耗時間,所以我加一個 timer 來顯示啟動的時間,以利修改程式,

但是有bug,我一直測試、一直刪除,刪到最後剩下這三個程式區塊

公式一、
用在 設定格式化條件,主要目的是,儲存格 C:L 都是利用公式產生的,

當儲存格內容被修改成直接寫入時(也就是公式被改掉)會用紅色顯示,方便辦視

這樣才知道這格的資料是寫死的,非公式產生

Option Explicit

'自動化格式明顯標示
Function IsFormula(rng As Range) As Boolean
Dim cell As Range
    IsFormula = 1
    For Each cell In rng
        If cell.HasFormula = False Then
            IsFormula = 0
        End If
    Next
End Function

在檔案開啟時,會執行兩個動作,

公式二、
#1 一個是選擇 a5這一個儲存格(這是因為存檔時,位置儲存格的位址會在其它地方,要方便每次開啟的操作,所以設定到 a5

公式三、
#2 是 將 尋找的選項,公式改成內容。預設是公式,這會讓尋找變的很麻煩(內容通通是公式產生),

每次都要手動改,所以加了這一段,讓尋找的選項,變成內容。


Dim Time0

Private Sub Workbook_Open()

Time0 = Timer



'--#1-----------------------------------------------------------


        Sheets("Sheet1").Activate
        Sheets("Sheet1").Range("A5").Select


'--#2-----------------------------------------------------------
'Configure Excel to look by default in Formulas, Values and Comments
'http://superuser.com/questions/114831/configure-excel-to-look-by-default-in-formulas-values-and-comments
        '修正尋找設定為內容而非公式
        'Application.ScreenUpdating = False
                Worksheets(1).Cells.Find _
                What:="", _
                After:=ActiveCell, _
                LookIn:=xlValues, _
                LookAt:=xlPart, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlNext, _
                MatchCase:=False, _
                MatchByte:=False, _
                SearchFormat:=False
        'Application.ScreenUpdating = True

'-------------------------------------------------------------
'Dim Time0
'Time0 = Timer
MsgBox "執行時間#2 " & Timer - Time0 & " 秒", vbOKOnly

'-------------------------------------------------------------

End Sub



問題點在於,最後一行的 MsgBox "執行時間#2 " & Timer - Time0 & " 秒", vbOKOnly  不會執行

因為自動化格式 、 尋找 、 點選 a5  這三個動作,結果導致 MsgBox 不會顯示。

將 MsgBox 移到 #2之上,就會顯示,在#2之後就不會顯示,將 #1 改 成沒有自動作格式的 欄 ex: n1 就會顯示

將a5 的公式刪除也會顯示,將 自動化格式移除,也會顯示

反正就是這三個剛好組合在一起,MsgBox 就不會顯示

搞的我好煩呀~~

請問問題源頭是什麼?
公開經驗,創造智慧(我又不靠這過活)
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

        靜思自在 : 為人處世要小心細心,但不要「小心眼」。
返回列表 上一主題