Hvordan ændres rækkehøjden baseret på celleværdi i Excel?
For at ændre rækkehøjden i et regneark kan de fleste af os muligvis bruge rækkehøjde-funktionen til at indstille højden på den valgte række. Men hvis du har en liste med nummer, og nu vil du indstille rækkehøjden baseret på celleværdierne som vist nedenstående skærmbillede, hvordan kan du håndtere denne opgave i Excel?
Skift rækkehøjde baseret på celleværdi med VBA-kode
Der er ingen direkte måde for dig at ændre flere rækkehøjder baseret på celleværdi på én gang, men med den følgende VBA-kode kan det hjælpe dig med at afslutte dette job så hurtigt som muligt.
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Skift rækkehøjde baseret på celleværdi:
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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises en promptboks for at minde dig om at vælge de celler, som du vil indstille rækkehøjden efter celleværdierne, se skærmbillede:
4. Og klik derefter på OK knap, er rækkehøjden ændret af celleværdien som følger:
Bemærk: I ovenstående VBA-kode, Hvis H. værdi> 15 Så angiver, at hvis celleværdien større end 15, ændres rækkehøjden, hvis celleværdien er mindre end 15, forbliver rækkehøjden standardhøjden. Du kan ændre det efter behov.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!