Excel de büyüteç

[maxinus]

Merhaba,

Acaba excel de userform yada makro kullanarak büyüteç yapabilme şansımız var mı? Excel de geldiğim hücredeki yazı veya rakamın büyümesi gibi... Teşekkür ederim.

 

[Türk-Han]

Bende böyle bir kod var ama işine yarar mı bilmiyorum.


Dim eski

Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If eski <> Empty Then
Range(eski).Font.Name = "TAHOMA"
Range(eski).Font.Size = 10
Range(eski).Font.ColorIndex = 1
Selection.Font.Bold = False
End If

If Intersect(Target, Range("A1:L40")) _
Is Nothing Then Exit Sub
Selection.Font.Name = "tahoma"
Selection.Font.Size = 14
Selection.Font.ColorIndex = 3
eski = Target.Address(False, False)

End Sub

 

[Levent Menteşoğlu]

A&#351;a&#287;&#305;daki koduda deneyebilirsiniz. Sayfan&#305;n kod sayfas&#305;na kopyalay&#305;n. Se&#231;ilen h&#252;cresin fontunu b&#252;y&#252;tecektir.

Dim adr, olcu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If adr <> Empty Then Range(adr).Font.Size = olcu
Cancel = True
If ActiveCell <> "" Then
adr = ActiveCell.Address
olcu = ActiveCell.Font.Size
ActiveCell.Font.Size = 20
End If
End Sub

 

[Seyit Tiken]

Alternatif : Herhangi bir hücreye çift tıklayarak, çıkan UserForm'un üzerindeki, aşağı/yukarı düğmeye basarak, sayfa büyütme/küçültmeyi gözlemleyin.

 

[hsayar]

Aşağıdaki koduda deneyebilirsiniz. Sayfanın kod sayfasına kopyalayın. Seçilen hücresin fontunu büyütecektir.

Dim adr, olcu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If adr <> Empty Then Range(adr).Font.Size = olcu
Cancel = True
If ActiveCell <> "" Then
adr = ActiveCell.Address
olcu = ActiveCell.Font.Size
ActiveCell.Font.Size = 20
End If
End Sub

Çok hoşuma gitti... bunu tüm excel kitapları için standart halşine getirme şansımız yokmu... veya sadece menüye bu sayfada büyük fontaç menüsü koysakda o makroyu o sayfaya kendi yazsa