Hücreye Açıklama Ekleme İşlemi

Ömer BARAN

• 15 Mar 2020

• #2

Merhaba Sayın @SilinenUye8231 .

-- Var olan bir açıklamanın rengini değiştirmek istiyorsanız yeşil satır yeterlidir.
-- Var olan bir açıklamanın metnini değiştirmek istiyorsanız mavi satır yeterlidir.
-- Hücrede hiç açıklama yok ise kırmızı satırlar yeterlidir.

Gerekli olan satırları Sub makro_adı() ......... End Sub arasına alırsınız.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(8 satır)

 

Oyla 0 Olumsuz oyla

SilinenUye8231

• 15 Mar 2020

• #3

Sayın Ömer Bey, ilginiz için çok teşekkür ediyorum, Allah razı olsun.
Aşağıdaki kod çok işime yarayacak. Bu kod arasına açıklamanın boyutunun ölçülerini, yatay ve dikey ortalama ekleyebilir miyiz?

With [B1]
.Comment.Delete
.AddComment
.Comment.Text Text:="BU RENK OLANLAR AYNI T.C. DİR." & Chr(10) & ""
.Comment.Shape.Fill.ForeColor.RGB = RGB(255, 153, 0)
End With

 

Oyla 0 Olumsuz oyla

SilinenUye8231

• 15 Mar 2020

• #4

Makro kaydet ile oluşan aşağıdaki kodları sizin yazdığınız kodlara eklemeye çalıştım, olmadı.

.ShapeRange.ScaleHeight 1.26, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleWidth 0.81, msoFalse, msoScaleFromTopLeft
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

 

Oyla 0 Olumsuz oyla

Ömer BARAN

• 15 Mar 2020

• #5

Koddaki ...TOP ve ....LEFT kısmı, hücrenin üstüne faryle gelindiğindeki konumunu değil,
hücreye sağ tıklayıp AÇIKLAMA GÖSTER seçeneği işaretlendiğindeki konumdur.
WİDTH ve HEİGHT değerlerini SAYI vererek de belirlersiniz, ben bir sağdaki hücrenin boyutlarını verdim.
Sizin verdiğiniz kodda, otomatik boyuta göre bir ORANLAMA sözkonusudur.

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(13 satır)

 

Oyla 0 Olumsuz oyla

SilinenUye8231

• 15 Mar 2020

• #6

Sayın Ömer Bey, ellerinize sağlık valla süper olmuş, çok teşekkür ediyorum.
Kod C1 hücresinin boyutuna göre çalışıyor, istediğimiz sayılarla yapmak istersek nasıl olacak?
C1 yazan yerlere sayı giriyorum olmuyor.

 

Oyla 0 Olumsuz oyla

Ömer BARAN

• 15 Mar 2020

• #7

80, 100 gibi biraz büyük değerler yazarak deneyin.

 

Oyla 0 Olumsuz oyla

SilinenUye8231

• 15 Mar 2020

• #8

Sayın Ömer Bey, aşağıdaki kod gayet güzel oldu, ellerinize sağlık. Buradaki yazılarıda kalın yapmak istediğimizde ne eklememiz gerekir?

Sub B1_E_ACIKLAMA_EKLE_DUZENLE()
With [B1]
.ClearComments: .AddComment
.Comment.Text Text:="BU RENK OLANLAR AYNI BİLGİLERDİR."
.Comment.Shape.Fill.ForeColor.RGB = RGB(255, 192, 0)
.Comment.Shape.Width = 90
.Comment.Shape.Height = 50
.Comment.Shape.TextFrame.HorizontalAlignment = xlHAlignCenter
.Comment.Shape.TextFrame.VerticalAlignment = xlHAlignCenter
End With
End Sub

 

Oyla 0 Olumsuz oyla

SilinenUye8231

• 15 Mar 2020

• #9

Bu şekilde ekledim, hata verdi. Üsteki mesajımdaki BİLGİ kelimesine link eklenmiş, ben eklemedim, bilginiz olsun.

.Comment.Shape.Font.Bold = True

 

Oyla 0 Olumsuz oyla

Ömer BARAN

• 15 Mar 2020

• #10

Aşağıdaki gibi, diğer metin özelliklerini de kullanabilirsiniz.

CSS:

İndirmek için giriş yapmanız gerekmektedir.
(20 satır)

 

Oyla 0 Olumsuz oyla

SilinenUye8231

• 15 Mar 2020

• #11

Sayın Ömer Bey, çok teşekkür ediyorum, ellerinize sağlık, uğraştırdım kusura bakmayın. Allah razı olsun.
Şimdi tam istediğim gibi çalışıyor, hayırlı sabahlar diliyorum.

 

Oyla 0 Olumsuz oyla

SilinenUye8231

• 15 Mar 2020

• #12

Sayın Ömer Bey, kusura bakmayın şöyle bi hata oluyor.
Açılışta With Selection.Font bu komut çalışmıyor.

Çalışma kitabına ekledim.

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(4 satır)

Modül kısmına ekledim.

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(20 satır)

 

Oyla 0 Olumsuz oyla

Ömer BARAN

• 15 Mar 2020

• #13

Sayın @SilinenUye8231 .
Select işlemi için, ilgili sayfanın aktif olması gerekir doğal olarak.
Belgenizin bütününü bilemiyorum ama mantık olarak şöyle ÇÖZÜM olur.
.
-- BuÇalışmaKitabı (ThisWorkbook) kısmına

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(5 satır)

.
-- Module1 'e

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(27 satır)

 

Oyla 0 Olumsuz oyla

SilinenUye8231

• 16 Mar 2020

• #14

Sayın Ömer Bey, ellerinize sağlık, çok teşekkür ediyorum, sorun çözüldü.
Hayırlı günler diliyorum.

 

Oyla 0 Olumsuz oyla