返回列表 上一主題 發帖

[發問] 如何設定在輸入"氣球"時~提示訊息!(已解決，非常感謝G,O,J大的幫忙)

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
1# 跳轉到 »
發表於 2011-9-14 14:32 | 顯示全部帖子
首先要選對使用什麼事件
我在K5輸入了氣球~當場就會跳出提示訊息"請事先打氣"~
這種要求使用的應該是 Worksheet_Change事件
在改變或輸入儲存格時響應。
若滑鼠點擊K5時要跳出提示，則用你現在的Worksheet_SelectionChange事件
另外：
例如我在K5輸入了氣球...
跟後面的If Range("K2") = "氣球" Then
   完全不搭嘎

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2011-9-14 14:54 | 顯示全部帖子
而我的需求則是當該儲存格輸入氣球的時候跳出注意視窗~我該如何改寫呢
前面不是說了嗎？
這種要求使用的應該是 Worksheet_Change事件
在改變或輸入儲存格時響應。
你可試試：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Column <> 11 Then Exit Sub
If Target = "氣球" Then
MsgBox "注意：氣球必須事先打氣。"
End If
End Sub

若你堅持用Worksheet_SelectionChange事件
神仙都幫不了你。

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題