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

Սովորաբար, խցիկում նշանշան տեղադրելու համար հարկավոր է մտնել «Նշան» երկխոսության տուփ, գտնել նշանի նշանը և այն ձեռքով տեղադրել: Բայց Սիմվոլ երկխոսության դաշտում նշման նշանը պարզելը այնքան էլ հեշտ չէ, քանի որ ներսում նշված են բազմաթիվ խորհրդանիշներ: Excel- ում ինչպե՞ս արագ ավելացնել ստուգման նշան խցում: Այս հոդվածը ձեզ ցույց կտա VBA մեթոդ ՝ միայն կրկնակի կտտոցով խցում հեշտությամբ ավելացնելու ստուգման նշանը:

Կրկնակի կտտացրեք ՝ VBA կոդով խցում ստուգանշան ավելացնելու համար

Կրկնակի կտտացրեք ՝ VBA կոդով խցում ստուգանշան ավելացնելու համար

Հետևյալ VBA կոդը կարող է օգնել կրկնակի կտտոցով խցում ավելացնել ստուգիչ նշանը: Խնդրում եմ, արեք հետևյալ կերպ.

1. Բացեք աշխատաթերթը, որը անհրաժեշտ է վանդակի մեջ ավելացնել վանդակը, ապա սեղմել աջով և ընտրել Դիտել կոդը աջ կտտացնելու ցանկից:

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք ներքևի VBA կոդը ՝ Կոդ պատուհան.

VBA կոդ. Կրկնակի կտտացրեք ՝ բջիջում ստուգանշան ավելացնելու համար

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

