Word'de Mouse İle Üzerine Tıklayınca Aşağı Açılan Liste

[canemcan]

Arkadaşlar elimde şehir ve telefon listesi var. Wordde sayfa açılınca şehirler listelensin ve şehirin üzerine mouse ile tıklayınca aşağı doğru telefonlar listelensin istiyorum. Bu konuda forumda ve internette arama yaptım ama bulamadım. yardımlarınızı bekliyorum

 

[canemcan]

arkadaşlar bir türlü bulamadım hala yardımlarınız için şimdiden teşekkürler

 

[Kemal Demir]

Word derken Microsoft Word ( Document ) mi anlayalım.Örnek teşkil etmesi açısından kucuk bir dosya sisteme yüklermisiniz.

 

[canemcan]

evet microsoft word dan bahsediyorum.

 

[canemcan]

örnek veriyorum.
ANKARA
İSTANBUL
İZMİR

bu şekilde yazdık. mouse ile ANKARA yı tıkladığım zaman aşağı doğru telefon numaraları çıksın istiyorum. tekrar tıkladığım zaman telefon listesi kapansın ANKARA başlığı kalsın istiyorum

 

[Kemal Demir]

Bilemiyorum.

 

[canemcan]

word un eski versiyonlarında + kalın artı şeklinde bir işaret vardı oradan yapılıyordu sanırım anlatmak istediğim. yardımcı olabilir diye yazdım

 

[canemcan]

Şöyle bir bilgi buldum; Görüntüleme alternatifleri arasındaki "Anahat" seçeneği ile çalışırken, alt başlıkların yanında artı veya eksi İşareti bulunduğunu görebilirsiniz. Eğer artı İşareti üzerine çift tıklarsanız sadece başlık görüntülenir ve bu başlığın altındaki açıklamalar kapatılır. Bir kez daha çift tıklamak İse, açıklamaların tekrar açılmasını sağlar.

istediğim tam olarak bu ama sadece anahat biçiminde çalışırken oluyor . sayfa düzeni görnümünde çalışırken böyle olmuyor

 

[mami68]

Sayfa üzerine önce bir ComboBox1 Ekle ve içine çift tıkladığın zaman içine şu kodları yerleştir.Ondan sonra benim yazmış olduğum numaralar içine sizin numaraları ekleyin.İstediğiniz kadarda çoğaltın.İyi çalışmalar.

 Private Sub ComboBox1_Change()
ComboBox1.AddItem "Ankara"
ComboBox1.AddItem "0532 123 45 67"
ComboBox1.AddItem "0532 123 45 68"
ComboBox1.AddItem "0532 123 45 69"
ComboBox1.AddItem "0532 123 45 70"
ComboBox1.AddItem "0532 123 45 71"
ComboBox1.AddItem "İzmir"
ComboBox1.AddItem "0532 123 45 67"
ComboBox1.AddItem "0532 123 45 68"
ComboBox1.AddItem "0532 123 45 69"
ComboBox1.AddItem "0532 123 45 70"
ComboBox1.AddItem "0532 123 45 71"
ComboBox1.AddItem "İstanbul"
ComboBox1.AddItem "0532 123 45 68"
ComboBox1.AddItem "0532 123 45 69"
ComboBox1.AddItem "0532 123 45 70"
ComboBox1.AddItem "0532 123 45 71"
ComboBox1.AddItem "0532 123 45 72"
ComboBox1.AddItem "0532 123 45 73"
ComboBox1.AddItem "0532 123 45 74"
ComboBox1.AddItem "0532 123 45 75"
ComboBox1.AddItem "0532 123 45 76"
ComboBox1.AddItem "0532 123 45 71"
ComboBox1.AddItem "0532 123 45 71"
ComboBox1.AddItem "0532 123 45 71"
ComboBox1.AddItem "0532 123 45 71"
ComboBox1.AddItem "0532 123 45 71"
ComboBox1.AddItem "0532 123 45 71"
ComboBox1.AddItem "0532 123 45 71"



End Sub

 

[canemcan]

Sayfa üzerine önce bir ComboBox1 Ekle ve içine çift tıkladığın zaman içine şu kodları yerleştir.Ondan sonra benim yazmış olduğum numaralar içine sizin numaraları ekleyin.İstediğiniz kadarda çoğaltın.İyi çalışmalar.

Private Sub ComboBox1_Change()
ComboBox1.AddItem "Ankara"
ComboBox1.AddItem "0532 123 45 67"
ComboBox1.AddItem "0532 123 45 68"
ComboBox1.AddItem "0532 123 45 69"
ComboBox1.AddItem "0532 123 45 70"
ComboBox1.AddItem "0532 123 45 71"
ComboBox1.AddItem "İzmir"
ComboBox1.AddItem "0532 123 45 67"
ComboBox1.AddItem "0532 123 45 68"
ComboBox1.AddItem "0532 123 45 69"
ComboBox1.AddItem "0532 123 45 70"
ComboBox1.AddItem "0532 123 45 71"
ComboBox1.AddItem "İstanbul"
ComboBox1.AddItem "0532 123 45 68"
ComboBox1.AddItem "0532 123 45 69"
ComboBox1.AddItem "0532 123 45 70"
ComboBox1.AddItem "0532 123 45 71"
End Sub

teşekkür ederim. eline sağlık ancak comboBox1 nereden ekleniyor onu bulamadım

 

[mami68]

Araçlar >>> Özeleştir >>> Araç Çubukları >>> Denetim araç kutusunu onaylayın sonradan önünüze çıkan formundan KomutDüğmesini(ComboBox)seçin.Komutu sayfanın bir yerine yapıştırdıktan sonra içine çift tıkla ve açılan kod sayfasına bu kodaları yapıştırın.

Dikkat:İki sefer Private Sub ComboBox1_Change() yazmasın.
End Sub