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

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

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

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

Amazարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel- ում, ինչպիսիք են Chrome- ը, Firefox- ը և Safari- ն:

Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

Հետևյալ 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-2019 և 365. Աջակցում է բոլոր լեզուները: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հատկություններ ՝ 30-օրյա անվճար փորձաշրջան: 60-օրյա գումարի վերադարձի երաշխիք:

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

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

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

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

16 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
OW · 10 months ago
What code would I you if I want to add 1 to multiple cells lets say E5:E15 but then add .5 or a different number to another group of cells like G5:515?
- Reply
To post as a guest, your comment is unpublished.
Stella · 1 years ago
I cannot get this to work in multiple cells
Tried using, but it did not work

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("B2:L14")) Is Nothing Then
Range("B2:L14").Value = Range("B2:L14").Value + 1
Cancel = True
End If
End Sub
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Stella,
  Please apply the below VBA to solve the problem.
  
  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  On Error Resume Next
  If Not Intersect(Target, Range("B2:L14")) Is Nothing Then
  Target.Value = Target.Value + 1
  Cancel = True
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Bill · 3 years ago
If you want to increment any cell in a workbook cell by double clicking on that cell but only that cell, this code works:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range(ActiveCell.Address)) Is Nothing Then
ActiveCell.Value = ActiveCell.Value + 1
Cancel = True
End If
End Sub
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Bill,
  Thank you for sharing.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  BB · 3 years ago
  
  Thank You! that helped me a lot!
  
  Reply
To post as a guest, your comment is unpublished.
Steve · 3 years ago
This is great! How do I do this for multiple cells? I type in "A1,A2" instead "A1", it makes both cells equal and adds 1 to both cells simultaneously. I'd like the cells to act independently.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Sorry I didn’t get your point.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Adam · 3 years ago
  
  Hello - agree with Steve this is great. I think what he would like (and me too) is to be able to add to the value of multiple different cells in the same tab by double clicking on them. He has amended the VBA formula so it says "A1,A2" instead of just "A1" however double clicking on "A1" adds 1 to both cells. Is it possible to change the formula so that multiple cells are included with the value of each only being increased when you click on it directly?
  
  Reply
  
  To post as a guest, your comment is unpublished.
  laura · 3 years ago
  
  maybe by making a table with a range name. and updating the formula to include that?
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Steve · 3 years ago
  
  Basically, with the code above, if you double clicked on A1, it would add 1 to A1. If I changed A1 to A1:A2 in the Target Range, then if I double clicked on A1 or A2, it would add 1 to A1. What I wanted was to add 1 to A1 only if I double clicked on A1, and add 1 to A2 only if I double clicked on A2. I also did not want to add 1 to both cells.
  
  I think I have found what I was looking for:
  
  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("D5:BC56")) Is Nothing Then
  Cancel = True
  Range(Target.Address).Value = Val(Range(Target.Address).Value) + 1
  End If
  End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Sophie · 3 years ago
  
  This code does not seem to work for me. Don't I have to specify which is the Target.Adress ?
  
  Reply
  
  To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Steve,
  I got your point finally, and thank you for sharing.
  
  Reply
To post as a guest, your comment is unpublished.
Matt · 3 years ago
Can we add a two digit number to the end of the date? for example i need to double click and add the current date and the next two digit number (20171030-01 then the next cell will show 20171030-02 upon double click)
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Matt,
  The code only supports the number format cell. It can't work as your data 20171030-01 is text format. Sorry about that.
  
  Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Matt,
  The code only supports the number format cell. It can work as your data 20171030-01 is a text format. Sorry about that.
  
  Reply

Մուտք Ձեր հաշիվը

Գաղտնաբառ վերագործարկում