Page 1 of 1

สูตร วน loop นำผลลัพธ์ มาเป็นค่าตั้งต้นหาผลลัพธ์สุดท้าย

Posted: Sat Mar 01, 2014 10:30 pm
by oil_lio
ตย. ตาราง
ลูก ......... แม่ ......... ต้นตระกูล
8 ..... .... 7 ..... .... 1
9 ..... .... 6 ..... .... 0
6 ..... .... 5 ..... .... 0
5 ..... .... 4 ..... .... 0
4 ..... .... 2 ..... .... 0
2 ..... .... 0 ..... .... 0
7 ..... .... 3 ..... .... 1
3 ..... .... 1 ..... .... 1

8 เป็น ลูก ของ 7
7 เป็น ลูก ของ 3
3 เป็น ลูก ของ 1
ต้นตระกูลของ 8 ผลลัพธ์ คือ 1
ควรใช้สูตรใด วน loop หาดีคะ โดยไม่ต้อง Copy สูตรหา ถึง 3 ครั้ง (กรณีหา ต้นตระกูลของ 8)
เนื่องจากมีกรณีที่จำนวนครั้งที่ วน หาหลายรอบมากคะ จนกว่าจะได้ค่าสุดท้าย

Re: สูตร วน loop นำผลลัพธ์ มาเป็นค่าตั้งต้นหาผลลัพธ์สุดท้าย

Posted: Sat Mar 01, 2014 10:49 pm
by snasui
:D ลองตามนี้ครับ

Code: Select all

=LOOKUP(9.99999999999999E+307,CHOOSE({1,2,3,4,5,6,7,8},VLOOKUP(A1,$A$1:$B$8,2,0),VLOOKUP(VLOOKUP(A1,$A$1:$B$8,2,0),$A$1:$B$8,2,0),VLOOKUP(VLOOKUP(VLOOKUP(A1,$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(A1,$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(A1,$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(A1,$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(A1,$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(VLOOKUP(A1,$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0),$A$1:$B$8,2,0)))

Re: สูตร วน loop นำผลลัพธ์ มาเป็นค่าตั้งต้นหาผลลัพธ์สุดท้าย

Posted: Sat Mar 01, 2014 11:34 pm
by oil_lio
ของจริงมีมากกว่า 8 บรรทัดนะคะ เป็น 1000 บรรทัดควรใช่สูตรไหนดีคะ

Re: สูตร วน loop นำผลลัพธ์ มาเป็นค่าตั้งต้นหาผลลัพธ์สุดท้าย

Posted: Sat Mar 01, 2014 11:38 pm
by snasui
:D ใช้ VBA แทนซึ่งต้องเขียนมาก่อน ติดตรงไหนแล้วค่อยถามกันต่อครับ

Re: สูตร วน loop นำผลลัพธ์ มาเป็นค่าตั้งต้นหาผลลัพธ์สุดท้าย

Posted: Sun Mar 02, 2014 8:12 am
by oil_lio
:oops: ไม่เคยเขียน VBA นะคะ
พอจะมีตัวอย่างหรือ link ต่างๆที่ใกล้เคียงเป็นภาษาไทยให้ลองศึกษาบ้างไหมคะ จะลองพยายามนำไปประยุกต์ใช้ดูนะคะ
ขอบคุณคะ

Re: สูตร วน loop นำผลลัพธ์ มาเป็นค่าตั้งต้นหาผลลัพธ์สุดท้าย

Posted: Sun Mar 02, 2014 9:34 am
by snasui
:| ผมไม่มีแหล่งข้อมูลหรือแหล่งศึกษา VBA ที่เป็นภาษาไทย ลอง Search ใน Google ดูครับ

เบื้องต้นคิดว่าแหล่งศึกษาที่เป็นภาษาไทยสำหรับการเขียน VBA ลักษณะนี้ไม่น่าจะมีครับ

Re: สูตร วน loop นำผลลัพธ์ มาเป็นค่าตั้งต้นหาผลลัพธ์สุดท้าย

Posted: Sun Mar 02, 2014 9:56 am
by oil_lio
ภาษาอังกฤษที่ใกล้เคียงก็ได้คะ จะลองพยายามดู
ขอบคุณคะ

Re: สูตร วน loop นำผลลัพธ์ มาเป็นค่าตั้งต้นหาผลลัพธ์สุดท้าย

Posted: Sun Mar 02, 2014 10:08 am
by snasui
:D ตัวอย่างการ Search ครับ :arrow: Parent Child Loop