Metin kutularını seçenek düğmeleri ile yönetmek...

[umutsancar]

Merhaba!

Çalışmalarıma metin kutuları ekledikten sonra seçenek tuşları ile yönetmek istiyorum. 2 seçenek düğmesinden seçili olan metin kutusu görünür olacak, diğeri gizlenecek. Umarım anlatabilmişimdir...


Bu nesneleri formüle bağlayamıyor muyuz?

Saygılar & Sevgiler...

 

[danersin]

Ad Kutusu'ndan Metin Kutusu ismi ne ise ona göre aşağıdaki kodlarda değişiklik yapabilirsiniz. Optionbutton lara aşağıdaki kodları eklediğinizde istediğiniz olur.

[vb:1:c00c718148]Private Sub OptionButton1_Click()
ActiveSheet.Shapes("Metin Kutusu 1").Visible = False
End Sub
Private Sub OptionButton2_Click()
ActiveSheet.Shapes("Metin Kutusu 1").Visible = True
End Sub[/vb:1:c00c718148]

 

[xxrt]

Bu nesneleri formüle bağlayamıyor muyuz?

Dikdörtgenin/Metin kutusu adını ad kutusundan "xxrt" olarak değiştirdim..

Private Sub OptionButton1_Click()
ActiveSheet.Shapes("xxrt").Select
Selection.Characters.Text = "Merhaba"
Range("A1").Select
End Sub

Dikdörtgene/Metin kutusu "Merhaba"yazdık..A1 Hücresinede nesneden çıkmak üzere yazdık.
Diğer yapmak istenilenleri örneği geliştirerek uygularsınız..

 

[danersin]

Bu nesneleri formüle bağlayamıyor muyuz?

Yada metin kutusu (yada xxrt ) seçili olduğu halde formül çubuğuna girip =A1 yazın ve istediğiniz formülü a1 hücresinde yazın, neticesi metin kutunuzda çıkacaktır.

 

[xxrt]

neticesi metin kutunuzda çıkacaktır.

Buda güzelmiş... :bravo: