Как да изскача прозорец със съобщение, ако клетката е по-голяма или по-малка от определена стойност в Excel?

Ако една клетка е по-голяма или по-малка от друга клетка, трябва да изскача прозорец със съобщение, за да предупредя в Excel. Как да решим този проблем в Excel? В тази статия ще говоря за някои кодове за справяне с него.

Изскачащо поле за съобщение, ако стойността на клетка в колона е по-голяма или по-малка от друга клетка

Изскачащо поле за съобщение, ако стойността на клетка в клетка е по-голяма или по-малка от друга клетка

Изскачащо поле за съобщение, ако стойността на клетка в колона е по-голяма или по-малка от друга клетка

Да предположим, че имам конкретно число 100 в клетка A1, сега, когато числото, въведено в колона D, е по-голямо от 100 в клетка A1, трябва да се появи поле за съобщение, за да напомни на потребителя.

Тук кодът VBA по-долу може да ви помогне да го завършите, моля, направете следните стъпки:

1. Отидете на работния лист, който искате да използвате.

2. Щракнете с десния бутон върху раздела на листа и изберете Преглед на кода от контекстното меню, в изскачащия Microsoft Visual Basic за приложения прозорец, моля, копирайте и поставете следния код в празния прозорец на модула, вижте екранната снимка:

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 е стойността на клетката, с която искате да сравните; Д:Д е колоната, която искате да сравните с клетка A1.

3. След това запазете и затворете прозореца с код, отсега нататък ще се появи поле за съобщение, ако въведете число в колона D, което е по-голямо от 100, вижте екранната снимка:

Изскачащо поле за съобщение, ако стойността на клетка в клетка е по-голяма или по-малка от друга клетка

Ако искате поле за съобщение да се показва, когато стойността на клетка е по-голяма или по-малка от друга клетка, моля, приложете кода по-долу:

1. Отидете на работния лист, който искате да използвате.

2. Щракнете с десния бутон върху раздела на листа и изберете Преглед на кода от контекстното меню, в изскачащия Microsoft Visual Basic за приложения прозорец, моля, копирайте и поставете следния код в празния прозорец на модула, вижте екранната снимка:

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

Забележка: В горния код, A1 намлява D1 са двете клетки, с които искате да сравните.

3. След това запазете и затворете прозореца с код, когато въведете стойност, която е по-малка от стойността в клетка A1, ще се появи поле за съобщение, както е показано на екранната снимка по-долу:

Още относителни статии в изскачащото поле за съобщения:

---

Най-добрите инструменти за производителност в офиса

Kutools за Excel решава повечето от вашите проблеми и увеличава вашата производителност с 80%

• Супер Формула Бар (лесно редактиране на няколко реда текст и формула); Оформление за четене (лесно четене и редактиране на голям брой клетки); Поставяне във филтриран диапазон...
• Обединяване на клетки/редове/колони и съхраняване на данни; Съдържание на разделени клетки; Комбинирайте дублиращи се редове и сума/средно... Предотвратяване на дублиращи се клетки; Сравнете диапазони...
• Изберете Дублиран или Уникален редове; Изберете Празни редове (всички клетки са празни); Super Find и Fuzzy Find в много работни тетрадки; Произволен избор...
• Точно копие Множество клетки без промяна на референтната формула; Автоматично създаване на препратки към множество листа; Вмъкване на куршуми, квадратчета за отметка и други...
• Любими и бързо вмъкнати формули, диапазони, диаграми и снимки; Шифроване на клетки с парола; Създаване на пощенски списък и изпращайте имейли...
• Извличане на текст, Добавяне на текст, Премахване по позиция, Премахване на пространството; Създаване и отпечатване на междинни суми за пейджинг; Конвертиране на съдържание и коментари между клетки...
• Супер филтър (запазване и прилагане на филтърни схеми към други листове); Разширено сортиране по месец/седмица/ден, честота и други; Специален филтър с удебелен шрифт, курсив...
• Комбинирайте работни тетрадки и работни листове; Обединяване на таблици въз основа на ключови колони; Разделете данните на няколко листа; Пакетно конвертиране на xls, xlsx и PDF...
• Групиране на обобщена таблица по номер на седмицата, ден от седмицата и други... Показване на отключени, заключени клетки с различни цветове; Маркирайте клетки, които имат формула/име...

Прочети повече ... Пълни функции 30-дневен безплатен пробен период... Покупка... 

---

Раздел Office - предоставя интерфейс с раздели в Office и прави работата ви много по-лесна

• Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
• Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
• Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!

Прочети повече ... Пълни функции 30-дневен безплатен пробен период... Покупка...