Page 1 of 1
ต้องการสูตร Vlookup และ VBA โดยการอ่านจากรหัสตัวเลขครับ
Posted: Thu Aug 21, 2014 4:12 pm
by Anusornz
สวัสดีครับทุกท่าน วันนี้มีเรื่องให้ช่วยดูให้ครับ ขอออกตัวก่อนว่าผมทำเป็นเเต่ run macro ส่วน VBA ไม่ถัดเท่าไหร่ จึงอยากรบกวนท่านอาจารย์และท่านผู้เชี่ยวชาญ ดูสูตร Vlookup และ VBA โดยการอ่านจากรหัสตัวเลขครับ (มีไฟล์แนบมาประกอบครับ)
ใน sheet PM(Mid) จะเป็นแบบฟอร์มในการประเมินซึ่งข้อมูลพนักงานจะอ้างอิงตามรหัสพนักงานในช่อง T4 เมื่อเลือกรหัสคนใดข้อมูลของแต่ละคนก็จะขึ้นมา จากนั้นก็จะกรอกคะแนนและความคิดเห็นเพื่อประเมิน เมื่อกรอกเสร็จแล้วกดปุ่มบันทึกข้อมูลจะถูกส่งไปเก็บไว้ที่ Sheet Data และ Sheet Sumary แต่เมื่อเราเลือก รหัสพนักงานของคนอื่นข้อมูลเก่าของคนเดิมก็จะยังอยู่
จึงอยากรบกวนมีสูตรใดบ้างที่เมื่อเลือกรหัสพนักงานในช่อง T4 เเล้วข้อมูลตรง
คะแนนที่ได้ M51 M53 M55 M57 ความคิดเห็นของผู้บังคับบัญชา Q51 Q53 Q55 Q57 ความคิดเห็นผู้ประเมิน B63 ผู้ประเมิน R63
จะเปลี่ยนตามรหัสพนักงานในช่อง T4 โดยอ้างอิงข้อมูลที่บันทึกจาก Sheet Sumary ครับ
ผมลอง run macro ดูก็ไม่ได้อย่างที่ต้องการครับ
Re: ต้องการสูตร Vlookup และ VBA โดยการอ่านจากรหัสตัวเลขครับ
Posted: Thu Aug 21, 2014 8:45 pm
by snasui
จากตัวอย่างที่แนบมา คำตอบที่ต้องการในแต่ละช่องตามที่ถามมาคือค่าใด นำมาจากเซลล์ใดของชีท Summary ช่วยระบุมาด้วยครับ
Re: ต้องการสูตร Vlookup และ VBA โดยการอ่านจากรหัสตัวเลขครับ
Posted: Thu Aug 21, 2014 8:56 pm
by Anusornz
snasui wrote: จากตัวอย่างที่แนบมา คำตอบที่ต้องการในแต่ละช่องตามที่ถามมาคือค่าใด นำมาจากเซลล์ใดของชีท Summary ช่วยระบุมาด้วยครับ
คะแนนที่ได้ M51 M53 M55 M57 ข้อมูลจากเซลล์ S T U V
ความคิดเห็นของผู้บังคับบัญชา Q51 Q53 Q55 Q57 ข้อมูลจากเซลล์ W X Y Z
ความคิดเห็นผู้ประเมิน B63 ข้อมูลจากเซลล์ AA
ผู้ประเมิน R63 ข้อมูลจากเซลล์ AB
ครับอาจารย์
Re: ต้องการสูตร Vlookup และ VBA โดยการอ่านจากรหัสตัวเลขครับ
Posted: Fri Aug 22, 2014 8:01 am
by snasui
ตัวอย่าง Vlookup ที่ M51 ครับ
=VLOOKUP($T$4,Summary!$B$3:$AR$7,
18,0)
Enter > Copy ไปยังเซลล์ที่เกียวข้องและปรับเฉพาะตัวเลขที่ระบายสีไว้ในสูตร
สามารถศึกษา Vlookup เพิ่มเติมได้จากที่นี่ครับ
Vlookup
Re: ต้องการสูตร Vlookup และ VBA โดยการอ่านจากรหัสตัวเลขครับ
Posted: Fri Aug 22, 2014 8:45 am
by Anusornz
snasui wrote: ตัวอย่าง Vlookup ที่ M51 ครับ
=VLOOKUP($T$4,Summary!$B$3:$AR$7,
18,0)
Enter > Copy ไปยังเซลล์ที่เกียวข้องและปรับเฉพาะตัวเลขที่ระบายสีไว้ในสูตร
สามารถศึกษา Vlookup เพิ่มเติมได้จากที่นี่ครับ
Vlookup
ขอบพระคุณท่านอาจารย์มากครับ ตอนนี้ลองทำดูได้แล้ว ผมจะนำเอาไปประยุกต์ใช้ในการทำงานต่อไปครับ
Re: ต้องการสูตร Vlookup และ VBA โดยการอ่านจากรหัสตัวเลขครับ
Posted: Fri Aug 22, 2014 11:10 am
by Anusornz
อาจารย์ครับ ผมขอถามอีกนิดนึงครับ เมื่อเราใส่สูตร Vlookup ไปแล้วช่องต่างๆเป็น Macro ที่ผมระบุไป แต่ถ้าเราต้องการที่จะใส่ข้อมูลมูลใหม่ไป สูตรมันก็จะหาย เราสามารถทำให้พอเรียกรหัสพนักงานมาแล้วข้อมูลที่ผมถามอาจารย์ไปก็ขึ้น(อันนี้ทำได้) และในเวลาเดียวกันก็สามารถแก้ไขข้อมูลเหล่านั้นได้
สรุปคือเมื่อเลือกรหัสพนักงานแล้วสามารถแก้ไขข้อมูลได้ และสามารถนำข้อมูลจาก Summary เรียกมาดูได้ครับที่ผมทำพอ Run แล้วสูตรมันจะขึ้นมาในช่องพอเราจะแก้ไขคะเเนนหรือความคิดเห็นสูตรก็จะหายไปครับ ขอบพระคุณล่วงหน้าครับอาจารย์
Re: ต้องการสูตร Vlookup และ VBA โดยการอ่านจากรหัสตัวเลขครับ
Posted: Fri Aug 22, 2014 11:37 am
by snasui
อ่านแล้วเข้าใจได้ว่าต้องการแก้ไขเซลล์ที่ใส่สูตรให้เป็นค่าตามต้องการ
คำตอบคือหากจะให้เป็นสูตรและแก้ไขได้ด้วย จะไม่สามารถใช้สูตรได้ จะต้องเขียนด้วย VBA เพื่อดึงค่ามาแสดง หากเป็น VBA จะต้องทำตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ
Re: ต้องการสูตร Vlookup และ VBA โดยการอ่านจากรหัสตัวเลขครับ
Posted: Fri Aug 22, 2014 11:57 am
by Anusornz
ตามไฟล์แนบครับอาจารย์ ผมใช้ Run เอาครับไม่ค่อยถนัด VBA รบกวนอาจารย์ด้วยครับ
Re: ต้องการสูตร Vlookup และ VBA โดยการอ่านจากรหัสตัวเลขครับ
Posted: Fri Aug 22, 2014 4:39 pm
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
Sub Macro2()
'
' Macro2 Macro
'
'
ActiveCell.FormulaR1C1 = "=VLOOKUP(R4C20,Summary!R3C2:R7C44,18,0)"
ActiveCell = ActiveCell.Value
Range("M53:N53").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R4C20,Summary!R3C2:R7C44,19,0)"
ActiveCell = ActiveCell.Value
Range("M55:N55").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R4C20,Summary!R3C2:R7C44,20,0)"
ActiveCell = ActiveCell.Value
Range("M57:N57").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R4C20,Summary!R3C2:R7C44,21,0)"
ActiveCell = ActiveCell.Value
Range("Q51:W51").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R4C20,Summary!R3C2:R7C44,22,0)"
ActiveCell = ActiveCell.Value
Range("Q53:W53").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R4C20,Summary!R3C2:R7C44,38,0)"
ActiveCell = ActiveCell.Value
Range("Q55:W55").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R4C20,Summary!R3C2:R7C44,24,0)"
ActiveCell = ActiveCell.Value
Range("Q57:W57").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R4C20,Summary!R3C2:R7C44,25,0)"
ActiveCell = ActiveCell.Value
Range("B63:P66").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R4C20,Summary!R3C2:R7C44,26,0)"
ActiveCell = ActiveCell.Value
Range("R63:V64").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R4C20,Summary!R3C2:R7C44,27,0)"
ActiveCell = ActiveCell.Value
Range("R63:V64").Select
End Sub
Re: ต้องการสูตร Vlookup และ VBA โดยการอ่านจากรหัสตัวเลขครับ
Posted: Fri Aug 22, 2014 10:02 pm
by Anusornz
PM (EY).xlsm
