Conas airde an tsraith a athrú bunaithe ar luach cille in Excel?
Chun airde an ró a athrú i mbileog oibre, féadfaidh an chuid is mó dínn an ghné Airde Rae a chur i bhfeidhm chun airde an tsraith roghnaithe a shocrú. Má tá liosta uimhreacha agat, áfach, agus anois, ba mhaith leat airde an tsraith a shocrú bunaithe ar na luachanna cille mar a leanas an pictiúr a thaispeántar, conas a d’fhéadfá déileáil leis an tasc seo in Excel?
Athraigh airde an tsraith bunaithe ar luach cille le cód VBA
Athraigh airde an tsraith bunaithe ar luach cille le cód VBA
Níl aon bhealach díreach ann duit airde iolracha as a chéile a athrú bunaithe ar luach cille ag an am céanna, ach, leis an gcód VBA seo a leanas, féadfaidh sé cabhrú leat an post seo a chríochnú chomh tapa agus is féidir.
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Athraigh airde an tsraith bunaithe ar luach cille:
Sub rowheight()
'Updateby Extendoffice
Dim hgt As Variant
Dim WorkRng As Range
xTxt = ActiveWindow.RangeSelection.Address
Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
For Each H In WorkRng
If H.Value > 15 Then
hgt = H.Value
H.EntireRow.Select
Selection.rowheight = hgt
End If
Next H
End Sub
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit na cealla a theastaíonn uait airde an tsraith a shocrú de réir luachanna na gcealla, féach an scáileán:
4. Agus ansin cliceáil OK cnaipe, athraíodh airde an tsraith de réir luach na cille mar seo a leanas:
nótaí: Sa chód VBA thuas, Má H.Value> 15 Ansin tugann sé le fios má athraítear luach na cille níos mó ná 15, go n-athrófar airde an tsraith, más lú luach na cille ná 15, fanfar airde an rón mar an airde réamhshocraithe. Is féidir leat é a athrú de réir mar is gá duit.
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á!