- 帖子
- 79
- 主題
- 33
- 精華
- 0
- 積分
- 123
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- x64
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2013-10-24
- 最後登錄
- 2024-3-28
|
[發問] 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 就不會顯示
搞的我好煩呀~~
請問問題源頭是什麼？ |
|
發表於 2017-6-17 22:22
| 
