Sut i ddal i redeg cyfanswm mewn un neu un gell yn Excel?
Bydd yr erthygl hon yn dangos dull i chi ddal ati i redeg cyfanswm mewn un neu un gell yn Excel. Er enghraifft, mae cell A1 yn dal rhif 10 ar hyn o bryd, wrth nodi rhif arall fel 5, gwerth canlyniad A1 fydd 15 (10 + 5). Gallwch chi wneud fel a ganlyn i wneud pethau'n hawdd.
Daliwch i redeg cyfanswm mewn un neu un gell gyda chod VBA
Daliwch i redeg cyfanswm mewn un neu un gell gyda chod VBA
Gall y cod VBA isod eich helpu i ddal i redeg cyfanswm mewn cell. Gwnewch fel a ganlyn gam wrth gam.
1. Agorwch y daflen waith yn cynnwys y gell y byddwch chi'n cadw cyfanswm rhedeg ynddi. De-gliciwch y tab dalen a dewis Gweld y Cod o'r ddewislen cyd-destun.
2. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo islaw cod VBA i mewn i ffenestr y Cod. Gweler y screenshot:
Cod VBA: Daliwch i redeg cyfanswm mewn un neu un gell
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
Nodyn: Yn y cod, A1 yw'r gell y byddwch chi'n cadw ei chyfanswm y tu mewn. Nodwch gell yn ôl yr angen.
3. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
O hyn ymlaen, wrth deipio rhifau i gell A1, bydd y cyfanswm yn parhau i redeg y tu mewn fel islaw'r screenshot a ddangosir.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!