Conas an t-iomlán a choinneáil ag rith i gcill amháin nó i gcill amháin in Excel?
Taispeánfaidh an t-alt seo modh duit chun an t-iomlán a choinneáil i gcill amháin nó i gcill amháin in Excel. Mar shampla, tá uimhir 1 ag cill A10 faoi láthair, agus uimhir eile mar 5 á iontráil aici, is é luach toraidh A1 ná 15 (10 + 5). Is féidir leat é seo a dhéanamh a dhéanamh go héasca.
Coinnigh ag rith iomlán i gcill amháin nó i gcill aonair le cód VBA
Coinnigh ag rith iomlán i gcill amháin nó i gcill aonair le cód VBA
Is féidir leis an gcód VBA thíos cabhrú leat an t-iomlán a choinneáil i gcill. Déan mar a leanas céim ar chéim, le do thoil.
1. Oscail an bhileog oibre tá an chill a choinneoidh tú iomlán inti. Cliceáil ar dheis ar an táb bileog agus roghnaigh Féach an cód ón roghchlár comhthéacs.
2. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh faoi bhun chód VBA isteach i bhfuinneog an Chóid. Féach an pictiúr:
Cód VBA: Coinnigh ag rith iomlán i gcill amháin nó i gcill amháin
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
nótaí: Sa chód, is é A1 an chill a choinneoidh tú ag rith istigh inti. Sonraigh cill de réir mar is gá duit.
3. Brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
As seo amach, agus uimhreacha á gclóscríobh i gcill A1, leanfaidh an t-iomlán ag rith istigh mar a thaispeántar thíos.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!