Excel de görünüm değişikliği

[selo1234]

Merhabalar,
Excel de yaptığım bir program var. Bu programda excel menüye commandbar ile menü ekledim ve çeşitli macroları buradan çalıştırıyorum.
İstediğim, ekranın soluna sutun halinde butonlar koyup macroları bunlar üzerinden çalıştırmak. Formların veya sayfaların ise ekranın kalan kısmında açılması. Yani solda alt alta olacak butonların devamlı gözükmesi ve tıklayınca alt butonların açılması.
İsteğim, birazcık access veya web sayfası görünümüne yakın bir görünüm elde etmek.
Bu konuda bilgisi veya önerisi olan var mı acaba? Excel de bunu yapmak mümkünmüdür?
Destekleriniz ve görüşleriniz için şimdiden teşekkürler
selo1234

 

[ftekin]

Butonlar için fikir vermesi açısından küçük bir örnek..

 

[selo1234]

İlginize teşekkürler ftekin,
Benim aklımdan geçen biraz daha farklı idi. Excel in geri kalan kısmında form ve sayfaların açılması. Üzerinde düşünüyorum hala.
diğer taraftan, cursor ın butonların üzerine gelince el işaretini almasını nasıl yaptınız anlayamadım, işime yarayabilir. module içinde göremedim kodunu, açıklarsanız sevinirim.
İyi günler

 

[ftekin]

Oradaki butona herhangi bir makro atadığınızda zaten otomatikman el işareti çıkıyor.
Onun için ayrı bir kod yazmaya gerek yok.

 

[selo1234]

teşekkürler,
Benim istediğim excel sayfası üzerindeki butonlar için değil. Userformdaki butonların üzerine gelince cursorun el şeklinde olması ve butonun renginin değişmesini istiyorum.
Bu konuda bir tavsiyeniz varsa makbule geçer.
İyi çalışmalar

 

[Yüksel Varlı]

Merhaba,
Userformda Commandbuton oluşturun. Özellikler bölümünü açın. MausePointer değerini 99 yapın. Mause İcon değerine el resminin bulunduğu ".ico" ya da ".cur" uzantılı bir resmi atayın.

 

[sailor01]

Buton rengi değişimi içinde şunları yazabilirsiniz ;

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = 65280
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = -2147483633
End Sub

 

[selo1234]

Teşekkürler Yüksel Varlı,
Faydalı oldu. Şu internetde kullandığımız el şeklindeki icon un adını bulamıyorum. Bilgisayarda arattım ama başka iconları buldu, ismini söylerseniz veya kopayasını eklerseniz memnun olurum.

Size de teşekkürler Sailor01,
denedim çalışıyor ama butondan çok uzaklaştıktan sonra renk geri dönüyor. Benim butonlar alt alta yapışık gibi duruyor. Bir öneriniz olabilir mi?
Tekrar teşekkürler, iyi çalışmalar

 

[Yüksel Varlı]

el resmini buradan alabilirsiniz.

 

[sailor01]

Sanırım şöyle birşey yapılabilir;

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = 65280
CommandButton2.BackColor = -2147483633
CommandButton3.BackColor = -2147483633
CommandButton4.BackColor = -2147483633
CommandButton5.BackColor = -2147483633
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = -2147483633
CommandButton2.BackColor = -2147483633
CommandButton3.BackColor = -2147483633
CommandButton4.BackColor = -2147483633
CommandButton5.BackColor = -2147483633
End Sub

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = -2147483633
CommandButton2.BackColor = 65280
CommandButton3.BackColor = -2147483633
CommandButton4.BackColor = -2147483633
CommandButton5.BackColor = -2147483633
End Sub

Diğer butonlar için kodları aynı şekilde devam ettirebilirsiniz.

 

[selo1234]

teşekkürler, sağolun.

 

[selo1234]

Merhaba Sailor01,
Çok yaratıcı bir buluş oldu gecenin bu saatinde.
Çok güzel çalışıyor.
Benim buton sayım biraz fazla 15 kadar ama kopyalarım. düşünce şık.
Hoşcakalın