Page 1 of 1
คํานวนรายจากฐานข้อมูล
Posted: Thu Jul 05, 2018 10:04 pm
by auimsuwan
เรียนท่านอาจารย์
ผมสร้างโปรแกรมคํานวนโดยมีหลักคือดึงงานจากฐานข้อมูลที่ได้มารวมในExcel
และคํานวนข้อมูลดังกล่าวให้ออกมาในหน้ารายงานใน Sheet ชื่อ "Report(OD1,OD2,OD3,OD4)"
ผลที่ได้จากการคํานวน ประกอบด้วย Bucket1,Bucket2,Bucket3,Bucket4,
ผลลัพท์ที่ออกมา มีเพียงค่าในBucket1 และ ฺBucket2 บางส่วน
สิ่งที่อยากได้
1. Bucket 2 ในส่วนของ Product Type อยากให้มีค่าแสดงออกมา
2. โปรแกรมมีการคํานวนช้ามาก พอมีวิธีแก้ให้คํานวนเร็วขึ้นบ้างไหมครับ
สิ่งที่แนบ
1.ฐานข้อมูลdue 01 adj
2. VBA Code ชื่อ Performance Bucket
3. วิธีการใช้งาน และปัญหา
Re: คํานวนรายจากฐานข้อมูล
Posted: Thu Jul 05, 2018 10:23 pm
by snasui
ควรแนบมาข้อมูลมาจำนวนหนึ่งที่พอใช้เป็นตัวอย่างได้ ไม่จำเป็นต้องแนบมาทั้งหมดครับ
Procedure ที่ติดปัญหาชื่อว่าอะไร ติดปัญหาที่บรรทัดใด ลองทำการ Debug มาดูก่อนจะได้เข้าถึงปัญหาได้โดยไว นอกจากนี้ควรแสดงตัวอย่างข้อมูลหากว่า Code มีการทำงานถูกต้องมาด้วยจะได้ใช้เปรียบก่อน Run Code กับหลัง Run Code ได้ครับ
Re: คํานวนรายจากฐานข้อมูล
Posted: Fri Jul 06, 2018 8:48 am
by auimsuwan
เรียนท่าอาจารย์
Run Program แล้วไม่ติด Debug ครับ แต่คาดว่าน่าจะเกิดจาก Code
รายละเอียดตามแนบครับ
ขอบคุณครับ
Re: คํานวนรายจากฐานข้อมูล
Posted: Fri Jul 06, 2018 7:40 pm
by snasui
ไม่จำเป็นต้องติด Bug ครับ
ผมต้องการทราบว่า Code บรรทัดใดที่ตั้งใจให้วางข้อมูลในพื้นที่ที่ Highlight แต่ไม่เกิดการวางข้อมูลลงไปจริงไม่ว่าจะข้ามไปหรือวางผิดที่ อันนี้จะต้องทราบได้เอง ช่วยแจ้งบรรทัดนั้นมา ผมจะได้เจาะจงลงไปยังบรรทัดนั้นเลย ไม่ต้องไล่ไปทีละบรรทัดของ Code ทั้งหมดครับ
อย่างน้อยต้องสามารถทราบได้ว่าเกิดจากตัวแปรใดที่ก่อให้เกิดปัญหา เช่น Run ข้ามไปหรือ Run แล้วไม่พบเงื่อนไขที่ควรจะพบ ฯลฯ ครับ
Re: คํานวนรายจากฐานข้อมูล
Posted: Fri Jul 06, 2018 8:26 pm
by auimsuwan
ครับผม มี2จุด ครับ ตามแนบครับ
Re: คํานวนรายจากฐานข้อมูล
Posted: Sat Jul 07, 2018 6:31 am
by snasui
ควรจะอธิบายการทำงานมาพอสังเขปว่างานที่ติดปัญหานั้น ต้องการเขียน Code ให้ตรวจสอบข้อมูลใด ด้วยเงื่อนไขใด และนำข้อมูลใดไปวางที่ใด จะได้สะดวกในการทำความเข้าใจจากคำอธิบายประกอบกับการดู Code ว่าตรงตามนั้นหรือไม่ อย่างไรครับ
จาก Code ที่ถามมาตามภาพคือ
Code: Select all
ElseIf Cells(intRows, NTEAM).Value = "OD2" Then
'TextBox1 = intRows
Worksheets("Report(OD1,OD2,OD3,OD4)").Cells(80, 1) = Year1
Worksheets("Report(OD1,OD2,OD3,OD4)").Cells(80, 2) = Month1
เป็นการตรวจสอบชีต All adj บรรทัดที่เป็นค่าตัวแปร intRows (บรรทัดที่ 2) คอลัมน์ตามค่าตัวแปร NTEAM ว่ามีค่าเท่ากับ "OD2" หรือไม่ จากไฟล์ที่แนบมา ไม่พบว่ามีคอลัมน์ใดมีค่าเป็น "OD2" จึงไม่เข้าเงื่อนไข Code ที่อยู่ภายใน Code ด้านบนนี้ไม่เกิดการ Run ครับ