Excel'de hücre değerine göre yazı boyutu nasıl hızlıca değiştirilir?
Başka bir sütunun değerine göre Yazı Boyutu değiştirme
Hücre değerine ve karakter uzunluğuna göre Yazı Boyutu değiştirme
Başka bir sütunun değerine göre Yazı Boyutu değiştirme
Başka bir sütundaki değere göre yazı boyutunu değiştirmenize yardımcı olacak VBA kodu aşağıdadır.
1. Yazı Boyutu değerini başka bir sütuna göre değiştirmek istediğiniz sayfaya gidin ve Alt + F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu Modül bölümüne yapıştırın. Ekran görüntüsüne bakın:
VBA: Başka bir sütunun değerine göre Yazı Boyutu değiştirme
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. F5 tuşuna basın; bir iletişim kutusu açılacak ve Yazı Boyutu değerini değiştirmek istediğiniz hücreleri seçin. Ekran görüntüsüne bakın:
4. Tamam düğmesine tıklayın; ardından seçili sütundaki hücrelerin Yazı Boyutu değerleri, bitişik sütundaki değerlere göre otomatik olarak ayarlanacaktır.
Hücre değerine ve karakter uzunluğuna göre Yazı Boyutu değiştirme
Hücrenin kendi değerine veya karakter uzunluğuna göre Yazı Boyutu’nu değiştirmek istiyorsanız — örneğin, hücre değeri 10’dan büyük olduğunda ya da karakter uzunluğu 5’ten fazla olduğunda Yazı Boyutu 16 olur ve yazı tipi Arial’e dönüşür; aksi takdirde Yazı Boyutu 11 kalır ve yazı tipi aşağıdaki ekran görüntüsünde gösterildiği gibi Calibri olarak korunur.
1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini etkinleştirin.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül betiğine yapıştırın. Ekran görüntüsüne bakın:
VBA: Hücre değerine veya karakter uzunluğuna göre Yazı Boyutu değiştirme
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. F5 tuşuna basarak kodu çalıştırın; 10'dan büyük olan veya karakter uzunluğu 5'ten fazla olan değerlerin yazı tipi Arial'e ve yazı boyutu 16'ya değiştirilmiştir.
İpucu: Yukarıdaki kodda G2:B9 aralığını istediğiniz başka bir aralıkla değiştirebilirsiniz.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar