Conas clómhéid a athrú go tapa bunaithe ar luach cille in Excel?

In Excel, is féidir leat clómhéid cille a athrú de réir mar is mian leat, ach an ndearna tú iarracht riamh an clómhéid a athrú bunaithe ar luach colún eile, mar a thaispeántar sa scáileán thíos? San Airteagal seo, tugann mé isteach roinnt cód VBA chun cabhrú leat méid an chló a athrú go tapa bunaithe ar luach cille in Excel.

Athraigh clómhéid bunaithe ar luach colúin eile
Athraigh clómhéid bunaithe ar luach cille agus fad carachtar

Athraigh clómhéid bunaithe ar luach colúin eile

Chun an clómhéid a athrú bunaithe ar luach colún eile, seo cód VBA a chabhróidh leat.

1. Téigh go dtí an bhileog ar mhaith leat clómhéid a athrú bunaithe ar cholún eile, agus brúigh Alt + F11 eochair ag an am céanna a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. cliceáil Ionsáigh > Modúil, agus ansin greamaigh an cód VBA thíos isteach sa Modúil. Féach an pictiúr:

VBA: Athraigh clómhéid bunaithe ar luach colúin eile

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

3. Brúigh F5 eochair, beidh dialóg pop suas, agus roghnaigh na cealla is mian leat a athrú méid a gcló. Féach ar an scáileán:

4. cliceáil OK, agus ansin rinneadh na cealla sa cholún roghnaithe a choigeartú de réir na luachanna sa cholún in aice láimhe.

Athraigh clómhéid bunaithe ar luach cille agus fad carachtar

Más mian leat an clómhéid a athrú bunaithe ar luach na cille féin nó ar fhad na gcarachtar, mar shampla, nuair a bhíonn an luach cille níos mó ná 10, nó nuair a bhíonn fad an charachtair níos mó ná 5, ansin athraíonn an clómhéid go 16, agus athrú cló chuig Arial, murach é sin, is é 11 méid an chló, agus is é Calibri an cló mar a thaispeántar an scáileán thíos.

1. Brúigh Alt + F11 eochracha le cumasú Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. cliceáil Ionsáigh > Modúil, agus greamaigh thíos an cód go Modúil script. Féach an pictiúr:

VBA: Athraigh clómhéid bunaithe ar luach cille nó fad carachtar

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

3. Brúigh F5 eochair chun an cód a rith, agus na luachanna atá níos mó ná 10 nó fad carachtar níos mó ná 5, athraíodh a gcló go Arial agus clómhéid go 16.

Leid: Sa chód thuas, is féidir leat raon G2: B9 a athrú go raon eile de réir mar is mian leat.