مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.


انا لله و انا الیه راجعون

ایجاد treevieiw در یوزر فرم

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • s.ardavani
    • 2022/03/08
    • 3

    پرسش ایجاد treevieiw در یوزر فرم

    با سلام
    در فایل اکسل دو ستون وجود دارد که ستون اول شاما 5000 نام سازمان است که غیر تکراری هستند و ستون دوم، سازمان مافوق هر یک از این سازمانهاست که از اسامی ستون یک می باشند. برخی از سازمانها، سازمان مافوق ندارند یعنی سلول متاناظر آنها در ستون b، خالی است. هر سازمان در ستون b، میتواند چندین زیر مجموعه داشته باشد. (لزوما یک فرزند ندارد). این روابط پدر و فرزندی میتواند تا چندین مرحله ادامه پیدا کند. هر سازمان مافوقی، خودش فرزند سازمان مافوق دیگری است.
    چگونه میتوان این روابط سلسله مراتبی را در یک یوزر فرم و از طریق treeview نشان داد به صورتیکه با آپدیت مداوم فایل اکسل، این درخت نیز آپدیت گردد
    با تشکر
  • iranweld

    • 2015/03/29
    • 3341

    #2
    با سلام
    یک نمونه فایل با حجم کم ضمیمه سایت کنید.

    Click image for larger version

Name:	Untitled.png
Views:	1
Size:	25.7 کیلو بایت
ID:	139408

    کامنت

    • s.ardavani
      • 2022/03/08
      • 3

      #3
      فایل نمونه

      اکسلی با فرمت سوال، پیوست میگردد. اکسل اصلی 5000 سطر دارد
      فایل های پیوست شده

      کامنت

      • s.ardavani
        • 2022/03/08
        • 3

        #4
        کد نوشته شده برای TREEVIEW به شکل زیر است
        ولی نیاز بنده این است که کدی بنویسم که از ستون اول و دوم استفاده کند و روابط پدر فرزندی را پیدا کند و مشابه درختواره مورد نظر، ایجاد کند.

        Private Sub UserForm_Initialize()With Me.TreeView1
        .Nodes.Add , , "ORG1", "1" 'main
        .Nodes.Add "ORG1", tvwChild, "ORG3", "3"
        .Nodes.Add "ORG3", tvwChild, "ORG5", "5"
        .Nodes.Add "ORG5", tvwChild, "ORG10", "10"

        .Nodes.Add "ORG3", tvwChild, "ORG8", "8"
        .Nodes.Add "ORG8", tvwChild, "ORG9", "9"

        .Nodes.Add "ORG1", tvwChild, "ORG4", "4"

        .Nodes.Add , , "ORG2", "2" 'main
        .Nodes.Add "ORG2", tvwChild, "ORG6", "6"
        .Nodes.Add "ORG6", tvwChild, "ORG7", "7"



        End With
        End Sub

        کامنت

        چند لحظه..