Hur ändrar jag radhöjden baserat på cellvärde i Excel?
För att ändra radhöjden i ett kalkylblad kan de flesta av oss använda funktionen Radhöjd för att ställa in höjden på den valda raden. Men om du har en lista med nummer och nu vill du ställa in radhöjden baserat på cellvärdena enligt följande skärmdump, hur kan du hantera den här uppgiften i Excel?
Ändra radhöjden baserat på cellvärde med VBA-kod
Det finns inget direkt sätt för dig att ändra flera radhöjder baserat på cellvärde samtidigt, men med följande VBA-kod kan det hjälpa dig att slutföra det här jobbet så snabbt som möjligt.
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Ändra radhöjden baserat på cellvärde:
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. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta poppar ut för att påminna dig om att du väljer de celler som du vill ställa in radhöjden efter cellvärdena, se skärmdump:
4. Och klicka sedan på OK -knappen har radhöjden ändrats av cellvärdet enligt följande:
Anmärkningar: I ovanstående VBA-kod, Om H.Värde> 15 Då indikerar att om cellvärdet är större än 15 kommer radhöjden att ändras, om cellvärdet är mindre än 15 kommer radhöjden att förbli standardhöjden. Du kan ändra det efter behov.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!