UserForm'da Caption değerini hücreden almak

[klop01]

Bir Excel Çalışma Kitabında oluşturulan UserForm1'in Caption değerini Sayfa1'deki A1 hücreden alabilir miyiz?

 

[netzone]

Merhaba,

Bu kod ile işinizi görebilirsiniz.

Private Sub Workbook_Open()

UserForm1.Caption = Worksheets("Sayfa1").Cells(1, 1).Text

End Sub


iyi çalışmalar

 

[klop01]

Sayın netzone,
Kodu çalışma kitabına yapıştırdım.
Bir şey olmadı, ÇALIŞMADI.

 

[Ömer BARAN]

Merhaba.

UserForm'un Initialize kod blokuna aşağıdaki gibi bir satır ekleyin.
.

    Me.Caption = Sheets("Sayfa1").[A1]

 

[klop01]

Sayın BARAN,
Ben bu UserForm konusunda yeniyim.

Şöyle yazdım olmadı:

Private Sub UserForm1_Initialize()
Me.Caption = Sheets("Sayfa1").[A1]

 

[Ömer BARAN]

Mevcut kod satırlarının tümünü silin ve yerine aşağıdaki kod blokunu yapıştırın.
.

[B]Private Sub UserForm_Initialize()[/B]
    Me.Caption = Sheets("Sayfa1").[A1]
[B]End Sub[/B]

 

[klop01]

Kodu yapıştırdım fakat ilgili yerde hâlâ UserForm1 yazıyor.

 

[klop01]

Ömer Bey,
UserForm'u başlangıçta otomatik açtırınca geliyor.
Tasarım ekranında UserForm1 olarak görünüyormuş.
Yardımınız için teşekkür ediyorum.

 

[Ömer BARAN]

Belge ekte.
.

 

[klop01]

Ekli belge için sağ olun.
Konu anlaşılmıştır.

 

[klop01]

Ömer Bey,
Userform'un Caption yazısı Properties kısmından renkli yapılamıyor galiba.
Mevcut koda yapılacak bir ekle Userform'un Caption yazısı kırmızı, mavi vb. renklerde ve kalın(bold) yazılabilir mi?

 

[Korhan Ayhan]

Evet "Caption" bölümünün font rengi değişmiyor.

Çok gerekliyse formunuzun başlık kısmını gizleyip o bölüme bir "Label" ekleyip biçimlendirebilirsiniz.

Aşağıdaki linkte başlık font renginin değişmesinden bahsedilmiş. Fakat bu basit işlem için çok uzun "api" kodlaması yapılmış. Ben çalıştıramadım.

İncelemek isterseniz; https://www.mrexcel.com/forum/excel-questions/371818-how-change-userform-caption-font.html

 

[klop01]

Çok gerekli değil, olabiliyorsa iyi olur düşüncesi ile soruyu sormuştum.
Bilgilendirme için teşekkürler.

 

[Haluk]

Ben kendi yaptığım bazı programlarda benzer API'lerle bu işi yaptım (çok daha kısa kodlarla).

Ancak özetle; yapılan değişiklik UserForm'un handle numarasını (hWnd) bulup da sadece ona özgü olmadığı daha doğrusu, yapılan değişiklik o anki aktif pencereyle ilgili olduğu için, kodu denemek amacıyla kurcalarken Excel'in kendisinde veya VB Editörde bu değişiklikler meydana gelebilir.

Yani, bu API'ler Windows'un sistem ayarlarıyla ilgilidir. Bu yüzden, "normal" kullanıcıların kullanmamasında fayda vardır.

Bilgilerinize,

.