Kako nadaljevati skupno izvajanje v eni ali posamezni celici v Excelu?
Ta članek vam bo pokazal način, kako v celoti ali v eni celici v Excelu še naprej izvajati skupno. Na primer, celica A1 trenutno vsebuje številko 10, pri vnosu druge številke, na primer 5, pa bo rezultat A1 znašal 15 (10 + 5). Za enostavno izvedbo lahko storite naslednje.
Skupno nadaljujte v eni ali posamezni celici s kodo VBA
Skupno nadaljujte v eni ali posamezni celici s kodo VBA
Spodnja koda VBA vam lahko pomaga, da se v celici ves čas izvaja. Prosimo, naredite naslednje po korakih.
1. Odprite delovni list, v katerem je celica, v kateri boste še naprej delovali. Z desno miškino tipko kliknite zavihek lista in izberite Ogled kode iz kontekstnega menija.
2. Na odprtju Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo VBA v okno Code. Oglejte si posnetek zaslona:
Koda VBA: Skupaj naj se izvaja v eni ali posamezni celici
Dim mRangeNumericValue As Double
'Updated by ExtendOffice 20180814
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EndF
Application.EnableEvents = False
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
If Target.Range("A1").Value = 0 Then mRangeNumericValue = 0
Target.Range("A1").Value = 1 * Target.Range("A1").Value + mRangeNumericValue
End If
End If
EndF:
Application.EnableEvents = True
mRangeNumericValue = 0
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo err0
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
mRangeNumericValue = Target.Range("A1").Value
End If
End If
err0:
End Sub
Opombe: V kodi je A1 celica, v kateri boste še naprej delovali v celoti. Prosimo, določite celico, kot jo potrebujete.
3. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.
Od zdaj naprej se bo med vnašanjem številk v celico A1 vsota še naprej izvajala, kot je prikazano spodaj.
Najboljša pisarniška orodja za produktivnost
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...
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!