Ugrás a tartalomra

Hogyan lehet gyorsan módosítani a betűméretet az Excel cellája alapján?

doc módosítsa a betűméretet a 7. érték alapján
Az Excelben tetszés szerint módosíthatja a cella betűméretét, de megpróbálta-e már megváltoztatni a cella betűméretét egy másik oszlopérték alapján, az alábbi képernyőképen? Ebben a cikkben bemutatok néhány VBA-kódot, amelyek segítségével gyorsan módosíthatja a betűméretet az Excel cellája alapján.
A betűméret módosítása egy másik oszlopérték alapján

A betűméret módosítása a cellaérték és a karakterhossz alapján

nyíl kék jobb buborék A betűméret módosítása egy másik oszlopérték alapján

Ha a betűméretet egy másik oszlopérték alapján szeretné megváltoztatni, itt egy VBA-kód segíthet.

1. Lépjen arra a lapra, amelynek betűméretét egy másik oszlop alapján módosítani kívánja, és nyomja meg a gombot Alt + F11 gombot egyszerre a megnyitáshoz Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, majd illessze be a VBA alá a Modulok. Lásd a képernyőképet:

VBA: A betűméret módosítása egy másik oszlopérték alapján

Sub fontchange()
'UpdatebyExtendoffice20160614
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select cells that you want to change font size:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "Only can select one column", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Font.Size = xCell.Offset(, 1).Value
    Next
    Application.ScreenUpdating = True
End Sub

doc módosítsa a betűméretet a 2. érték alapján

3. nyomja meg F5 gombot, megjelenik egy párbeszédpanel, és válassza ki azokat a cellákat, amelyek betűméretét módosítani kívánja. Lásd a képernyőképet:
doc módosítsa a betűméretet a 3. érték alapján

4. kettyenés OK, majd a kiválasztott oszlop celláiban a betűméretet módosították az oszlop melletti értékek alapján.
doc módosítsa a betűméretet a 4. érték alapján


nyíl kék jobb buborék A betűméret módosítása a cellaérték és a karakterhossz alapján

Másrészt, ha meg akarja változtatni a betűméretet a cella saját értéke vagy karakterhossza alapján, például amikor a cella értéke nagyobb 10-nél, vagy a karakter hossza nagyobb, mint 5, akkor a betűméret 16-ra változik, és a betűkészlet Arialra változik, különben a betűméret 11, a betűkészlet pedig Calibri, ahogy az alábbi képen látható.
doc módosítsa a betűméretet a 5. érték alapján

1. nyomja meg Alt + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, és illessze be a kód alá a következőbe: Modulok forgatókönyv. Lásd a képernyőképet:

VBA: A betűméret módosítása a cella értéke vagy a karakter hossza alapján

Private Sub Worksheet_Calculate()
'UpdatebyExtendoffice20160614
    Dim xCell As Range
    For Each xCell In Range("G2:H9")
        With xCell
            If Len(.Text) > 5 Or Val(.Value) > 10 Then
                .Font.Name = "Arial"
                .Font.Size = 16
            Else
                .Font.Name = "Calibri"
                .Font.Size = 11
            End If
        End With
    Next
End Sub

 

doc módosítsa a betűméretet a 6. érték alapján

3. nyomja meg F5 kulcsot a kód futtatásához, és a 10-nél nagyobb, vagy a karakterhosszúság meghaladja az 5-ös értékeket megváltoztatták a betűtípust Arialra és a betűméretet 16-ra.

Tipp: A fenti kódban megváltoztathatja a G2: B9 tartományt másokra, ahogy akarja.

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations