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

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

av8d

大學生 Rank: 4

帖子: 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

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-9-14 10:29 | 只看該作者

回復 1# av8d
MsgBox "請事先打氣"

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

3^#

發表於 2011-9-14 13:47 | 只看該作者

回復 2# GBKEE

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

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

4^#

發表於 2011-9-14 14:32 | 只看該作者

首先要選對使用什麼事件
我在K5輸入了氣球~當場就會跳出提示訊息"請事先打氣"~
這種要求使用的應該是 Worksheet_Change事件
在改變或輸入儲存格時響應。
若滑鼠點擊K5時要跳出提示，則用你現在的Worksheet_SelectionChange事件
另外：
例如我在K5輸入了氣球...
跟後面的If Range("K2") = "氣球" Then
完全不搭嘎

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

5^#

發表於 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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

6^#

發表於 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

jimmyhk

中學生 Rank: 2

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2025-1-28

7^#

發表於 2011-9-14 15:48 | 只看該作者

回復 6# oobird

可能是樓主未明白 Worksheet_SelectionChange 和 Worksheet_Change 的分別吧~
這個地方我以前亦費了很多時間才理解 .

這裡有個不錯的解說:

http://gb.twbts.com/index.php/topic,717.0.html

TOP

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

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