Ինչպե՞ս ավելացնել սահմանագծի տողը ներքևում, երբ արժեքը փոխվում է Excel սյունակում:

Կա տվյալների ցուցակ, որը ներառում է կրկնվող արժեքներ, և արժեքներն ավելի լավ դասակարգելու համար ներքևում սահմանագիծ եմ ավելացնում, երբ արժեքը փոփոխվում է ցուցակում, ինչպես ցույց է տրված ստորև նշված նկարը: Այս հոդվածում ես կխոսեմ այն ​​մասին, թե ինչպես արագորեն ավելացնել սահմանագիծը ներքևում, երբ արժեքը փոխվում է Excel սյունակում:

Ներքևում ավելացնել սահմանագիծը, երբ արժեքը փոխվում է VBA- ով

Ներքևում ավելացնել սահմանագիծը, երբ արժեքը փոխվում է VBA- ով

Ակնհայտ է, որ Excel- ում չկա ներկառուցված գործառույթ, որը կարող է օգնել ձեզ սահմանի գիծ ավելացնել ստորև, երբ արժեքը փոխվում է, բայց կա VBA կոդ, որը ես կարող եմ ներկայացնել:

1. Մամուլ Alt + F11 ստեղն ակտիվացնելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ, և ներքևի կոդը տեղադրեք դատարկ գրությանը մոդուլe.

VBA. Արժեքի փոփոխության դեպքում ներքևում ավելացնել սահմանագիծը

Sub AddBorderLineWhenValueChanges()
'UpdatebyExtendoffice20160918
    Application.ScreenUpdating = False
    Dim LastRow As Long
    Dim xrg As Range
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For Each xrg In Range("A2:A" & LastRow)
        If xrg <> xrg.Offset(1, 0) Then
            Range("A" & xrg.Row & ":K" & xrg.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
        End If
    Next xrg
    Application.ScreenUpdating = True
End Sub

3. Մամուլ F5 ծածկագիրը կատարելու համար: Այնուհետև սահմանագծերը ավելացվել են ներքևում, երբ արժեքը փոխվում է A2: A ընտրության մեջ:

ՆշումVBA կոդում A2: A- ն այն տիրույթն է, որը ցանկանում եք ներքևում ավելացնել սահմանագիծը, երբ դրա արժեքը փոխվում է, այն կարող եք փոխել ըստ ձեզ:

Ձեր պատասխանը ուղարկված չէ: Եթե ​​ցանկանում եք վերնագրի տող տեղադրել յուրաքանչյուր n-րդ շարքում, կարող եք փորձել կիրառել Տեղադրեք վերնագրի տողերը օգտակարությունը Excel- ի համար նախատեսված գործիքներ արագ լուծել այս աշխատանքը, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը: Այն լրիվ գործառույթ է ՝ առանց սահմանափակումների

խնդրում ենք ներբեռնել և անվճար փորձաշրջան անցնել հիմա:

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

🤖	Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
	Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
	Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
	Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
	Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
	Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
	Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Կարդալ ավելին... Անվճար ներբեռնում...

---

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

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

Կարդալ ավելին... Անվճար ներբեռնում...