Snasui Excel Forum

รบกวนอาจารย์อีกรอบครับ

ผมต้องการเอาข้อมูล Texe ไปค้นหาแล้วเอาราคามา Sum รวมกัน และได้จำนวนตรงกันให้แสดงข้อมูลที่ต้องการครับ

ผมแนบไฟล์ตัวอย่างที่ผมต้องการมาให้ด้วยฝากด้วยนะครับ

งานลักษณะนี้คงต้องอาศัย VBA ร่วมกับ Solver เข้ามาช่วยเพื่อจะหาว่ารายการที่ค้นหามาได้ทั้งหมดตามภาพที่ 1 มีรายการใดบ้างที่รวมแล้วเท่ากับรายการตามภาพที่ 2 ลองเขียนมาเองดูก่อน ติดแล้วค่อยถามกันต่อครับ

ผมเริ่มต้นไม่ถูกครับ ได้แต่นั่ง Maunaul เอง

ต้องให้ผู้ที่เขียน Code ได้มาช่วยแล้วละครับ ผมไม่ตอบและไม่อนุญาตให้ตอบเป็น Code หากไม่เขียนมาเป็น Code ครับ

แต่เพื่อนสมาชิกสามารถตอบเป็น Link ให้ไปศึกษาได้ตามสะดวกครับ

หลักการนี้ ใช้ ได้ไหมครับ


Dim sql As String
Dim cn As Object
Set cn = CreateObject("ADODB.connection")
Set rs = CreateObject("adodb.recordset")
Dim strcon As String

strfile = ThisWorkbook.FullName
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strfile _
& ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"
cn.Open strcon
sql = "select F1, F2, F3, 1/24*hour(F4) ,max(F12), avg(F12),Count(F12) from [sheet1$A5:l26] group by f1,f2, f3, hour(F4) "

rs.Open sql, cn, adOpenStatic
if rs.EOF = True then
msgbox "missing some command in your sql"
else
sheets("sheet2").range("a5").copyfromrecordset rs
msgbox "extract complete " & vbclrf & "the result show in sheet 2"
end if

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

หลักการนี้ใช้ไม่ได้ครับ

การทำงานนี้จะเป็นการ Loop รวมข้อมูลจากหลายรายการว่ารายการใดรวมกันแล้วเท่ากับค่าเป้าหมาย การใช้ SQL มาช่วยโดยไม่ได้เป็นการ Loop ย่อมไม่สามารถใช้ได้ งานลักษณะนี้ต้องทำในแนวของ Solver ครับ

สำหรับการ Post ข้อความที่เป็น Code กรุณาศึกษาจากกฎการใช้บอร์ดข้อ 5 ด้านบน นอกจากนี้ควรแนบไฟล์ที่เขียน Code นี้เอาไว้แล้วมาด้วยจะได้ช่วยทดสอบให้ได้ครับ