İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də cell dəyərinə əsasən şrift ölçüsünü necə tez dəyişmək olar?

doc 7 dəyərinə əsasən şriftin ölçüsünü dəyişdirin
Excel-də, istədiyiniz zaman mobil yazı tipi ölçüsünü dəyişə bilərsiniz, lakin ekran sətrinin aşağıda göstərildiyi kimi başqa bir sütun dəyərinə əsasən mobil yazı ölçüsünü dəyişdirməyə cəhd etdinizmi? Bu yazıda, Excel-də cell dəyərinə əsasən şrift ölçüsünü tez bir şəkildə dəyişməyə kömək etmək üçün bəzi VBA kodunu təqdim edirəm.
Digər sütun dəyərinə əsasən şrift ölçüsünü dəyişin

Mobil dəyər və xarakter uzunluğuna əsasən şrift ölçüsünü dəyişin

Xüsusi Hüceyrələri seçin

ilə Excel üçün Kutools's Xüsusi Hüceyrələri seçin kommunal, bir ceviz iki meyarına əsasən hüceyrələri / satır / sütunları seçə bilərsiniz, sonra lazım olanları biçimləndirə bilərsiniz, belə font ölçüsünü, arxa planı və s. dəyişə bilərsiniz.

doc xüsusi hüceyrələri seçin

arrow mavi sağ bubble Digər sütun dəyərinə əsasən şrift ölçüsünü dəyişin


Digər bir sütun dəyərinə əsasən font ölçüsünü dəyişdirmək üçün burada bir VBA kodu sizə kömək edə bilər.

1. Digər sütuna əsasən şrift ölçüsünü dəyişdirmək istədiyiniz səhifəyə keçin və düyməsini basın Alt + F11 eyni anda açmaq üçün açar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modules, və sonra VBA altına yapışdırın Modules. Ekran görüntüsünə baxın:

VBA: Digər sütun dəyərinə əsasən şrift ölçüsünü dəyişin

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 2 dəyərinə əsasən şriftin ölçüsünü dəyişdirin

3. Basın F5 açar, bir informasiya qutusu çıxır və şrift ölçüsünü dəyişdirmək istədiyiniz hüceyrələri seçin. Ekran görüntüsünə baxın:
doc 3 dəyərinə əsasən şriftin ölçüsünü dəyişdirin

4. klik OKsonra seçilmiş sütundakı hüceyrələr sütunun yanında olan dəyərlərə əsasən font ölçüsünə düzəldilmişdir.
doc 4 dəyərinə əsasən şriftin ölçüsünü dəyişdirin


arrow mavi sağ bubble Mobil dəyər və xarakter uzunluğuna əsasən şrift ölçüsünü dəyişin

Excel üçün Kutools, daha çox 120 lazımlı Excel funksiyaları, iş səmərəliliyinizi artırmaq və iş vaxtınızı qorumaqdır.

Digər tərəfdən, məsələn, hüceyrənin dəyəri 10-dən çox olduqda və ya uzunluğu 5-dən çox olduqda, şriftin ölçüsü 16-ə dəyişirsə, font və Arial əlifbası dəyişir, əksinə, font ölçüsü 11 və yazı tipi Calibri'dir.
doc 5 dəyərinə əsasən şriftin ölçüsünü dəyişdirin

1. Basın Alt + F11 düymələri aktivləşdirmək Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modulesvə kodu aşağıdan yapışdırın Modules skript. Ekran görüntüsünə baxın:

VBA: Şriftin ölçüsünü mobil dəyər və ya xarakter uzunluğuna görə dəyişdirin

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 6 dəyərinə əsasən şriftin ölçüsünü dəyişdirin

3. Basın F5 kodu çalıştırmaq üçün açar və 10-dən və ya xarakter uzunluğundan böyük olan dəyərlər 5-dən çoxdur, fontlarını Arial və font ölçüsünə 16-ə dəyişir.

Ip ucu: Yuxarıdakı kodda, G2 aralığını dəyişə bilərsiniz: B9 istədiyiniz digərləri üçün.

doc download 1



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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.