Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս արագորեն խաչել Excel- ում ակտիվ բջիջը:

Եթե ​​աշխատաթերթում կան բազմաթիվ սյուններ և տողերի տվյալներ, ապա բջիջն ակտիվացնելիս պատկերացնե՞լ եք, դրա հարաբերական սյունն ու տողն ընդգծված են: Օրինակ, կտտացրեք F11- ին, և սյունակը F և 11 տողերը ընդգծվում են միևնույն ժամանակ, ինչպես ցույց է տրված ստորև նշված նկարը: Այս հոդվածը ներկայացնում է այն արագ հնարքները, որոնք կարող են օգնել ձեզ խաչել Excel- ում ակտիվ բջիջը:
doc խաչմերուկի ընդգծում 1

Խաչանշել ակտիվ բջիջը VBA- ով

Խաչի համար ընդգծեք ակտիվ բջիջը Excel- ի համար Kutools- ով լավ գաղափար 3


Խաչանշել ակտիվ բջիջը VBA- ով

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

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

2. Հետո Նախագիծ պատուհանը, կրկնակի կտտացրեք այն թերթիկին, որը ցանկանում եք կիրառել այս VBA- ի վրա, և այնուհետև պատճենեք և կպցրեք ներքևում գտնվող VBA կոդը ճիշտ սցենարի վրա: Տեսեք,

Ձեր պատասխանը ուղարկված չէ: Եթե ​​pրագրի պատուհանը թաքնված է, կտտացրեք Դիտել > Project Explorer in Microsoft Visual Basic հավելվածների համար պատուհանը `այն ցուցադրելու համար:

VBA. Crosshair- ն ընդգծում է ակտիվ բջիջը:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice6/1/2016
    Application.ScreenUpdating = False
    With Target
        .Worksheet.Cells.Interior.ColorIndex = 0
        .EntireRow.Interior.Color = vbYellow
        .EntireColumn.Interior.Color = vbYellow
    End With
    Application.ScreenUpdating = True
End Sub
doc խաչմերուկի ընդգծում 2

3. Ապա պահեք և փակեք VBA- ն, և այժմ, երբ բջիջ եք ակտիվացնում, դրա հարաբերական շարքը և սյունը ընդգծվում են:
doc խաչմերուկի ընդգծում 3

Եթե ​​ցանկանում եք ընդգծել միայն ակտիվ բջիջը, կարող եք օգտագործել հետևյալ VBA- ն:

VBA. Նշեք ձեր ընտրած ակտիվ բջիջը

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice6/1/2016
    Application.ScreenUpdating = False
    Target.Worksheet.Cells.Interior.ColorIndex = 0
    Target.Interior.Color = vbYellow
    Application.ScreenUpdating = True
End Sub

ՆշումVBA- ի վերևի կոդերում ColorIndex- ը կարող է փոխվել, ինչպես ուզում եք:


Խաչի համար ընդգծեք ակտիվ բջիջը Excel- ի համար Kutools- ով

Եթե ​​ծանոթ չեք VBA- ին, կարող եք փորձել դիմել Excel- ի համար նախատեսված գործիքներ'S Ընթերցանության դասավորությունը օգտակար բջիջն արագորեն խաչաձևելու համար:

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

Սեղմել Կուտոլս > Ընթերցանության դասավորությունը հնարավորություն ընձեռել Ընթերցանության դասավորությունը օգտակարություն Տեսեք,
doc խաչմերուկի ընդգծում 4

Նշում:

1: սեղմեք Կուտոլս > Ընթերցանության դասավորությունը կրկին անջատել այս օգտակար ծրագիրը:

2: սեղմեք Կուտոլս > Ընթերցանության դասավորությունը > Կարդալով դասավորության կարգավորումները նշելու համար անհրաժեշտ ձևերը, ոճերն ու գույները Կարդալով դասավորության կարգավորումները երկխոսություն Տեսեք,
doc խաչմերուկի ընդգծում 5

Ձեր պատասխանը ուղարկված չէ: Այս օգտակար ծրագիրը վերաբերում է ամբողջ աշխատանքային գրքին:

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

🤖 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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. Can you please help with a VBA Code that doesn't remove the cell formatting or the previous colored cells.
This comment was minimized by the moderator on the site
Hi, the VBA code cannot satisfy your need, I suggest you try Kutools for Excel.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations