Ինչպե՞ս հանել հաղորդագրության տուփը, եթե բջիջը Excel- ում որոշակի արժեքից մեծ է կամ պակաս:

Եթե ​​բջիջը ավելի մեծ է կամ պակաս, քան մեկ այլ բջիջ, ես պետք է հաղորդագրության տուփ բացեմ ՝ նախազգուշացնելու համար Excel- ում: Ինչպե՞ս լուծել այս խնդիրը Excel- ում: Այս հոդվածում ես կխոսեմ դրա հետ վարվելու որոշ կոդերի մասին:

Հաղորդագրության տուփ բացեք, եթե սյունակում բջջի արժեքը ավելի մեծ է կամ պակաս, քան մեկ այլ բջիջ

Popուցադրել հաղորդագրության տուփը, եթե բջիջի բջիջի արժեքը ավելի մեծ է կամ պակաս, քան մեկ այլ բջիջ

Հաղորդագրության տուփ բացեք, եթե սյունակում բջջի արժեքը ավելի մեծ է կամ պակաս, քան մեկ այլ բջիջ

Ենթադրելով, որ ես ունեմ որոշակի թիվ 100 A1 բջիջում, հիմա, երբ D սյունակում մուտքագրված թիվը A100 բջիջում 1-ից մեծ է, օգտագործողին հիշեցնելու համար պետք է դուրս գա հաղորդագրության տուփ:

Այստեղ ստորև ներկայացված 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 բջիջի արժեքն է, որի հետ ցանկանում եք համեմատել; D: D այն սյունն է, որը ցանկանում եք համեմատել A1 բջիջի հետ:

3, Դրանից հետո պահեք և փակեք ծածկագրի պատուհանը, այսուհետ հաղորդագրության տուփ կհայտնվի, եթե D սյունակում 100-ից մեծ թիվ եք մուտքագրում, տես նկարի նկարը.

Popուցադրել հաղորդագրության տուփը, եթե բջիջի բջիջի արժեքը ավելի մեծ է կամ պակաս, քան մեկ այլ բջիջ

Եթե ​​ցանկանում եք, որ հաղորդագրության տուփը դուրս գա, երբ բջջի արժեքը ավելի մեծ է կամ պակաս, քան մեկ այլ բջիջ, խնդրում ենք կիրառել հետևյալ կոդը.

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 բջիջի արժեքից պակաս արժեք մուտքագրելիս հաղորդագրության տուփ կհայտնվի, ինչպես ցույց է տրված ստորև նշված նկարը.

Հայտնաբերեք հաղորդագրության տուփի ավելի հարաբերական հոդվածներ.

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները և տվյալների պահում; Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերն ու գումարը / միջինը... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Սիրված և արագ ներդիր բանաձևեր, Ընդգրկույթներ, գծապատկերներ և նկարներ; Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Առանցք սեղանի խմբավորում ըստ շաբաթվա համարը, շաբաթվա օրը և ավելին ... Showույց տալ ապակողպված, կողպված բջիջները տարբեր գույներով; Նշեք այն բջիջները, որոնք ունեն բանաձև / անուն...

Կարդալ ավելին... Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում... Գնեք ... 

---

Office Tab - բերում է ներդիրավորված ինտերֆեյս Office- ին և շատ ավելի դյուրինացնում ձեր աշխատանքը

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում... Գնեք ...