Conas luachanna athraitheacha i gcill in Excel a thaifeadadh?
Conas gach luach athraitheach do chill a athraíonn go minic a thaifeadadh in Excel? Mar shampla, is é 2 an luach bunaidh i gcill C100, nuair a athraítear uimhir 100 go 200, taispeánfar an luach bunaidh 100 i gcill D2 go huathoibríoch lena thaifeadadh. Téigh ar aghaidh chun 200 go 300 a athrú, cuirfear uimhir 200 isteach i gcill D3, taispeánfaidh athrú 300 go 400 300 go D4 agus mar sin de. Is féidir leis an modh san alt seo cabhrú leat é a bhaint amach.
Déan luachanna athraitheacha a thaifeadadh i gcill le cód VBA
Déan luachanna athraitheacha a thaifeadadh i gcill le cód VBA
Is féidir leis an gcód VBA thíos cabhrú leat gach luach athraitheach i gcill in Excel a thaifeadadh. Déan mar a leanas le do thoil.
1. Sa bhileog oibre tá an chill ar mhaith leat luachanna athraitheacha a thaifeadadh, cliceáil ar dheis ar an táb bileog agus ansin cliceáil Féach an cód ón roghchlár comhthéacs. Féach an pictiúr:
2. Ansin an Microsoft Visual Basic d’Fheidhmchláir tá an fhuinneog ag oscailt, cóipeáil thíos an cód VBA isteach i bhfuinneog an Chóid.
Cód VBA: taifead luachanna athraitheacha i gcill
Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
Static xCount As Integer
Application.EnableEvents = False
If Target.Address = Range("C2").Address Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
Else
If xVal <> Range("C2").Value Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xVal = Range("C2").Value
End Sub
nótaí: Sa chód, is é C2 an chill is mian leat a luachanna athraitheacha go léir a thaifeadadh. Is é D2 an chill a líonfaidh tú an chéad luach athraitheach de C2.
3. Brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
As seo amach, gach uair a athraíonn tú luachanna i gcill C2, taifeadfar na luachanna athraitheacha roimhe seo i D2 agus sna cealla faoi bhun D2.
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á!