Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս կրկնակի սեղմել բջիջը և Excel- ում այդ բջջային արժեքին ավելացնել 1:

Այս հոդվածը ցույց կտա ձեզ բջիջի արժեքին 1-ին ավտոմատ կերպով ավելացնելու եղանակը `այն կրկնակի կտտացնելով այն Excel- ում:

Կրկնակի կտտացրեք բջիջին և ավելացրեք 1-ը VBA կոդով


Կրկնակի կտտացրեք բջիջին և ավելացրեք 1-ը VBA կոդով

Հետևյալ VBA կոդը կարող է օգնել կրկնակի սեղմելուց հետո բջջային արժեքին ավելացնել 1-ը: Խնդրում եմ, արեք հետևյալ կերպ.

1. Աջ կտտացրեք թերթիկի ներդիրին, որը բջիջը գնահատում է, որը դուք պետք է ավելացնեք 1-ին `կրկնակի սեղմումով: Դրանից հետո կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից:

2. Պատուհանման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և կպցրեք ստորև նշված VBA կոդը օրենսգրքի պատուհանում:

VBA կոդ. Կրկնակի սեղմումով բջջային արժեքին ավելացնել 1-ը

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
      Range("A1").Value = Range("A1").Value + 1
      Cancel = True
    End If
End Sub

ՆշումԿոդում ՝ A1- ը այն բջիջն է, որին կավելացնեք 1 համարը ՝ կրկնակի կտտոցով:

3. Սեղմեք ալտ + Q միաժամանակ ստեղներ ՝ Microsoft Visual Basic հավելվածների համար պատուհանը փակելու համար:

Այժմ, կրկնակի կտտացնելով A1 բջիջին, գոյություն ունեցող արժեքին կավելացվի 1-ը, ինչպես ցույց է տրված նկարում:


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


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (16)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ ենք ամսաթվի վերջում երկնիշ թիվ ավելացնել: Օրինակ, ես պետք է կրկնակի սեղմեմ և ավելացնեմ ընթացիկ ամսաթիվը և հաջորդ երկնիշ համարը (20171030-01, ապա հաջորդ բջիջը կրկնակի սեղմումով ցույց կտա 20171030-02)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Մեթ,
Կոդն աջակցում է միայն թվերի ձևաչափի բջիջը: Այն կարող է աշխատել, քանի որ ձեր տվյալները 20171030-01 տեքստային ձևաչափ են: Ցավում եմ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Մեթ,
Կոդն աջակցում է միայն թվերի ձևաչափի բջիջը: Այն չի կարող աշխատել, քանի որ ձեր 20171030-01 տվյալները տեքստային ձևաչափ են: Ցավում եմ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա շատ լավ է! Ինչպե՞ս կարող եմ դա անել մի քանի բջիջների համար: «A1»-ի փոխարեն ես մուտքագրում եմ «A2, A1», այն երկու բջիջներն էլ հավասարեցնում է և միաժամանակ երկու բջիջներին ավելացնում է 1: Ես կցանկանայի, որ բջիջները ինքնուրույն գործեն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, որ չհասկացա ձեր տեսակետը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, համաձայնեք Սթիվի հետ, սա հիանալի է: Կարծում եմ, այն, ինչ նա կցանկանար (և ես նույնպես) այն է, որ կարողանայի ավելացնել մի քանի տարբեր բջիջների արժեքը նույն ներդիրում՝ կրկնակի սեղմելով դրանց վրա: Նա փոփոխել է VBA բանաձևը, որպեսզի այն գրի «A1, A2»՝ պարզապես «A1»-ի փոխարեն, սակայն «A1»-ի վրա կրկնակի սեղմելով ավելացնում է 1 երկու բջիջներին: Հնարավո՞ր է փոխել բանաձևը այնպես, որ մի քանի բջիջ ներառվեն, որոնց արժեքը մեծանում է միայն այն դեպքում, երբ ուղղակիորեն սեղմում եք դրա վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիմնականում, վերը նշված կոդով, եթե կրկնակի սեղմեիք A1-ի վրա, այն կավելացներ 1 A1-ին: Եթե ​​ես փոխեցի A1-ը A1:A2-ի թիրախային տիրույթում, ապա եթե կրկնակի սեղմեի A1 կամ A2-ի վրա, այն կավելացներ 1 A1-ին: Ես ուզում էի A1-ին 1 ավելացնել միայն A1-ի վրա կրկնակի սեղմելու դեպքում, իսկ A1-ին ավելացնել 2 միայն A2-ի վրա կրկնակի սեղմելու դեպքում: Ես նույնպես չէի ուզում երկու բջիջներին ավելացնել 1:

Կարծում եմ՝ գտել եմ այն, ինչ փնտրում էի.

Մասնավոր ենթաթերթ_BeforeDoubleClick (ByVal-ի թիրախը որպես միջակայք, չեղարկել որպես բուլյան)
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («D5:BC56»)) Ոչինչ է, ուրեմն
Չեղարկել = Ճշմարիտ
Range(Target.Address).Value = Val(Range(Target.Address).Value) + 1
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Սթիվ,
Վերջապես ես հասկացա ձեր միտքը և շնորհակալություն կիսելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը կարծես թե ինձ մոտ չի աշխատում: Պետք չէ՞ նշել, թե որն է Target.Adress-ը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
միգուցե տիրույթի անվանումով աղյուսակ կազմելով: և թարմացնե՞լ բանաձևը՝ դա ներառելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​ցանկանում եք ավելացնել աշխատանքային գրքույկի որևէ բջիջ՝ կրկնակի սեղմելով այդ բջիջի վրա, բայց միայն այդ բջիջի վրա, այս կոդը գործում է.

Մասնավոր ենթաթերթ_BeforeDoubleClick (ByVal-ի թիրախը որպես միջակայք, չեղարկել որպես բուլյան)
Ս.թ. սխալի Ռեզյումե Next
Եթե ​​ոչ խաչմերուկ (Target, Range (ActiveCell.Address)) ոչինչ է, ապա
ActiveCell.Value = ActiveCell.Value + 1
Չեղարկել = Ճշմարիտ
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Բիլ,
Շնորհակալություն կիսվելու համար.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն! դա ինձ շատ օգնեց!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես չեմ կարող ստիպել, որ սա աշխատի մի քանի բջիջներում
Փորձեցի օգտագործել, բայց չստացվեց


Մասնավոր ենթաթերթ_BeforeDoubleClick (ByVal-ի թիրախը որպես միջակայք, չեղարկել որպես բուլյան)
Ս.թ. սխալի Ռեզյումե Next
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («B2:L14»)) Ոչինչ է, ապա
Տարածք ("B2:L14").Value = Range("B2:L14").Արժեք + 1
Չեղարկել = Ճշմարիտ
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ստելլա,
Խնդրում ենք կիրառել ստորև նշված VBA-ն՝ խնդիրը լուծելու համար:

Մասնավոր ենթաթերթ_BeforeDoubleClick (ByVal-ի թիրախը որպես միջակայք, չեղարկել որպես բուլյան)

Ս.թ. սխալի Ռեզյումե Next

Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («B2:L14»)) Ոչինչ է, ապա

Target.Value = Target.Value + 1

Չեղարկել = Ճշմարիտ

Վերջ: Եթե

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ի՞նչ կոդ կարող եք տալ, եթե ուզենամ 1 ավելացնել մի քանի բջիջների, ասենք E5:E15, բայց հետո ավելացնեմ .5 կամ այլ թիվ բջիջների մեկ այլ խմբին, ինչպիսին է G5:515-ը:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից