返回列表 上一主題 發帖

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

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-9-14 09:59 | 顯示全部帖子

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

本帖最後由 av8d 於 2011-9-14 16:59 編輯

例如我在K5輸入了氣球~當場就會跳出提示訊息"請事先打氣"~

我測試了一下~可惜失敗了~
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[K2].Sort Key1:=Range("K2")
If Range("K2") = "氣球" Then
    MsgBox 請事先打氣
End If
End Sub
收藏 分享

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
2#
發表於 2011-9-14 13:47 | 顯示全部帖子
回復 2# GBKEE


    我的程式好像寫錯了~不知道是要重寫還是要修改了..

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
3#
發表於 2011-9-14 14:38 | 顯示全部帖子
回復 4# oobird


    大大您好~我自己測試了下~找到一個很類似的方法~
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Union(Target, [K:K]).Address <> [K:K].Address Then Exit Sub

If Target = "氣球" Then
MsgBox "注意：氣球必須事先打氣。"
End If

End Sub

以上會針對K欄儲存格去判斷~當點到有"氣球"字樣的儲存格立即會跳出注意視窗

而我的需求則是當該儲存格輸入氣球的時候跳出注意視窗~我該如何改寫呢?

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
返回列表 上一主題