Hoe de rijhoogte wijzigen op basis van de celwaarde in Excel?
Om de rijhoogte in een werkblad te wijzigen, kunnen de meesten van ons de functie Rijhoogte toepassen om de hoogte van de geselecteerde rij in te stellen. Als u echter een lijst met nummers heeft en u nu de rijhoogte wilt instellen op basis van de celwaarden zoals in het onderstaande screenshot, hoe kunt u dan met deze taak omgaan in Excel?
Wijzig de rijhoogte op basis van de celwaarde met VBA-code
Er is geen directe manier om meerdere rijhoogten tegelijk te wijzigen op basis van de celwaarde, maar met de volgende VBA-code kan het u helpen om deze taak zo snel mogelijk af te ronden.
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: verander de rijhoogte op basis van de celwaarde:
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. Druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren de cellen te selecteren waarvan u de rijhoogte wilt instellen op basis van de celwaarden, zie screenshot:
4. En klik vervolgens op OK knop, is de rijhoogte als volgt gewijzigd door de celwaarde:
Note: In bovenstaande VBA-code, Als H.Value> 15 Then geeft aan dat als de celwaarde groter is dan 15, de rijhoogte zal worden gewijzigd, als de celwaarde kleiner is dan 15, de rijhoogte op de standaardhoogte zal blijven. U kunt het naar behoefte wijzigen.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!