Conas an tsraith iomlán a bhogadh go bun an bhileog ghníomhaigh bunaithe ar luach cille in Excel?
Chun an tsraith iomlán a bhogadh go bun na bileoige gníomhaí bunaithe ar luach cille in Excel, bain triail as an gcód VBA san alt seo.
Bog an tsraith iomlán go bun an bhileog ghníomhaigh bunaithe ar luach cille le cód VBA
Bog an tsraith iomlán go bun an bhileog ghníomhaigh bunaithe ar luach cille le cód VBA
Mar shampla, mar a thaispeántar thíos an scáileán, má tá luach áirithe “Déanta” i gcill i gcolún C, ansin bog an tsraith iomlán go bun an bhileog reatha. Déan mar a leanas le do thoil.
1. Brúigh Eile+ F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh an cód VBA thíos san fhuinneog.
Cód VBA: Bog an tsraith iomlán go bun an bhileog ghníomhaigh bunaithe ar luach na cille
Sub MoveToEnd()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xEndRow As Long
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
lOne:
Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lOne
End If
xEndRow = xRg.Rows.Count + xRg.Row
Application.ScreenUpdating = False
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) = "Done" Then
xRg.Cells(I).EntireRow.Cut
Rows(xEndRow).Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
nótaí: Sa chód VBA, “Arna dhéanamh"Is é an luach cille a bhogfaidh tú as a chéile bunaithe ar. Is féidir leat é a athrú de réir mar is gá duit.
3. Brúigh an F5 eochair chun an cód a rith, ansin sa phreabadh suas Kutools le haghaidh Excel bosca dialóige, roghnaigh an raon colún a bhfuil an luach áirithe ann, ansin cliceáil ar an OK cnaipe.
Tar éis a chliceáil ar an OK cnaipe, bogtar an tsraith iomlán ina bhfuil an luach “Arna dhéanamh” sa cholún sonraithe go bun an raon sonraí go huathoibríoch.
Earraí gaolmhara:
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á!