Ինչպե՞ս գործարկել մակրո ՝ Excel- ում բջջային արժեքի հիման վրա:
Ենթադրելով, որ ես ունեմ բազմաթիվ մակրո կոդեր իմ աշխատանքային գրքում, և այժմ ես ուզում եմ գործարկել այս կոդերը `ելնելով բջջային արժեքից: Այս հոդվածում ես կխոսեմ մի քանի իրավիճակների մասին, որոնք կարող եք կրել ձեր ամենօրյա աշխատանքում ՝ Excel- ը օգտագործելիս:
Գործարկել կամ գործարկել մակրո, եթե բջջային արժեքը ավելի մեծ է կամ պակաս, քան VBA կոդով որոշակի արժեք
Գործարկել կամ գործարկել մակրո, եթե բջջային արժեքը հավասար է հատուկ տեքստին VBA կոդի հետ
Գործարկել կամ գործարկել մակրո, եթե բջջային արժեքը ավելի մեծ է կամ պակաս, քան VBA կոդով որոշակի արժեք
Օրինակ, եթե A1 բջիջի արժեքը 10-ի և 50-ի միջև է, գործարկիր մակրո 1, իսկ եթե արժեքը 50-ից մեծ է, գործիր մակրո 2: Excel- ում այս գործը լուծելու համար խնդրում ենք կիրառել հետևյալ VBA կոդը:
1, Աջ կտտացրեք թերթիկի ներդիրին, որը ցանկանում եք կատարել մակրոը ՝ ելնելով բջջային արժեքից, և այնուհետև ընտրել Դիտել կոդը համատեքստային ընտրացանկից և բացվածում Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ կոդը դատարկ Մոդուլի մեջ.
VBA կոդ. Գործարկել մակրոը, եթե բջջի արժեքը մեծ է կամ պակաս, քան ՝
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
ՆշումՎերոհիշյալ ծածկագրում.
A1 այն բջիջն է, որը պարունակում է այն հատուկ արժեքը, որի հիման վրա ցանկանում եք գործարկել մակրոը.
Գործ 10-ից 50-ը ՝ մակրո 1դա նշանակում է, եթե արժեքը տատանվում է 10-ի և 50-ի միջակայքում, գործարկիր Macro1;
Case Is> 50: Macro2դա նշանակում է, եթե արժեքը 50-ից մեծ է, գործարկիր Macro2:
Խնդրում ենք փոխել թեզիսների մակրո անվանումները և չափորոշիչները ձեր կարիքի համաձայն, և հետևյալին կարող եք նաև ավելացնել ավելի շատ չափանիշներ գործ սցենար:
2, Ապա պահեք և փակեք այս կոդի պատուհանը, հիմա, երբ A10 բջիջում ձեր մուտքագրած արժեքը 50-ից 1-ի միջև է, Macro1- ը գործարկվելու է, եթե մուտքագրված արժեքը 50-ից մեծ է, Macro2- ը կատարվում է:
Գործարկել կամ գործարկել մակրո, եթե բջջային արժեքը հավասար է հատուկ տեքստին VBA կոդի հետ
Եթե ուզում եք բջիջում որոշակի տեքստի վրա հիմնված մակրո գործարկել, օրինակ `գործարկել մակրո 1-ը, եթե մուտքագրվել է« Deleteնջել »տեքստը, և գործարկել մակրո 2, եթե մուտքագրվում է« Տեղադրել »տեքստը: Հետևյալ ծածկագիրը կարող է ձեզ լավություն բերել:
1, Աջ կտտացրեք այն թերթին, որը ցանկանում եք կատարել մակրոը ՝ ելնելով բջջային արժեքից, և այնուհետև ընտրեք Դիտել կոդը համատեքստային ընտրացանկից և բացվածում Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ կոդը դատարկ Մոդուլի մեջ.
VBA կոդ. Գործարկեք մակրո, եթե բջջային արժեքը որոշակի տեքստ է
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
ՆշումՎերոհիշյալ ծածկագրում «ջնջել"Եւ"Տեղադրել”Բջջային տեքստերն են, որոնց հիման վրա ուզում եք գործարկել մակրոներ և Մակրո 1 և Մակրո 2 մակրոներն են, որոնք ցանկանում եք կատարել տեքստի հիման վրա: Խնդրում եմ դրանք փոխեք ձեր կարիքի:
2, Ապա պահեք այս կոդը և փակեք պատուհանը, հիմա, երբ A1 բջիջում մուտքագրեք «Deleteնջել» տեքստը, գործարկվում է մակրո 1-ը, եթե մուտքագրվում է «Ներդիր» տեքստը, մակրո 2-ն կկատարվի:
Առնչվող հոդվածներ քանակը:
Ինչպե՞ս գործարկել մակրո, երբ բջջային արժեքը փոխվում է Excel- ում:
Ինչպե՞ս գործարկել մակրո ինքնաբերաբար, նախքան Excel- ում տպելը:
Ինչպե՞ս գործարկել մակրո ՝ Excel- ում բացվող ցուցակից ընտրված արժեքի հիման վրա:
Ինչպե՞ս գործարկել մակրո ՝ Excel- ում հղումներ հղումով:
Ինչպե՞ս գործարկել մակրո, երբ թերթը ընտրվում է աշխատանքային գրքից:
Գրասենյակի արտադրողականության լավագույն գործիքները
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
- Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
- Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
- Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
- Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
- Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
- Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
- Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
- Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
- Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

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



















