返回列表 上一主題 發帖

切換符合條件欄位時，能跳出訊息框警示

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
1# 跳轉到 »
發表於 2017-2-20 18:51 | 顯示全部帖子
回復 1# chi830
試試看!
  1. '放在"工作表1" 的vba, 屬"工作表1" 專用(Private), 不用再 with...
  2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  3.     Dim mRng As Range
  4.     Set mRng = Union([D3], [D5])    '設定Trigger範圍為 [D3], [D5]
  5.     If Not Intersect(Target, mRng) Is Nothing Then
  6.         If [D3] >= 100000 Or [D5] >= 100000 Then
  7.              MsgBox Range("E3")
  8.         End If
  9.     End If
  10. End Sub
複製代碼

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
2#
發表於 2017-2-21 13:56 | 顯示全部帖子
回復 3# chi830
'剛剛才發現 [E3],[E5] 是公式, 請刪除
'又原來我的想法有點問題(請更正)
'又原來的數字是10萬,不是百萬(已更正)
'下列兩者並存 (SelectionChange 及 Change)請全部貼上
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$D$3" And [D3] >= 1000000 Then
        MsgBox "[D3]的金額超過1百萬，請依核決權限上呈董事長核准"
        Exit Sub
    End If
    If Target.Address = "$D$5" And [D5] >= 1000000 Then
        MsgBox "[D5]的金額超過1百萬，請依核決權限上呈董事長核准"
        Exit Sub
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$3" And [D3] >= 1000000 Then
        MsgBox "[D3]的金額超過1百萬，請依核決權限上呈董事長核准"
        Exit Sub
    End If
    If Target.Address = "$D$5" And [D5] >= 1000000 Then
        MsgBox "[D5]的金額超過1百萬，請依核決權限上呈董事長核准"
        Exit Sub
    End If
End Sub

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題