Aktif Hücre Büyüteci

[bendiler]

Hocalarım
Büyük Bir Tablom var
Benim istediğim hücreye tıkladığımda o anda aktif olan hücre içindeki değeri büyük göstermesi
Mümkünmüdür acaba, nasıl?
Şöylede olabilir hücreye tıkladığım yanda onun büyütülmüş halini örneğin yazı yüksekliği 16 gibi göstermek
Teşekkürler

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Target.ClearComments
If Target.Value = "" Then Exit Sub
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Shape.Select
Target.Comment.Text Text:=CStr(Target.Value)
With Selection.Font
        .Name = "Tahoma"
        .FontStyle = "Normal"
        .Size = 16
End With
Target.Comment.Visible = False
End Sub

 

[bendiler]

Teşekkürler
Yanlız şöyle bir durum var makro tüm satırı etkilediğinden çıktılarda problem oluyor
Bunu bağımsız şekilde çalıştırmamız mümkünmü yani hücreye tıkladığımızda veya üzerine gittiğimizde otomatik yana açılan bi büyütec gibi
Ve sayfanın tamamında geçerli olacak şekilde
Teşekkürler....

 

[Orion1]

Teşekkürler
Yanlız şöyle bir durum var makro tüm satırı etkilediğinden çıktılarda problem oluyor
Bunu bağımsız şekilde çalıştırmamız mümkünmü yani hücreye tıkladığımızda veya üzerine gittiğimizde otomatik yana açılan bi büyütec gibi
Ve sayfanın tamamında geçerli olacak şekilde
Teşekkürler....

Nasıl yani.
Tıkladığımız hücrenin yanındaki hücreyemi büyüteç uygulanacak.Ve yandaki hücrede tıklanan hücredeki verimi olacak?Ayrıca tüm satır büyümüyor sadece tıklanan hücredeki veri fontu 16 size oluyor.Ve a sütunu dışında çalışmıyor benim tsize verdiğim dosyada

 

[bendiler]

Hocam şöyle izah edeyim hücreye açıklama ekliyoruz sonra üzerine gittiğimizde otomatikman gözüküyor ya o tip bir şey olabilir yani hücrenin içindeki değeri açıklama olayında olduğu gibi açılan bi büyüteçte görmek

 

[Orion1]

Hocam şöyle izah edeyim hücreye açıklama ekliyoruz sonra üzerine gittiğimizde otomatikman gözüküyor ya o tip bir şey olabilir yani hücrenin içindeki değeri açıklama olayında olduğu gibi açılan bi büyüteçte görmek

Açıklama istiyorum deseniz ya.
Dosyayı 2 numaralı mesajdan düzenledipi.Tekrardan indirebilirsiniz.

 

[bendiler]

Boş hücrelere atmasa çok daha iyi olacak
Teşekkürler.........

 

[Orion1]

Boş hücrelere atmasa çok daha iyi olacak
Teşekkürler.........

İstediğiniz şekilde düzenledim.Dosyayı 2 numaralı mesajdan indirebilirsiniz.

 

[bendiler]

Çok çok Teşekkürler....

 

[Orion1]

Çok çok Teşekkürler....

Rica ederim.
İyi çalışmalar.

 

[bendiler]

Evren Hocam ;
Şöyle bir durum var sayıları göstermiyor sadece metinleri gösteriyor
Birde Sayfanın tümünü seçtiğimde kasıyor neden acaba?
Teşekkürler...

 

[Orion1]

Evren Hocam ;
Şöyle bir durum var sayıları göstermiyor sadece metinleri gösteriyor
Birde Sayfanın tümünü seçtiğimde kasıyor neden acaba?
Teşekkürler...

Birinic sorunuz düzeltildi.
2nci sorunuz ise bütün seçili hücrelere açıklama eklemye çalışıyor.Onun için kasar.
Siz en fazla kaç kilo yük taşıyabilirsiniz?
Diyelim ki 50 kg.
Ben sizin sırtınıza 200 kg yük koysam ne yapardınız.Yerinizden kımıldayabilirmidiniz acaba?

 

[bendiler]

Peki
Teşekkürler........

 

[Orion1]

Söylemeyi unuttum.
Dosyayı 2nci mesajdan indirebilirsiniz.

 

[Orion1]

Belkide siz windowsun büyüteç programını kullansanız daha iyi olur.
Başlat==>Programlar==>Donatılar==>Erişebilirlik==>Büyüteç

 

[bendiler]

Teşekkürler..........

 

[drejan62]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Target.ClearComments
If Target.Value = "" Then Exit Sub
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Shape.Select
Target.Comment.Text Text:=CStr(Target.Value)
With Selection.Font
        .Name = "Tahoma"
        .FontStyle = "Normal"
        .Size = 16
End With
Target.Comment.Visible = False
End Sub

Üstat eline sağlık,
Burda sadece A sütunu için geçerlu bu durum farklı sütunlar için (örnek: D sütunu) kodda nereyi değiştirmemiz gerekecek acaba?
Teşekkürler

 

[Orion1]

Üstat eline sağlık,
Burda sadece A sütunu için geçerlu bu durum farklı sütunlar için (örnek: D sütunu) kodda nereyi değiştirmemiz gerekecek acaba?
Teşekkürler

Bu kodlarda sütun sınırlaması yok.Her sütunda çalışır.

 

[drejan62]

Üstad,
Kodları ilgili sayfanın modülüne yazdım ama sadece A sütunundaki hücrelere tıklandığında açıklama ekleyip büyütüyor. Ban faklı sütünda çalışsın istiyorum ama olmuyor maalesef.

 

[Orion1]

Üstad,
Kodları ilgili sayfanın modülüne yazdım ama sadece A sütunundaki hücrelere tıklandığında açıklama ekleyip büyütüyor. Ban faklı sütünda çalışsın istiyorum ama olmuyor maalesef.

Siz becerememişsiniz.
Ekli dosyaya bakın.