Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: drejan62 - 11 Mayıs 2010, 15:36:51

Başlık: Treeview Oluşturmak
Gönderen: drejan62 - 11 Mayıs 2010, 15:36:51

Merhabalar,
Oluşturacağımız Treeviw nesnesindeki ana ve alt başlıklar Mev Sayfasında bulunan  a sütununda anabaşlıklar, b sütununda alt başlıklar ve c sütununda ise bu başlıklara ait açıklamalar olsun biz her başlığı tıkladığımızda oluşturduğumuz textbox üzerine c sütununda bulunan açıklamalar görüntülensin.
Teşekkür ederim...

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: Treeview Oluşturmak
Gönderen: Bülent Öztürk - 12 Mayıs 2010, 08:55:19

Merhaba Ercan Bey,

Hangi alt başlık, hangi üst başlık altında yer alacak, anlayamadım?
Biraz düzensiz geldi...

Başlık: Ynt: Treeview Oluşturmak
Gönderen: drejan62 - 13 Mayıs 2010, 12:33:33

Üstadlar,
Treeviw oluşturduk sayfa2 de b ve c sutunundaki veriler Treeviewde başlık olarak görünmekte, treeviewdeki başlıklara tıkladığımızda ise sayfa2  d sütunundaki veriler ise textboxta görünmekte.
Acaba user form üzerine koyacağımız bir arama butonu ile yazdığımız kelimeyi Sayf2 de arasa her sonrakine tıkladığımızda bulduğu verinin hangi treeview başlığında olduğunu gösterse.
olabilirmi acaba?

Başlık: Ynt: Treeview Oluşturmak
Gönderen: Bülent Öztürk - 13 Mayıs 2010, 13:41:16

Dosyanızın son halini ekleyebilir misiniz?

Başlık: Ynt: Treeview Oluşturmak
Gönderen: drejan62 - 13 Mayıs 2010, 14:49:50

Alıntı yapılan: Bülent Öztürk - 13 Mayıs 2010, 13:41:16

Dosyanızın son halini ekleyebilir misiniz?

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: Treeview Oluşturmak
Gönderen: Bülent Öztürk - 13 Mayıs 2010, 17:22:34

Kodlar şifreli!

Başlık: Ynt: Treeview Oluşturmak
Gönderen: drejan62 - 13 Mayıs 2010, 17:47:54

Alıntı yapılan: Bülent Öztürk - 13 Mayıs 2010, 17:22:34

Kodlar şifreli!

üstat çok özür dilerim hiç yaptığım bişey değildir

üstad şifre 123456

Başlık: Ynt: Treeview Oluşturmak
Gönderen: Bülent Öztürk - 27 Mayıs 2010, 12:19:11

"Sonraki" şeklinde değil de, bulunanları işaretleme şeklinde isterseniz;

Kod: [Seç]

Private Sub CommandButton1_Click()
For b = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(b).Expanded = False
TreeView1.Nodes(b).Bold = False
TreeView1.Nodes(b).Selected = False
Next b

bul = InStr(1, TextBox1, TextBox2, vbTextCompare)
If bul = 0 Then MsgBox "Bulamadım!", vbExclamation, TextBox2: TextBox2.SetFocus: GoTo tree ': Exit Sub
TextBox1.SetFocus
TextBox1.SelStart = bul - 1
TextBox1.SelLength = Len(TextBox2)
tree:
For i = 1 To TreeView1.Nodes.Count
    If TreeView1.Nodes(i) Like "*" & TextBox2.Text & "*" Then
        TreeView1.Nodes(i).EnsureVisible
        TreeView1.Nodes(i).Bold = True
        TreeView1.Nodes(i).Selected = True
    End If
Next i
End Sub

Başlık: Ynt: Treeview Oluşturmak
Gönderen: Bülent Öztürk - 27 Mayıs 2010, 13:06:46

Sonraki şeklinde seçim şu şekilde olabilir;

Kod: [Seç]

Private Sub CommandButton2_Click()
'SONRAKİ
Static s As Integer
For b = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(b).Expanded = False
TreeView1.Nodes(b).Bold = False
TreeView1.Nodes(b).Selected = False
Next b

If s <= 0 Then s = 1
For k = s + 1 To TreeView1.Nodes.Count
    If TreeView1.Nodes(k) Like "*" & TextBox2.Text & "*" Then
        TreeView1.Nodes(k).EnsureVisible
        TreeView1.Nodes(k).Bold = True
        TreeView1.Nodes(k).Selected = True
        s = k
        Exit Sub
    End If
Next k

End Sub