如何使答案變色? - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 如何使答案變色?

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

[發問] 如何使答案變色?

中學生 Rank: 2

帖子: 45
主題: 1
精華: 0
積分: 51
點名: 0
作業系統: windows 7
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2013-4-16
最後登錄: 2013-12-30

1^# 跳轉到 »

發表於 2013-11-6 00:17 | 顯示全部帖子

回復 3# pisso

另一個

Sub Testtes()
With ActiveSheet
If .Range("D2") > .Range("C2") Then
MsgBox ("too hot")
ElseIf (.Range("D2") > .Range("B2") And .Range("C2") > .Range("D2")) Then
MsgBox ("warning")
ElseIf (.Range("D2") > .Range("A2") And .Range("B2") > .Range("D2")) Then
MsgBox ("safe")
Else: MsgBox ("too cold")
End If
End With
End Sub

複製代碼

靜思自在 : 盡多少本份，就得多少本事。

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