Yazı tipi boyutu

[AKREP1]

Sevgili arkadaşlar.Bir sorum olacaktı.Ben bir not hesaplama tablosu hazırlıyorum.Bu tabloda çok sayıda sayfa var.Bu sayfaların çoğu tablolar halinde.Bir hücreye 100 yazdığımda hücreye sığmıyor.Seçip puntoyu 8 yapmak gerekiyor.Bu iş ise çok zaman alıyor.Bir kısa yol var mı? 100 yazıldığında otomatik olarak bütün tablolardaki hücrede 100 olanların puntosu 8 olsun.İkincisi excel sayfasına animasyonlı yazı nasıl eklenir.Teşekkürler.:yardim:

 

[geren36]

Göz kırpan hücre ve her göz kırpıldığında değeri (1) artan başka hücre ...


Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
[b1] = [b1] + 1
if [b1] = 100 then exit sub

RunWhen = Now + TimeSerial(0,0,1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("Sheet1").Range("A1").Font.ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", , False
End Sub
Then, in the ThisWorkbook code module of the workbook, use code like:
Private Sub Workbook_Open()
StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub

 

[AKREP1]

Yazı boyutunu otomatik ayarlama

Arkadaşlar excel çalışma kitabımda çok sayfa var ve bunların çoğu tablolarla dolu.Tablolardan bir hücreye 100 yazıldığında sayı hücre içine sığmıyor seçilip puntosu 8 olması gerekiyor.Bunu bütün tablodaki hücrelerde otomatik olarak nasıl yapabilirim.(Makro kullanmayı bilmiyorum)Saygılarımla.

 

[AS3434]

Sayın AKREP1
Lütfen aynı soru yeni başlık açmayın. Soru başlıklarında "acil yardım" , "Lütfen Yardım" gibi ibareler kullanmayın.

 

[AS3434]

Hangi sayfada çalışma yapacaksanız, altta sayfa adı yazan yere sağ klik yapın. Açılan pencerede Kod Görüntüle basın ve yine açılan sayfaya aşağıdaki kodları kopyalayın.

C sütunu baz alınarak yapılmıştır. Hangi sütunlarda çaılşmasını isterseniz.
[c:c] yazan yere o sütunları yazın. Mesela [b:e] gibi
Rakam değeri 100 ve üzeri olan hücrelerin yazı tipi boyutu 8, diğer sayıların boyutu 10 olacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
If Target.Cells.Value > 99 Then
Target.Cells.Font.Size = 8
Else
Target.Cells.Font.Size = 10
End If
End Sub

 

[AKREP1]

Çok TeŞekkÜr Ederİm

 

[AS3434]

Sayın AKREP1

Sonradan farkettim, Sorunuzda çok sayfadan bahsetmişsiniz. Yukarıdaki kod sadece bir sayfa içindir.
Tüm çalışma kitabına uygulamak için aşağıdaki kodları This WorkBook' a kopyalamalısınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Cells.Value > 99 Then
Target.Cells.Font.Size = 8
Else
Target.Cells.Font.Size = 10
End If
End Sub

Ekteki dosyada açıklamalar mevcut.

 

[AKREP1]

Teşekkürler saygılar