Sut i newid uchder y rhes yn seiliedig ar werth celloedd yn Excel?
I newid uchder y rhes mewn taflen waith, gall y mwyafrif ohonom gymhwyso'r nodwedd Uchder Row i osod uchder y rhes a ddewiswyd. Fodd bynnag, os oes gennych restr o rifau, ac yn awr, rydych chi am osod uchder y rhes yn seiliedig ar werthoedd y gell fel a ganlyn y screenshot a ddangosir, sut allech chi ddelio â'r dasg hon yn Excel?
Newid uchder y rhes yn seiliedig ar werth celloedd gyda chod VBA
Newid uchder y rhes yn seiliedig ar werth celloedd gyda chod VBA
Nid oes unrhyw ffordd uniongyrchol ichi newid uchder rhes lluosog yn seiliedig ar werth celloedd ar unwaith, ond, gyda'r cod VBA canlynol, gall eich helpu i orffen y swydd hon cyn gynted â phosibl.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Newid uchder y rhes yn seiliedig ar werth y gell:
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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i ddewis y celloedd rydych chi am osod uchder y rhes yn ôl gwerthoedd y gell, gweler y screenshot:
4. Ac yna cliciwch OK botwm, mae uchder y rhes wedi'i newid yn ôl gwerth y gell fel a ganlyn:
Nodyn: Yn y cod VBA uchod, Os H.Value> 15 Yna yn nodi, os yw gwerth y gell yn fwy na 15, y bydd uchder y rhes yn cael ei newid, os yw gwerth y gell yn llai na 15, bydd uchder y rhes yn cael ei aros yr uchder diofyn. Gallwch ei newid yn ôl yr angen.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!