Skip to main content

AccessTr.neT


Comment Açıklama Bilgisi Kodunu Revize Etmek

Comment Açıklama Bilgisi Kodunu Revize Etmek

Çözüldü #1
Merhaba herkese
Aşağıdaki kod ile hangi hücreyi tıklarsam açıklama ekleyebiliyorum. Ama açıklama var olan hücreyi tıkladığımda mevcut açıklama gelmiyor inputbox boş geliyor .
Benim yapamadığım B2:B aralığında 6 haneli rakam olmak şartı ile b2 b aralığında 6 haneli rakam bulunan satırların B:AK Satır aralığına tıklarsam inputbox açılsın başka aralık ta açılmasın
Bir de hücrede açıklama var isevi hücreye tıkladığımda inputbox mevcut açıklamayı mutlaka göstersin. Değiştirmek istersem ben inputbox içindeki metni silip yenisini yazayım.
Yardım edebilecek olan varsa çok sevinirim .
Kod:
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Açıklama_Ekleme As Comment

Dim strText As String

a = 2

If Cells(a, 1) > 0 Then

  strText = Application.InputBox("Eklenecek olan mesajı aşağıya yazınız.", _

    "Açıklama_Ekleme", "Açıklama Ekler", , , , 2)

         If Application.ExecuteExcel4Macro("Get.Cell(46)") = True Then

    ActiveCell.Comment.Delete

      End If

  ActiveCell.AddComment

  Set Açıklama_Ekleme = ActiveCell.Comment

    With Açıklama_Ekleme

      .Text Text:=strText

      With .Shape.TextFrame.Characters.Font

        .Name = "Arial"

        .Size = 8

        .Bold = False

      End With

    End With

    End If

End Sub 

.rar Comment Açıklama Bilgisi.rar (Dosya Boyutu: 12,09 KB | İndirme Sayısı: 1)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Comment Açıklama Bilgisi Kodunu Revize Etmek - Yazar: hayalibey - 18/11/2020, 16:13
Task