ՆշումԿոդում `B1: B10- ը այն տիրույթն է, որը դուք կավելացնեք ստուգման նշանը կրկնակի սեղմումով: Խնդրում ենք փոխել այն ՝ հիմնվելով ձեր կարիքի վրա:

3. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհանը և վերադառնալ աշխատանքային թերթ:

Այժմ, կրկնակի սեղմեք B1: B10 տիրույթի ցանկացած բջիջի վրա, ստուգման նշանը ավտոմատ մուտքագրվում է: Եվ կրկին կրկնակի սեղմելով բջիջը, տեղադրված ստուգիչ նշանը կհեռացվի:

Եթե Ձեզ անհրաժեշտ է հաճախակի օգտագործել ստուգիչ նշաններ ձեր Excel- ի ամենօրյա աշխատանքում, ապա ես այստեղ խորհուրդ եմ տալիս Auto տեքստը Կոմունալ Excel- ի համար նախատեսված գործիքներ, Այս հատկության միջոցով դուք կարող եք պահպանել ստուգման նշանը որպես տեքստի ավտոմատ մուտք, այնուհետև այն հետագայում վերափոխել միայն մեկ կտտոցով Excel- ում, ինչպես ցույց է տրված ստորև ներկայացված ցուցադրումը:
Ներբեռնեք և փորձեք հիմա: (30- օր անվճար երթուղի)

Առնչվող հոդվածներ:

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

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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

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

մեկնաբանություններ (11)

Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:

Լուիս Կառլոս Դիաս

մոտ 4 տարի առաջ

#27122

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

como eu faço pra inserir a marca de seleção na célula, porém sem deletar o numero que estiver digitado nela ou seja, a marca sairia na frente do numero quando eu der duplo clique... e quando eu quizer epagar a duca, clique novamente ea célula voltaria ao normal (շարունակում է apenas o número):

պատասխանել

Տադաո Կանո Լուիս Կառլոս Դիաս

մոտ 4 տարի առաջ

#27123

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ola Luiz, tente essa alteracao. Գործառույթները պետք է լինեն A2:A10 և D2:D5, որոնք պետք է համապատասխանեն:

Թադաո

Մասնավոր ենթաթերթ_BeforeDoubleClick (ByVal-ի թիրախը որպես միջակայք, չեղարկել որպես բուլյան)
Եթե խաչմերուկ չէ (Թիրախ, Միություն (Միջակայք («A2: A10»), միջակայք («D2: D5»))) Ոչինչ է, ապա
Application.EnableEvents = False
Եթե Left (ActiveCell.Value, 1) = ChrW (&H2713) Ապա
ActiveCell.Value = Right (ActiveCell, Len (ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlRight
Ուրիշ
ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
Վերջ: Եթե
Չեղարկել = Ճշմարիտ
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է
Վերջ Sub

պատասխանել

Elizabeth

մոտ 2 տարի առաջ

#34106

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Կա՞ միջոց այս կոդը պտտելու այնպես, որ այն լինի մեկ աշխատանքային գրքի բազմաթիվ աշխատաթերթերի վրա:

պատասխանել

հաշվետվություն

բյուրեղապակի Elizabeth

մոտ 2 տարի առաջ

#34107

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև լեյֆլյուտ, սեղմելուց հետո ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք կրկնակի սեղմել Այս գործառույթը բացելու համար Այս աշխատանքային գիրքը (ծածկագիր) պատուհանում, այնուհետև պատճենեք ստորև նշված կոդը կոդի պատուհանում: Մի մոռացեք փոխել թերթիկների անունները և կոդում բջիջների տիրույթը: Մասնավոր ենթաօրենսդրական աշխատանքային գրքույկ_շերտBeforeDoubleClick (ByVal Sh որպես օբյեկտ, ByVal թիրախ որպես միջակայք, Չեղարկել որպես բուլյան)
«Թարմացվել է Extendoffice 20201012
Dim xStrRg, xStrWs, xStrWsName As String
Dim xEEBol, xWSNBol, xBol որպես բուլյան
Dim xArrWs
Dim xArrRg
Dim xI, xJ Որպես ամբողջ թիվ
Dim xWs As Worksheet
Dim xRg որպես տիրույթ

xStrWs = "Sheet5, Sheet1, Sheet2«Կոնկրետ աշխատաթերթերի անունները
xStrRg = "B3: B10« «Բջիջների շրջանակը, որը դուք կտեղադրեք ստուգման նշաններ
xArrWs = Split(xStrWs, ",")
xArrRg = Split (xStrRg, ",")

xEEBol = Application.EnableEvents
Application.EnableEvents = False
Ս.թ. սխալի Ռեզյումե Next
xStrWsName = Sh.Name
xBol = Սխալ
xWSNBol = Սխալ
xI-ի համար = 0 Դեպի UBound (xArrWs)
Եթե xStrWsName = xArrWs(xI) Ապա
xWSNBol = Ճշմարիտ
Ելք For
Վերջ: Եթե
Հաջորդ xI

Եթե xWSNBol Ապա
Սահմանել xWs = Application.Worksheets.Item(xArrWs(xI))
xJ-ի համար = 0 Դեպի UBound (xArrRg)
Սահմանել xRg = Sh.Range(xArrRg(xJ))
If Not Intersect (Target, xRg) ոչինչ է, ապա
xBol = Ճշմարիտ
Ելք For
Վերջ: Եթե
Հաջորդ xJ
Վերջ: Եթե

Եթե xBol Ապա
Եթե ActiveCell.Value = ChrW(&H2713) Ապա
ActiveCell.ClearContents
Ուրիշ
ActiveCell.Value = ChrW(&H2713)
Վերջ: Եթե
Չեղարկել = Ճշմարիտ
Վերջ: Եթե
Application.EnableEvents = xEEBol
Վերջ Sub

պատասխանել

հաշվետվություն

CSherrod

մոտ 1 տարի առաջ

#35215

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ողջույն! Ի՞նչ կավելացնեմ վերը նշված կոդի վրա, որպեսզի բջիջը փոխի գույնը, երբ վանդակը ավելացվի:

պատասխանել

Dan

մոտ 1 տարի առաջ

#36632

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև բյուրեղյա
կա՞ տարբերակ B1:B10-ի հետ միասին A3:A10-ում ստուգանշաններ ունենալ:

պատասխանել

Michael

մոտ 1 տարի առաջ

#36920

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ինչպե՞ս կրկնել սա մի քանի սյունակների համար:
Օրինակ ինձ դա անհրաժեշտ է հետևյալում.
E, F, I, J, M, N ,Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX

պատասխանել

Ուլիս Նոնատո

մոտ 6 ամիս առաջ

#38841

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Eu gostaria de saber se é possível adicionar a marca com apenas um clique ao invés de dois.

պատասխանել

բյուրեղապակի Ուլիս Նոնատո

մոտ 6 ամիս առաջ

#38900

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Ուլիսես Նոնատո,
Եթե ցանկանում եք մկնիկի մեկ սեղմումով վանդակ ավելացնել բջիջի վրա, ապա հետևյալ VBA կոդը կարող է ձեզ լավություն անել:
Դուք պետք է սեղմեք աջ մկնիկ կոճակը՝ կոդը ակտիվացնելու համար:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

պատասխանել

հաշվետվություն

Sora

մոտ 2 ամիս առաջ

#41276

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ինչպե՞ս կարող եմ այնպես անել, որ կրկնակի սեղմումից հետո այն ավելացնի ժամանակի դրոշմակնիք հարակից բջիջի վրա:

պատասխանել

բյուրեղապակի Sora

մոտ 2 ամիս առաջ

#41491

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Սորա,
Հետևյալ VBA կոդը կարող է ձեզ լավություն անել: Խնդրում եմ, փորձեք: Շնորհակալություն.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub

պատասխանել

հաշվետվություն

Առայժմ ոչ մի մեկնաբանություն չկա

Թողեք ձեր մեկնաբանությունները

Հրապարակում որպես հյուր

Մուտք

Անուն (պարտադիր է)

Email (պահանջվում է)

Գնահատեք այս գրառումը.

Նորից դնել

0 Անձնավորություններ

Ես համաձայն եմ, որ պայմանները եւ պայմանները