Conas sraith bán a chur isteach bunaithe ar luach os cionn na cille in Excel?
In Excel, tá na sraitheanna bán a chur isteach ar cheann de na feidhmeanna is minice a úsáidtear inár gcuid oibre laethúla. An bhfuil aon bhealach ann, áfach, sraitheanna bána a chur isteach go tapa bunaithe ar luach os cionn na cille mar atá thíos an pictiúr a thaispeántar? Anois, labhraíonn an t-alt seo, faoin modh chun as a chéile bán a chur isteach go tapa bunaithe ar na luachanna cille thuas in Excel.
Cuir isteach sraith bunaithe ar an luach thuas
Cuir isteach sraith bunaithe ar an luach thuas
Más mian leat as a chéile bán a chur isteach bunaithe ar an uimhir thuas, is féidir leat macra-chód a úsáid.
1. Cumasaigh an bhileog a úsáideann tú agus brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus greamaigh thíos an cód leis an script.
VBA: Cuir isteach cód bán bunaithe ar an gcill thuas
Fo-Ionsáigh () 'UpdatebyExtendoffice20170926 Dim xRg As Range Dim xAddress As String Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox ("Roghnaigh raon le húsáid (colún aonair) ): "," KuTools For Excel ", xAddress ,,,,, 8) Mura bhfuil xRg Rud ar bith Ansin Scoir Fo-Iarratas.ScreenUpdating = Bréagach xLastRow = xRg (1) .End (xlDown) .Row xFstRow = xRg.Row xCol = xRg.Column xCount = xRg.Count Socraigh xRg = xRg (1) Do I = xLastRow Go xFstRow Céim -1 xNum = Cealla (I, xCol) Más IsNumeric (xNum) Agus xNum> 0 Ansin Sraitheanna (I + 1) .Resize (xNum). Cuir isteach xCount = xCount + xNum End If Next xRg.Resize (xCount, 1) .Select Application.ScreenUpdating = Fíor Deireadh Deiridh
3. Brúigh F5 eochair chun an cód a rith, agus tagann dialóg amach le cur i gcuimhne duit liosta a roghnú le bheith ag obair. Féach an pictiúr:
4. cliceáil OK, tá na sraitheanna bán curtha isteach.
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á!