跳到主要內容

如果單元格大於或小於Excel中的特定值,如何彈出消息框?

如果一個單元格大於或小於另一個單元格,我需要彈出一個消息框以在Excel中發出警報。 如何在Excel中解決此問題? 在本文中,我將討論一些處理它的代碼。

如果列中的單元格值大於或小於另一個單元格,則彈出一個消息框

如果一個單元格中的單元格值大於或小於另一個單元格,則彈出一個消息框


如果列中的單元格值大於或小於另一個單元格,則彈出一個消息框

假設我在單元格A100中有一個特定的數字1,現在,當在D列中輸入的數字大於單元格A100中的1時,應該彈出一個消息框以提醒用戶。

在這裡,下面的VBA代碼可以幫助您完成它,請執行以下步驟:

1。 轉到您要使用的工作表。

2。 右鍵單擊工作表標籤,然後選擇 查看代碼 從上下文菜單中,彈出 Microsoft Visual Basic for Applications 窗口,請將以下代碼複製並粘貼到空白的“模塊”窗口中,請參見屏幕截圖:

VBA代碼:如果列中的單元格值大於或小於單元格,則彈出一個消息框

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

備註:在上面的代碼中, Sheet1 是您要使用的工作表; A1 是您要比較的單元格值; D:D 是您要與單元格A1比較的列。

3。 然後,保存並關閉代碼窗口,從現在開始,如果您在D列中輸入一個大於100的數字,則會彈出一個消息框,請參見屏幕截圖:


如果一個單元格中的單元格值大於或小於另一個單元格,則彈出一個消息框

如果您希望當一個單元格值大於或小於另一個單元格時彈出一個消息框,請應用以下代碼:

1。 轉到您要使用的工作表。

2。 右鍵單擊工作表標籤,然後選擇 查看代碼 從上下文菜單中,彈出 Microsoft Visual Basic for Applications 窗口,請將以下代碼複製並粘貼到空白的“模塊”窗口中,請參見屏幕截圖:

VBA代碼:如果單元格值大於或小於單元格,則彈出一個消息框

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

備註:在上面的代碼中, A1D1 是您要比較的兩個單元格。

3。 然後,保存並關閉代碼窗口,當輸入的值小於單元格A1中的值時,將彈出一個消息框,如下圖所示:


更多相關的彈出消息框文章:

  • 打開Excel文件時創建彈出消息框
  • 在某些情況下,您可能希望始終彈出一個消息框,以提醒您在打開特定工作簿時首先需要做的事情,這可以幫助您記住在日常工作中要做的最重要的事情。 在本文中,我將討論在打開Excel文件時如何創建彈出消息框。
  • 在Excel中運行宏之前創建一個是否消息框
  • 在Excel中,可以通過按F5鍵或在Microsoft Visual Basic for Applications窗口中單擊“運行”按鈕直接觸發宏。 但是,有時,您可能需要創建一個消息框,詢問用戶是否要運行宏。 如果是,則繼續運行代碼,如果否,則停止運行代碼。 本文,我將討論在Excel中運行宏之前如何創建是否消息框。
  • 創建消息框計時器以在一定時間後自動關閉消息框
  • 在使用Excel工作簿時,您可能經常使用VBA腳本來解決問題。 在腳本運行期間,將彈出消息框。 在某些情況下,您希望某些指定的消息框在一定時間後自動關閉,而不是手動關閉。 在本文中,我們將向您展示創建消息框計時器的方法,以在Excel中一定時間後自動關閉消息框。

  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 和保存數據; 拆分單元格內容; 合併重複的行和總和/平均值...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 收藏并快速插入公式,範圍,圖表和圖片; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 數據透視表分組依據 週號,週幾等 顯示未鎖定的單元格 用不同的顏色 突出顯示具有公式/名稱的單元格...
kte選項卡201905
  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
could you help me combine multiple of these rules
This comment was minimized by the moderator on the site
is it possible to include the text from a specific cell in the content of the alert message box?
This comment was minimized by the moderator on the site
Thanks for this, it worked great! But I want to know how can I make this work if the cell that I'm monitoring depends on a cell on another Sheet. For example A1 in Sheet 1 changes values if cell A3 in Sheet 2 changes. I have something like this and the pop up message didn't come up, only when manually changed the A1 on Sheet 1.

Thanks!
This comment was minimized by the moderator on the site
In your VB example above a Pop Up Message Box occurs If Cell A1 is Less than D1 which works well however how do I make it also create a Pop up message for cell A2 is Less than D2, A3 is Less than D3 and so on.
This comment was minimized by the moderator on the site
GRACIAS, COMO PUEDO HACER PARA AMPLIARLO A UN RANDO MAS GRANDE ES DECIR O15:O100 Y N15:N100
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations