Excel'deki hücre değerine göre yazı tipi boyutunu hızlı bir şekilde nasıl değiştirebilirim?
Yazı tipi boyutunu başka bir sütun değerine göre değiştirin
Yazı tipi boyutunu hücre değerine ve karakter uzunluğuna göre değiştirin
Yazı tipi boyutunu başka bir sütun değerine göre değiştirin
Yazı tipi boyutunu başka bir sütun değerine göre değiştirmek için, işte bir VBA kodu size yardımcı olabilir.
1. Yazı tipi boyutunu başka bir sütuna göre değiştirmek istediğiniz sayfaya gidin ve Alt + F11 açmak için aynı anda anahtar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve sonra VBA'nın altına yapıştırın. modül. Ekran görüntüsüne bakın:
VBA: Yazı tipi boyutunu başka bir sütun değerine göre değiştirin
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. Basın F5 tuşu, bir iletişim kutusu açılır ve yazı tipi boyutlarını değiştirmek istediğiniz hücreleri seçin. Ekran görüntüsüne bakın:
4. tık OKve sonra seçili sütundaki hücreler, sütunun yanındaki değerlere göre yazı tipi boyutunu ayarladı.
Yazı tipi boyutunu hücre değerine ve karakter uzunluğuna göre değiştirin
Diğer yandan, yazı tipi boyutunu hücrenin kendi değerine veya karakter uzunluğuna göre değiştirmek isterseniz, örneğin hücre değeri 10'dan büyük veya karakter uzunluğu 5'ten fazla olduğunda yazı tipi boyutu 16 olarak değişir, ve yazı tipi Arial olarak değişir, aksi takdirde yazı tipi boyutu 11'dir ve yazı tipi aşağıda gösterilen ekran görüntüsü gibi Calibri'dir.
1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve aşağıdaki kodu şuraya yapıştırın: modül senaryo. Ekran görüntüsüne bakın:
VBA: Yazı tipi boyutunu hücre değerine veya karakter uzunluğuna göre değiştirin
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. Basın F5 kodu çalıştırmak için anahtar ve 10'dan büyük veya karakter uzunluğu 5'ten fazla olan değerlerin yazı tipi Arial ve yazı tipi boyutu 16 olarak değiştirildi.
Bahşiş: Yukarıdaki kodda, G2: B9 aralığını istediğiniz gibi başkalarına değiştirebilirsiniz.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!