返回列表下一主題上一主題發帖

[發問] 請問在ThisWorkbook設定變數出現空白這種情況如何處理

barrykuo

小學生 Rank: 1

帖子: 39
主題: 4
精華: 0
積分: 48
點名: 0
作業系統: windows 7
軟體版本: sp1
閱讀權限: 10
性別: 男
註冊時間: 2013-2-2
最後登錄: 2014-8-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-7-2 09:33 | 顯示全部帖子

[發問] 請問在ThisWorkbook設定變數出現空白這種情況如何處理

請教各位大大！
在ThisWorkbook裡
寫
Sub worksheet_open()
one=99
end Sub
然後在模組裡寫下
Sub My()
Dim MyTime, MyStr, timeend

MyTime = Sheets("Sheet4").Range("C2")

MsgBox one '希望顯示one為99
MyStr = Format(MyTime, "00:00:00")
MsgBox MyStr
Sheets("Sheet4").Range("C3") = MyStr
If Sheets("Sheet4").Range("A3") > MyTime Then
timeend = ("13:45:00 > 13:44:59")
MsgBox timeend
End If

If Sheets("Sheet4").Range("A3") < MyTime Then
timeend = ("08:45:00 < 13:44:59")
MsgBox timeend
End If
End Sub
==================================
希望紅色顯示出來99，結果出現空白，