Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako nadaljujemo skupno delovanje v eni ali eni celici v Excelu?

V tem članku je prikazana metoda, s katero se lahko nadaljujete v eni ali eni sami celici v Excelu. Na primer, celica A1 trenutno vsebuje številko 10, pri vnosu druge številke, kot je 5, bo vrednost rezultata A1 15 (10 + 5). To lahko storite, kot sledi, da ga zlahka dosežete.

Ohranite skupno število v eno ali eno celico s kodo VBA


Ohranite skupno število v eno ali eno celico s kodo VBA


Spodnja koda VBA vam lahko pomaga pri nadaljevanju tekmovanja v celici. Prosimo, naredite, kot sledi korak za korakom.

1. Odprite delovni list, vsebuje celico, ki jo boste nadaljevali. Desno kliknite jeziček stanja in izberite Ogled kode iz kontekstnega menija.

2. V odprtju Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite pod kodo VBA v okno Code. Prikaz slike:

VBA koda: nadaljujte skupno z eno ali eno celico

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, ki jo boste nadaljevali v notranjosti. Prosimo, navedite celico, kot jo potrebujete.

3. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.

Od zdaj naprej, pri vnosu številk v celico A1, se bo skupni prikaz nadaljeval, kot je prikazano spodaj.


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.