Snasui Excel Forum

ขอโทษด้วยครับ หาปุ่มแก้ไขโพสไม่เจอ , ตัวไฟล์ไม่ได้มีเพราะลิงค์เป็นinternalครับ ขอโทษด้วยครับ

ผมได้รับ Auto email จากระบบทุกวันแต่ปัญหาคือได้รับเป็น hyperlink ไม่ใช่ file ครับ
จึงอยากสอบถามพี่ๆ พอจะมีวิธีให้ดาวน์โหลดไฟล์ทุกไฟล์จาก Subfolderใน Outlook ที่ผมตั้งให้เมลเข้าไว้ มาสู่ Specific folder ...

สวัสดีครับ

ผมได้รับ Auto email จากระบบทุกวันแต่ปัญหาคือได้รับเป็น hyperlink ไม่ใช่ file ครับ
จึงอยากสอบถามพี่ๆ พอจะมีวิธีให้ดาวน์โหลดไฟล์ทุกไฟล์จาก Subfolderใน Outlook ที่ผมตั้งให้เมลเข้าไว้ มาสู่ Specific folder ในคอมพิวเตอร์มั้ยครับ ?

ด้านล่างคือ Codeที่ผมลอง แต่มันจะใช้ได้กับลิงค์เดียวครับ ...

สวัสดีครับพี่ๆ พอดีผมตั้งCodeไว้ว่า
- หากWorksheet_Change ที่Row 3,5 ให้ TimeStamp
- ให้ลบ Timestamp

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCellColumn As Integer

xCellColumn = 3
If Target.Column = xCellColumn Then
Application.EnableEvents = False
Target.Offset(0, 1) = Format ...

snasui wrote: Thu Jun 21, 2018 8:18 pm ทำตัวอย่างไฟล์เลียนแบบขึ้นมาครับ

การสอบถามปัญหาเราไม่ควรแนบไฟล์จริง ถ้าเป็นไฟล์จริงก็ควรแปลงข้อมูลสำคัญไปเป็นอย่างอื่น อ่านกฎการใช้บอร์ดทุกข้อด้านบนซ้ำอีกครั้งครับ

ไฟล์แนบนะครับ ขอบคุณมากครับ

snasui wrote: Thu Jun 21, 2018 7:10 pm แนบไฟล์ Excel มาด้วยจะได้สะดวกในการปรับปรุงและทดสอบ Code ครับ

ขอโทษทีครับ พอดีไฟล์เป็นไฟล์ในบริษัท โดนล็อคไว้ครับ ก็เลยไม่สามารถแนบได้

สวัสดีครับพี่ๆ ผมได้ทำสูตรเพื่อที่จะMerge ค่าซ้ำของเซลเข้าด้วยกัน ดังตัวอย่างรูปA >>> รูปBแต่ ปัญหาคือ เมื่อทำการRun สูตร ดังในรูปที่2 พื้นที่สีเหลือง (สูตรได้ทำการMerge ค่า Blank มาด้วย ทำให้เป็นส่วนเกินครับ)
พอจะมีแนวทางการแก้มั้ยครับ พยายามนั่งคิดแล้วคิดไม่ออกครับ สูตรที่ผมใช้คือ

Sub ...

ควรแนบไฟล์ตัวอย่างมาด้วยครับ เพื่อนๆ จะได้เอาไปช่วยทดสอบได้สะดวกครับ และสำหรับการโพสต์โค้ดก็เช่นกัน ตามกฎบอร์ดข้อ 4, 5 ด้านบนครับ

ขอบคุณมากครับ พอดีเรื่องไฟล์แนบทางบริษัทล็อคไฟล์ไว้ไม่ให้ส่งออกไปภายนอกครับ เลยส่งให้ไม่ได้จริงๆ :flw:


Sub x()
Dim Wks As Worksheet, Col As Range, Ar As Range
On ...

มีไฟล์การรับสินค้าเข้าครับ ผมได้สร้างUserformไว้เพื่อกรอกค่าลงในแต่ละเซลดังรูปที่1 ผมต้องการให้
- เมื่อกรอกข้อมูลสินค้าลงไปแล้ว ต้องการให้คอลัมท์ No,Date,TransportCompany,Truck, Merge เซลให้เท่ากับจำนวน Material (หรือ Merge เซล ลงข้างล่าง3เซล)

- ต้องการคุม range ในการรันสูตรแค่ เซล (A:G)
รบกวนท ...

