• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücre Açıklamaları Hk.

  • Konbuyu başlatan Konbuyu başlatan petsiye
  • Başlangıç tarihi Başlangıç tarihi
P

petsiye

Altın Üye
Katılım
28 Eylül 2009
Mesajlar
193
Excel Vers. ve Dili
Office 2019 TR 32 Bit
Merhaba,

Bildiğimiz üzere, hücrelere eklemiş olduğumuz açıklamalar, tercihimize göre, üzerine mause getirdiğimizde görüntüleniyor. Benim sorum şudur ; Mause ile hücre üzerine geldiğimizde görüntülenen açıklamanın konumunu belirleyebilirmiyiz acaba. Bu iş kod ile yapılabilir mi ? Kutools adlı eklenti ile sanırım bu mümkün ama eklenti her Pc de yüklü olmayabileceği için bu şekilde kalıcı bir çözüm olmuyor maalesef.

Yardım ve desteiğiniz için şimdiden teşekkür ederim.
 
Merhaba Korhan Bey,

Foruma yazmadan önce forumda aratıp cevabı bulamamıştım. Gönderdiğiniz linktede epey baktım ama yok maalesef. Acaba ben mi bulamadım buna benzer bir soru ?

Tekrar teşekkür ederim
 
Sadece cevapsız 1 soru var benim sorum ile aynı soruyu soran
 

Hücre içi açıklamalar yerlerinde değil, sayfaya dağınık halde

Merhaba Ortak kullanıdığımız bir dosya var hücre açıklamları ekledim. Fakat dosyayı daha sonra açtığımda açıklamalar her biri çizgi ile hücresinden uzak yerlerde gösteriyordu. Taşıma ile halledebiliyorum ama çok açıklama var bu şekidle bunu kısayoldan halledebilir myim? bir hata oluşmuş gibi çünkü
www.excel.web.tr www.excel.web.tr
 
Yardımınız için Teşekkür ederim Korhan Bey,

Açıklamalardaki belirtilen ne varsa aynısını yaptım. Olmadı :-)
 
Örnek dosya paylaşırsanız yardım almanız kolaylaşır.
 
Açıklamaların konumunu nereye almak istiyorsunuz?
 
Merhaba Korhan Bey ,

Tablonun Üst Ortasına olabilir mesela
 
Sayfanızın kod bölümüne uygulayıp deneyiniz.

C++: 
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Aciklama As Comment, Aciklama_Kutusu As Shape
    
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
        
    If Not ActiveCell.Comment Is Nothing Then
        Set Aciklama = ActiveCell.Comment
        Set Aciklama_Kutusu = Aciklama.Shape
        Aciklama_Kutusu.Top = ActiveCell.Top
        Aciklama_Kutusu.Left = ((Application.Width / 2) - (Aciklama_Kutusu.Width / 2)) + (Application.Width / ActiveWindow.Zoom)
        Aciklama.Visible = True
    End If
End Sub
 
Oldu vallahi Korhan Bey. Hay Allah razı olsun sizden.

İyi çalışmalar dilerim. Çok Teşekkür ederim..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst