Preskoči na glavno vsebino

Kako dvoklikniti celico in tej vrednosti celice v Excelu dodati 1?

Ta članek vam bo pokazal način samodejnega dodajanja vrednosti 1 celici z dvojnim klikom v Excelu.

Dvokliknite celico in dodajte 1 s kodo VBA


Dvokliknite celico in dodajte 1 s kodo VBA

Naslednja koda VBA vam lahko pomaga dodati vrednost 1 celici po dvojnem kliku. Naredite naslednje.

1. Z desno miškino tipko kliknite jeziček lista, katere vrednosti celic morate dodati z dvojnim klikom. Nato kliknite Ogled kode v meniju z desnim klikom.

2. V pojavnem oknu Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo VBA v okno Code.

Koda VBA: Dodajte vrednost celici z dvojnim klikom

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

Opombe: V kodi je A1 celica, ki ji boste z dvojnim klikom dodali številko 1.

3. Pritisnite druga + Q tipke hkrati, da zaprete okno Microsoft Visual Basic for Applications.

Zdaj dvakrat kliknite celico A1 in dodajte 1 obstoječi vrednosti, kot je prikazano spodaj.


Sorodni članki:

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (17)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how can i answer by YES or NO by adding check mark?
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Dear Bill,
Thank you for sharing.
This comment was minimized by the moderator on the site
Thank You! that helped me a lot!
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Sorry I didn’t get your point.
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
maybe by making a table with a range name. and updating the formula to include that?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
This code does not seem to work for me. Don't I have to specify which is the Target.Adress ?
This comment was minimized by the moderator on the site
Dear Steve,
I got your point finally, and thank you for sharing.
This comment was minimized by the moderator on the site
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)
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations