Aktif hücreyi büyütme

[woodteacher]

Aktif olan hücreyi sanki büyüteçle bakıyormuşuz gibi büyütebilirmiyiz..
Buna uygun bir makro varmı arkadaşlar..
Hücreye tıkladığımız zaman 2 katı kadar mesala büyüse biraz öne gelse...

 

[hamitcan]

Linkteki örneği inceleyin.
http://www.vbaexpress.com/kb/getarticle.php?kb_id=615

 

[woodteacher]

Sn.hamitcan ilgin için teşekkür ederim
denedim ama olmadı , tam olarak nasıl yapacağımı anlatabilirsen sevinirim..

 

[hamitcan]

Linkte örnek dosya mevcut. Hücreyi seçtiğinizde makro çalışıyor.

 

[woodteacher]

Sn.hamitcan
Kodu yapıştırdım güzel oldu aslında , sıkıntım sadece tek bir hücreye uygulanmış olması..
Bu koda ( A1:AB100 ) gibi bir aralık tanımlayabilirmiyiz....
Çözebilirsek çok minnettar olurum , teşekkür ederim şimdiden..

 

[hamitcan]

If Target.Address = "$A$2" Then

satırını,

If intersect(Target, range("A1:ab100")) is nothing Then exit sub

şeklinde değiştirin.

 

[woodteacher]

Böylebir hata verdi hamitcan

 

[Korhan Ayhan]

Merhaba,

METİN KUTUSU ile hazırladığım örnek dosyayı incelermisiniz.

F11 tuşu ile bu özelliği kapatabilirsiniz.
Tekrar açmak işstediğinizde F12 tuşuna basmanı yeterlidir.

İsteğe göre daha da geliştirebilirsiniz.

 

[woodteacher]

Korhan hocam yaptığınız şey güzel olmuş fakat sıkıntısı var.
Altındaki hücreleri göremiyorum , birde altında kalan hücreler açılır hücre genelde , bu değişiklikleri göremiyorum...

 

[woodteacher]

hamitcan hocam 7.nolu mesajda gösterdiğim hatayı verdi....

 

[woodteacher]

Korhan hocam aslında mantığınız çok güzel ,
Şöyle olabilirmi aktif olan hücre direk pencere şeklinde büyüse , açılır pencere filan benzeri şeylere uyumlu olabilse...

 

[Korhan Ayhan]

Merhaba,

Ekteki dosyada biraz daha farklı bir çalışma hazırladım. Direk hücre fontunu büyülterek işlem yapılmaktadır. Sanırım bu şekliyle istediğinize yakın bir sonuç ortaya çıktı.

 

[woodteacher]

Korhan hocam
Son çalışmanız güzel olmuş fakat şöyle bir sıkıntı var...
Bazı hücreler büyüdüğü haliyle kalıyor tekrar eski haline dönmüyor..

* Hücreler açılır hücre olduğundan içini boş sanıyor bir yazı göremiyor , dolayısıyla büyümüyor.hücrenin içinden uzun kelimelerde çıkacak yerine göre
* Mesala en geniş hücre ( C ) sutunu değeri 15 br.Bunu 30 br.genişletip içindeki yazı karakterlerinide aynı şekilde iki katı olacak şekilde pencerede büyütebiliyormuyuz.
* Tüm sütünları 30 br olarak büyütebilirmiyiz , boşta olsa...
* Birde korhan hocam A.sutunu sabit hep büyük kalıyor...


- Örnek çalışmayı eke koydum Korhan hocam ,

ilgi ve alakanız için minnettarım , Teşekkürler ederim.

 

[woodteacher]

Resimdeki hatayı nasıl düzeltebilirim...

A1:A50 arasında geçerli olacak istediğim çalışma...

 

[Korhan Ayhan]

Merhaba,

Birde ekteki dosyayı inceleyin.

 

[woodteacher]

Korhan hocam ana tabloda sutun genişlikleri değişiyor , şablon hiç değişmesin istiyorum...

hücreye tıklıyınca büyüyecek , hücreden çıkınca eski haline dönecek....

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak aşağıdaki koduda deneyebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row > 50 Or Target.Column > 28 Then
        ActiveWindow.Zoom = 100
    Else
        ActiveWindow.Zoom = 300
    End If
End Sub

 

[woodteacher]

Merhaba,

Alternatif olarak aşağıdaki koduda deneyebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row > 50 Or Target.Column > 28 Then
        ActiveWindow.Zoom = 100
    Else
        ActiveWindow.Zoom = 300
    End If
End Sub

Korhan hocam bu komutu , ( A1:A30 ) arası sınırlıyabilirmiyiz...
Diğer hücreye geçince örneğin B.deki hücreye tekrar eski boyuta dönsün...
Çünkü bu formülde tüm hücrelere tanımlandığı için tekrar küçültemiyorum
Bide korhan hocam sadece A1:A30 daki dokunduğum hücrenin bulunduğu sutun büyüse diğerleri olduğu gibi kalsa

 

[Murat OSMA]

6. mesaja bkz:

If Target.Address = "$A$2" Then

satırını,

If not intersect(Target, range("A1:ab100"))Then exit sub

şeklinde değiştirin.

 

[woodteacher]

Murat hocam denedim onu 14 nolu mesajdaki hatayı verdi..