Excel Forum

คล้ายวิธีที่อาจารย์บอกค่ะ

อธิบายยาว อรวีร์จึงทำเป็นแฟ้ม excel เสร็จแล้ว แต่ไม่ทราบวิธีแนบแฟ้มค่ะ

แก้ไขบรรทัด edit_dt_bx1.ListBox2.Value = Sheets("Form").Cells(V_ROW, 4).Value
เป็น...
For i = 0 To edit_dt_bx1.ListBox2.ListCount - 1
If InStr(Sheets("Form").Cells(V_ROW, 4).Value, edit_dt_bx1.ListBox2.List(i, 0)) > 0 Then
edit_dt_bx1.ListBox2.Selected(i) = True
End If
Next i

ที่คุณถามครั้งก่อนที่ ...
http://www.snasui.com/viewtopic.php?f=3&t=6582
code ที่อรวีร์ตอบทดลองดูหรือยังคะ ผลเป็นอย่างไร
เรื่องเดียวกันนี้ คุณกระจายถาม 3 post รวมทั้งที่
http://www.snasui.com/viewtopic.php?f=3&t=6591
------------
อ้อ กฏของ Forum ที่นี่ไม่ควรใช้คำว่า "คับ" นะคะ

Dim FN As String, Y As Integer, M As Integer, D As Integer
Y = 2014
For M = 1 To 12
For D = 1 To Day(DateSerial(Y, M + 1, 0))
FN = "C:\Users\somkiat\Desktop\ccc\set-history_EOD_" & Y & "-" & Right("0" & M, 2) & "-" & Right("0" & D, 2) & ".xlsx"
If Len(Dir(FN)) > 0 Then Workbooks.Open FN
Next ...

เสนออีกแบบค่ะ ไม่ใช้ VBA ดังแฟ้มแนบ
** ต้องเปิดใช้ Add-ins Analysis Toolpak ด้วยค่ะ

ยินดีด้วยค่ะ แล้วจะแวะเข้ามาถามตอบด้วยคนค่ะ