Ինչպե՞ս գործարկել մակրո ՝ 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-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: