Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com canviar ràpidament la mida de la font en funció del valor de la cel·la a Excel?

doc canvia la mida de la font segons el valor 7
En Excel, podeu canviar la mida de la font de la cel·la com vulgueu, però heu intentat canviar la mida de la font de cel·la en funció d'un altre valor de columna tal com es mostra a la captura de pantalla? En aquest article, presento un codi VBA que us ajudarà a canviar ràpidament la mida de la font en funció del valor de la cel·la a Excel.
Canvieu la mida de la font segons un altre valor de columna

Canvieu la mida de la font segons el valor de la cel·la i la longitud del caràcter

Seleccioneu cel·les específiques

amb Kutools for Excel's Seleccioneu cel·les específiques utilitat, podeu seleccionar cel·les / fila / columnes segons un o dos criteris, i formateu-los com necessiteu, com canviar la mida de la font, el fons, etc.

doc seleccioneu cel·les específiques

fletxa blau dreta bombolla Canvieu la mida de la font segons un altre valor de columna


Per canviar la mida de la font en funció d'un altre valor de columna, aquí hi ha un codi VBA que us pot ajudar.

1. Aneu al full que voleu canviar la mida de la font d'acord amb una altra columna i premeu Alt + F11 clau al mateix temps per obrir Microsoft Visual Basic per a aplicacions finestra.

2. clic Insereix > Mòduls, i després enganxeu per sota de VBA al Mòduls. Mostra la captura de pantalla:

VBA: canvia la mida de la font segons un altre valor de columna

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 canvia la mida de la font segons el valor 2

3. Premeu F5 tecla, apareix un quadre de diàleg i seleccioneu les cel·les que vulgueu canviar la mida de la font. Mostra la captura de pantalla:
doc canvia la mida de la font segons el valor 3

4. clic OK, i després, les cel·les de la columna seleccionada s'han ajustat a la mida de la font segons els valors al costat de la columna.
doc canvia la mida de la font segons el valor 4


fletxa blau dreta bombolla Canvieu la mida de la font segons el valor de la cel·la i la longitud del caràcter

Kutools for Excel, amb més de 120 Funcions Excel útils, milloren la vostra eficiència laboral i estalvien el temps de treball.

D'altra banda, si voleu canviar la mida de la font en funció del valor propi o la longitud del caràcter de la cel·la, per exemple, quan el valor de la cel·la sigui superior a 10, o la longitud del caràcter sigui més que 5, la mida de la font canviarà a 16, i el canvi de font a Arial, en cas contrari, la mida de la font és 11, i la font és Calibri com es mostra a continuació.
doc canvia la mida de la font segons el valor 5

1. Premeu Alt + F11 claus per activar Microsoft Visual Basic per a aplicacions finestra.

2. clic Insereix > Mòduls, i enganxeu-lo per sota del codi Mòduls guió. Mostra la captura de pantalla:

VBA: canvieu la mida de la font segons el valor de la cel·la o la longitud del caràcter

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 canvia la mida de la font segons el valor 6

3. Premeu F5 la clau per executar el codi i els valors més grans que 10 o la longitud del caràcter són més que 5 han canviat la seva font a Arial i la mida de la font a 16.

Consell: En el codi anterior, podeu canviar el rang G2: B9 a altres com vulgueu.

doc descarregueu 1



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.