Salt la conținutul principal

Cum se schimbă rapid dimensiunea fontului pe baza valorii celulei din Excel?

doc modifică dimensiunea fontului pe baza valorii 7
În Excel, puteți modifica dimensiunea fontului celulei după cum doriți, dar ați încercat vreodată să modificați dimensiunea fontului celulei pe baza unei alte valori a coloanei, așa cum este prezentat mai jos? În acest articol, introduc câteva coduri VBA pentru a vă ajuta să modificați rapid dimensiunea fontului pe baza valorii celulei din Excel.
Modificați dimensiunea fontului pe baza unei alte valori a coloanei

Modificați dimensiunea fontului pe baza valorii celulei și a lungimii caracterelor

săgeată albastru dreapta balon Modificați dimensiunea fontului pe baza unei alte valori a coloanei

Pentru a modifica dimensiunea fontului pe baza unei alte valori a coloanei, iată un cod VBA care vă poate ajuta.

1. Mergeți la foaia pe care doriți să modificați dimensiunea fontului pe baza unei alte coloane și apăsați Alt + F11 tasta simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Module, și apoi lipiți sub VBA în Module. Vedeți captura de ecran:

VBA: Modificați dimensiunea fontului pe baza unei alte valori a coloanei

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 modifică dimensiunea fontului pe baza valorii 2

3. presa F5 , apare un dialog și selectați celulele pe care doriți să le modificați dimensiunea fontului. Vedeți captura de ecran:
doc modifică dimensiunea fontului pe baza valorii 3

4. clic OKși apoi celulele din coloana selectată au fost ajustate dimensiunea fontului pe baza valorilor din coloana de lângă.
doc modifică dimensiunea fontului pe baza valorii 4


săgeată albastru dreapta balon Modificați dimensiunea fontului pe baza valorii celulei și a lungimii caracterelor

Pe de altă parte, dacă doriți să modificați dimensiunea fontului pe baza valorii proprii a celulei sau a lungimii caracterului, de exemplu, atunci când valoarea celulei este mai mare de 10 sau lungimea caracterului este mai mare de 5, atunci dimensiunea fontului se schimbă la 16, și schimbarea fontului în Arial, în caz contrar, dimensiunea fontului este 11, iar fontul este Calibri, după cum se arată în imaginea de mai jos.
doc modifică dimensiunea fontului pe baza valorii 5

1. presa Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Module, și lipiți codul de mai jos în Module scenariu. Vedeți captura de ecran:

VBA: Modificați dimensiunea fontului pe baza valorii celulei sau a lungimii caracterului

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 modifică dimensiunea fontului pe baza valorii 6

3. presa F5 tasta pentru a rula codul, iar valorile care sunt mai mari de 10 sau lungimea caracterelor este mai mare de 5 au fost modificate fontul lor la Arial și dimensiunea fontului la 16.

Sfat: În codul de mai sus, puteți schimba gama G2: B9 la altele după cum doriți.

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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