yazı tipi boyutunu sabit tutma

[yakup123]

arkadaşlar merhaba

excelde hücre içerisine yazılan yazını boyutunu değiştirmemeyi nasıl yaparım
mısal 12 punto olacak ne ustu ne altı degıştırılemıyecek
saygılarımla

 

[İhsan Tank]

arkadaşlar merhaba

excelde hücre içerisine yazılan yazını boyutunu değiştirmemeyi nasıl yaparım
mısal 12 punto olacak ne ustu ne altı degıştırılemıyecek
saygılarımla

merhaba
sayfanın kod bölümüne kopyalayın

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1").font.Size = 12
End Sub

a1 hücresinde değer değiştiğinde otomatik 12 fontuna dönüşür

 

[yakup123]

ihsan bey çok teşekkür ederim peki bunu C9:F100 hucre aralıgına nasıl tanımlayabılırım tek hucre degılde

 

[İhsan Tank]

ihsan bey çok teşekkür ederim peki bunu C9:F100 hucre aralıgına nasıl tanımlayabılırım tek hucre degılde

merhaba

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C9:F100")) Is Nothing Then Exit Sub
Target.font.Size = 12
End Sub

bu işinizi görür sanırım

 

[kan-nas]

İhsan hocam yazdığınız kodun açıklamsını yazabilir misiniz.?

 

[kan-nas]

Range("c9:f100").Font.Size = 12

Yukarıdakide olur..

 

[yakup123]

ihsan hocam çok denedim ama çalışmıyor
bi önceki çalışıyordu

 

[yakup123]

bu hucre aralığı için nasıl yapabılırım acaba ihsan bey

 

[yakup123]

ihsan bey ?

 

[İhsan Tank]

ihsan hocam çok denedim ama çalışmıyor
bi önceki çalışıyordu

bende gayet güzel çalışıyor
sabır sabır
siz farklı bir şey mi deniyorsunuz anlamadım
C9:F100 aralığında çalışıyor ben şimdi gene deneyim.

 

[yakup123]

ihsan bey dosya ektedir bir bakarmısınız olmuyor

 

[yakup123]

deniyorum ama olmuyor

 

[Ömer]

Merhaba,

Kodları module değil çalışma sayfasının yani Sayfa1 in kod bölümüne yazmanız gerekir.

Modulden silip Sayfanın kod bölümüne yazıp denermisiniz.

.

 

[yakup123]

ömer hocam merhaba
dnemiştim ama şimdi tekrar denedim o şekildede olmuyor
yazı boyutunu arttırabılınıyor yazmadan önce mısal 20 puntoya çıkardıgınızda
enter dedıgınızde 12 ye tekrardan gerı çekıyor evet ama mısal kışı gelıp tekrardan enter dedıkten sonra 20 puntoya çıkarabılıyor buna çare yokmu acaba

 

[İhsan Tank]

ömer hocam merhaba
dnemiştim ama şimdi tekrar denedim o şekildede olmuyor
yazı boyutunu arttırabılınıyor yazmadan önce mısal 20 puntoya çıkardıgınızda
enter dedıgınızde 12 ye tekrardan gerı çekıyor evet ama mısal kışı gelıp tekrardan enter dedıkten sonra 20 puntoya çıkarabılıyor buna çare yokmu acaba

merhaba
sayfanın kod bölümüne

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Range("C9:F100").Font.Size = 12
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C9:F100").Font.Size = 12
End Sub

bu kod'u kopyalayın ve deneyin.
seçim yaptığınızda da fontlar otomatik 12 olarak ayarlanacaktır

 

[yakup123]

işte buu ihsan hocam number one siniz valla çok teşekkür ederim

 

[İhsan Tank]

işte buu ihsan hocam number one siniz valla çok teşekkür ederim

rica ederim
türkçe kelime kullanmaya gayret gösteriniz_?
asıl bir numara sitedeki uzman arkadaşlar
:yazici:

 

[yakup123]

tabiki diger uzman arkadaşlarada selamlar sizede
saygılarımla

 

[ccuneyt13]

Başta Sn. İhsan Tank ve diğer uzman arkadaşlar her ne kadar başka bi konu açmış olsamda sanırım benim çözümümde bu yolla olabilir diye düşünürek sormak istedim. Ek'te bulunan dosyada 3. satırdaki tüm biçimleri (yazı tipini, punta boyutunu, kalın ince, tarih sayı vs.) olduğu gibi muhafaza edecek şekilde yapabilme imkanımız olurmu? yani bir başkası oraya ne girerse girsin tüm biçimler benim ayarladığım ve istediğim şekilde kalacak şekilde?

Yadımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[İhsan Tank]

Başta Sn. İhsan Tank ve diğer uzman arkadaşlar her ne kadar başka bi konu açmış olsamda sanırım benim çözümümde bu yolla olabilir diye düşünürek sormak istedim. Ek'te bulunan dosyada 3. satırdaki tüm biçimleri (yazı tipini, punta boyutunu, kalın ince, tarih sayı vs.) olduğu gibi muhafaza edecek şekilde yapabilme imkanımız olurmu? yani bir başkası oraya ne girerse girsin tüm biçimler benim ayarladığım ve istediğim şekilde kalacak şekilde?

Yadımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

bu konu ile gerçekten alakası varmış.
peki bunu sadece 3. satırda mı istiyorsunuz yoksa tüm kitap'ta mı istiyorsunuz