:D Code นั้นต้องการจะทำอะไรช่วยอธิบายและลำดับขั้นตอนมาด้วยจะได้เข้าใจตรงกันครับ

ด้านล่างนี้ผมเดาว่าต้องการนำ Form เปล่ามาแสดง หากผมเข้าใจถูกต้องสามารถปรับ Code เป็นตามด้านล่างครับ


' ปุ่มล้างข้อมูล
Sheets(Sheets("รายการแจ้งซ่อม").Index + 1).Select
ActiveSheet.Copy after:=Sheets(1)
ActiveSheet ...

:D ตัวอย่าง Code ครับ

ที่เซลล์ AK2 คีย์สูตรเพื่อนับว่ามีรายการที่จะบันทึกอยู่ในฐานข้อมูลแล้วหรือไม่ตามสูตรด้านล่าง

=COUNTIFS(รายการแจ้งซ่อม!A5:A10000,AL2,รายการแจ้งซ่อม!B5:B10000,AM2,รายการแจ้งซ่อม!D5:D10000,AO2)

Enter

จากนั้นปรับ Code เป็น

Sub Sendata()
If Range("ak2").Value = 0 Then ...

:D ตัวอย่าง Code ครับ

ที่เซลล์ AK2 คีย์สูตรเพื่อนับว่ามีรายการที่จะบันทึกอยู่ในฐานข้อมูลแล้วหรือไม่ตามสูตรด้านล่าง

=COUNTIFS(รายการแจ้งซ่อม!A5:A10000,AL2,รายการแจ้งซ่อม!B5:B10000,AM2,รายการแจ้งซ่อม!D5:D10000,AO2)

Enter

จากนั้นปรับ Code เป็น

Sub Sendata()
If Range("ak2").Value = 0 Then ...

:D มีวิธีการตรวจสอบอย่างไรว่าซ้ำครับ :?:

หมายถึงว่าคำนึงถึงค่าใดบ้าง เช่น หากวันที่ ทะเบียน เลขไมค์ซ้ำ แสดงว่าซ้ำ เช่นนี้เป็นต้น


อันนี้เป็นเอกสารแจ้งซ่อมรถของบริษัทครับ ผมตั้งค่าไว้ให้เซฟไว้เป็นของแต่ละวัน เพราะฉะนั้นวันนึงรถแต่ละคันจะซ่อมได้ครั้งเดียวครับ สิ่งที่ต้องคำนึงถึงน่าจะเป็น ชื่อ และ ...

สวัสดีครับ อยากปรึกษาทุกๆท่าน ผมลองใช้สูตร vba เพื่อค้นหาและบันทึกข้อมูลเอกสารงานแบบอัตโนมัติ ผ่านปุ่ม Save (จะเอาcode send data Module5 ) ไปใส่ทีหลัง ติดปัญหาตรงที่ Sheet "รายการแจ้งซ่อม" (Module5) ผมตั้งสูตรให้ เมื่อกดปุ่ม Commandแล้ว จะก้อปข้อมูลจากเซลที่ตั้งค่าไว้ใน "เอกสารแจ้งซ่อม" ไปเรียงใน ...

:D ที่ C1 =INDEX(ไฟล์เรียบเรียง!$C$3:$V$15,MATCH($B$4,ไฟล์เรียบเรียง!$A$3:$A$15,0),MATCH($B$3,ไฟล์เรียบเรียง!$C$2:$V$2,0))

ขอบคุณมากๆเลยครับ ลองปรับดู ได้ที่สูตรนี้ =INDEX(ไฟล์เรียบเรียง!$C$3:$V$15,MATCH(AE4,ไฟล์เรียบเรียง!$A$3:$A$15,0),MATCH($AD$4,ไฟล์เรียบเรียง!$C$2:$V$2,0))


ปล. จะลองไปปรับก ...

ผมต้องการสร้างสูตรให้แสดงผลน้ำมันที่ต้องใช้ โดยดูจาก 1.จังหวัดที่ไป 2.เรทการกินน้ำมันของรถแต่ละคัน ตามไฟล์แนบจะมีตารางมาให้อยู่แล้ว ลองใช้ Match \ Index ดูแล้ว ค่าที่ได้มันไม่ตรงครับ ไม่ทราบว่าต้องใช้สูตรยังไงในการคิดครับผม รบกวนด้วยนะครับ