Page 1 of 1
รบกวนถามเกียวกับการดึงข้อมูลข้ามsheetครับ
Posted: Fri Jun 27, 2014 1:00 pm
by leelaphoom
จากไฟร์ที่แนบมาให้ผมอยากทราบว่า
จะดึงข้อมูล Received กับ Send out ในsheet 1 มาไว้ในsheet ให้ตรงกับItem No ตามวันที่และเดือนปัจจุบัน จะใช้สูตรอะไรครับ
Re: รบกวนถามเกียวกับการดึงข้อมูลข้ามsheetครับ
Posted: Fri Jun 27, 2014 1:07 pm
by snasui
แนบตัวอย่างคำตอบที่ต้องการมาด้วยสักสองสามตัวอย่าง และอธิบายมาด้วยว่าดึงมาด้วยเงื่อนไขใด จะได้เข้าใจตรงกันครับ
Re: รบกวนถามเกียวกับการดึงข้อมูลข้ามsheetครับ
Posted: Fri Jun 27, 2014 1:23 pm
by leelaphoom
อย่างเช่น ข้อมูลตัวแรก Item No=FG-A03-00739 Received= 20 Send out=2 ข้อมูลReceived กับ Send out ก็จะไปขึ้นในช่อง Received กับ Send out ของวันที่27/06/2014 ประมาณนี้ครับ ถ้าเรากรอกพรุ้งนี้ก็จะไปขึ้นในช่องของวันที่28/06/2014
Re: รบกวนถามเกียวกับการดึงข้อมูลข้ามsheetครับ
Posted: Fri Jun 27, 2014 1:34 pm
by snasui
ข้อมูลใน Sheet1 ไม่ระบุวันที่ โปรแกรมจะทราบได้อย่างไรว่าให้นำไปวางในคอลัมน์ AD ซึ่งเป็นของวันที่ปัจจุบันครับ
Re: รบกวนถามเกียวกับการดึงข้อมูลข้ามsheetครับ
Posted: Fri Jun 27, 2014 1:38 pm
by leelaphoom
ขอประธานโทษครับ อันนี้ระบุแล้ว
Re: รบกวนถามเกียวกับการดึงข้อมูลข้ามsheetครับ
Posted: Fri Jun 27, 2014 3:52 pm
by snasui
ลองตามนี่้ครับ
ชีท June เซลล์ BJ3 คีย์
=SUMIFS(Sheet1!$C$2:$C$19,Sheet1!$B$2:$B$19,$A3,Sheet1!$E$2:$E$19,BJ$2)
Enter > Copy ไปด้านล่างและคอลัมน์อื่น ๆ ที่เกียวข้อง
Re: รบกวนถามเกียวกับการดึงข้อมูลข้ามsheetครับ
Posted: Fri Jun 27, 2014 4:18 pm
by leelaphoom
ขอบคุณครับช่วยได้มากเลย
Re: รบกวนถามเกียวกับการดึงข้อมูลข้ามsheetครับ
Posted: Fri Jun 27, 2014 4:44 pm
by leelaphoom
รขกวนถามอีกคำถามครับ
คือผมลองเขียนโค้ด VBA ค้นหาข้อมูล แต่พอพิมพ์ Key Word ไปแล้วมันไม่โชว์ข้อมูลตามต้งการ
เช่นคีย์ FG-A03-00739 ไปแล้ว จะโชว์ Item No Received Send out ใน list box ครับ ควรปรับสูตร อย่างไรบ้างครับ
Re: รบกวนถามเกียวกับการดึงข้อมูลข้ามsheetครับ
Posted: Fri Jun 27, 2014 4:57 pm
by snasui
Code ที่เขียนมาเองแล้วชื่อว่า Procedure อะไร ติดขัดบรรทัดใดครับ
Re: รบกวนถามเกียวกับการดึงข้อมูลข้ามsheetครับ
Posted: Fri Jun 27, 2014 5:11 pm
by leelaphoom
Code: Select all
Private Sub TextBox1_Change()
Range("KeyWord").Value = TextBox1.Value
ListBox1.RowSource = "Product"
Calculate
End Sub
ผมไม่ค่อยเข้าใจเรื่อง vba เท่าไหร่เพิ่งเริ่มศึกษา
แต่โค้ดนี้พอพิมพ์ keyword ในtextbox แล้ว
ในช่อง listbox มันโชว์แต่ item no มา
ซิึ่งผม อยากให้มันโชว์ค่า Item No Received Send out ทั้ง3 ค่า
เลยไม่รู้จะแก้ตรงไหนดี
Re: รบกวนถามเกียวกับการดึงข้อมูลข้ามsheetครับ
Posted: Fri Jun 27, 2014 5:22 pm
by snasui
ที่โพสต์มานั้นไม่พบว่าเป็นการค้นหา ควรศึกษาการ Loop เพิ่มเติม จากนั้นลองเขียนมาใหม่ ติดตรงไหนมาถามกันต่อครับ
Re: รบกวนถามเกียวกับการดึงข้อมูลข้ามsheetครับ
Posted: Fri Jun 27, 2014 5:30 pm
by leelaphoom
คือผมต้องการแค่ อยากดูข้อมูล ทั้ง 3 อย่างของมัน
เอาไว้ใช้เวลาหาวัสดุเฉยๆ ไม่สามารถใช้ได้หรอครับ
Re: รบกวนถามเกียวกับการดึงข้อมูลข้ามsheetครับ
Posted: Fri Jun 27, 2014 5:36 pm
by snasui
การค้นหาที่พูดถึงคือ คีย์ค่าใด ๆ ลงไปใน TextBox แล้วให้โชว์ค่าที่เกี่ยวข้องใน ListBox จะต้อง Loop ค่าที่ตรงกับเงื่อนไขเพื่อ Add รายการเข้าไปครับ