Snasui Excel Forum

คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://www.snasui.com/

VBA ไม่ให้ใส่ข้อมูลซ้ำในเซล

https://www.snasui.com/viewtopic.php?t=9967

Page 1 of 1

VBA ไม่ให้ใส่ข้อมูลซ้ำในเซล

Posted: Sun Apr 24, 2016 12:35 pm
by Botman03
สวัสดีครับ อยากปรึกษาทุกๆท่าน ผมลองใช้สูตร vba เพื่อค้นหาและบันทึกข้อมูลเอกสารงานแบบอัตโนมัติ ผ่านปุ่ม Save (จะเอาcode send data Module5 ) ไปใส่ทีหลัง ติดปัญหาตรงที่ Sheet "รายการแจ้งซ่อม" (Module5) ผมตั้งสูตรให้ เมื่อกดปุ่ม Commandแล้ว จะก้อปข้อมูลจากเซลที่ตั้งค่าไว้ใน "เอกสารแจ้งซ่อม" ไปเรียงใน >> รายการแจ้งซ่อม ซึ่งเป็นเหมือนหน้าสรุป ถ้าเราทำการกดเซฟในชีทเดิม2ครั้ง มันก็จะทำการบันทึกข้อมูลซ้ำลงไป2บรรทัด อยากทราบว่าต้องทำยังไงให้เซฟข้อมูลแล้ว ข้อมูลที่ซ้ำจะไม่ถูกวางลงไปในหน้าสรุปครับผม
ตัวอย่างตามไฟล์แนบเลยนะครับ

Re: VBA ไม่ให้ใส่ข้อมูลซ้ำในเซล

Posted: Sun Apr 24, 2016 12:50 pm
by snasui
:D มีวิธีการตรวจสอบอย่างไรว่าซ้ำครับ :?:

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

Re: VBA ไม่ให้ใส่ข้อมูลซ้ำในเซล

Posted: Sun Apr 24, 2016 12:59 pm
by Botman03
snasui wrote::D มีวิธีการตรวจสอบอย่างไรว่าซ้ำครับ :?:

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

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

ปล.รบกวนปรึกษาว่า การทำชีทสรุปแบบรายวันภายในชีทเดียวกัน กับ ชีทสรุปรวมทุกวันแยกออกไปแล้วให้vbบันทึกไปยังชีทนั้น อย่างหลังสามารถทำได้มั้ยครับ แล้วแบบไหนจะมีความเสถียรกว่า

Re: VBA ไม่ให้ใส่ข้อมูลซ้ำในเซล

Posted: Sun Apr 24, 2016 2:19 pm
by snasui
:D ตัวอย่าง Code ครับ

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

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

Enter

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

Code: Select all

Sub Sendata()
    If Range("ak2").Value = 0 Then
        Range("AL2,AM2,AN2,AO2,AP2,AQ2,AR2,AS2,AT2").Copy
        Sheets("ÃÒ¡ÒÃá¨é§«èÍÁ").Select
        Range("a1048576").End(xlUp).Offset(1, 0).Select
        Selection.PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End If
End Sub
กรณีทำด้วย VBA สามารถทำได้ทุกงานและแสดงผลได้ทุกที่ตามต้องการ ความเสถียรอยู่ที่การเขียน Code เป็นหลัก ไม่ได้อยู่ที่วิธีหรือตำแหน่งการแสดงผลเป็นหลักครับ

Re: VBA ไม่ให้ใส่ข้อมูลซ้ำในเซล

Posted: Sun Apr 24, 2016 2:34 pm
by Botman03
snasui wrote::D ตัวอย่าง Code ครับ

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

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

Enter

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

Code: Select all

Sub Sendata()
    If Range("ak2").Value = 0 Then
        Range("AL2,AM2,AN2,AO2,AP2,AQ2,AR2,AS2,AT2").Copy
        Sheets("ÃÒ¡ÒÃá¨é§«èÍÁ").Select
        Range("a1048576").End(xlUp).Offset(1, 0).Select
        Selection.PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End If
End Sub
กรณีทำด้วย VBA สามารถทำได้ทุกงานและแสดงผลได้ทุกที่ตามต้องการ ความเสถียรอยู่ที่การเขียน Code เป็นหลัก ไม่ได้อยู่ที่วิธีหรือตำแหน่งการแสดงผลเป็นหลักครับ

ขอบคุณมากเลยครับ นั่งคิดเองอยู่เป็นวันๆคิดไม่ออกซักที ไม่ผิดหวังจริงๆที่มาขอคำแนะนำ ขอบคุณมากครับ จะลองนำไปปรับใช้เพิ่มเติมดูนะครับ

Re: VBA ไม่ให้ใส่ข้อมูลซ้ำในเซล

Posted: Mon Apr 25, 2016 4:41 pm
by Botman03
snasui wrote::D ตัวอย่าง Code ครับ

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

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

Enter

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

Code: Select all

Sub Sendata()
    If Range("ak2").Value = 0 Then
        Range("AL2,AM2,AN2,AO2,AP2,AQ2,AR2,AS2,AT2").Copy
        Sheets("ÃÒ¡ÒÃá¨é§«èÍÁ").Select
        Range("a1048576").End(xlUp).Offset(1, 0).Select
        Selection.PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End If
End Sub
กรณีทำด้วย VBA สามารถทำได้ทุกงานและแสดงผลได้ทุกที่ตามต้องการ ความเสถียรอยู่ที่การเขียน Code เป็นหลัก ไม่ได้อยู่ที่วิธีหรือตำแหน่งการแสดงผลเป็นหลักครับ
มีปัญหาเพิ่มเติมครับ code นั้นทำงานเป็นปกติดีครับ แต่เมื่อผมได้เอา Code ที่ได้มาไปรวมกับ Module Save File แล้วมีปัญหาว่า
จาก Code

Code: Select all

ActiveSheet.Select
ActiveSheet.Copy after:=Sheets(1)
ActiveSheet.Name = "เอกสารแจ้งซ่อม"
Range("F5:H5").Select
Selection.ClearContents
Range("K5:L5").Select
Selection.ClearContents
Range("W2:X2").Select
Selection.ClearContents
Range("C10:T19").Select
Selection.ClearContents
Range("C30:I30").Select
Selection.ClearContents
Range("AC15").Select
Selection.ClearContents
ActiveSheet.CheckBoxes.Value = xlOff
เมื่อกดปุ่ม Save File แล้ว vba จะสร้างหน้าเปล่าขึ้นมา แทนที่จะก็อปปี้ฟอร์มเดิม ตามไฟล์แนบเลยครับ

Re: VBA ไม่ให้ใส่ข้อมูลซ้ำในเซล

Posted: Mon Apr 25, 2016 6:19 pm
by snasui
:D Code นั้นต้องการจะทำอะไรช่วยอธิบายและลำดับขั้นตอนมาด้วยจะได้เข้าใจตรงกันครับ

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

Code: Select all

' ปุ่มล้างข้อมูล
Sheets(Sheets("รายการแจ้งซ่อม").Index + 1).Select
ActiveSheet.Copy after:=Sheets(1)
ActiveSheet.Name = "เอกสารแจ้งซ่อม"
Range("F5:H5").Select
Selection.ClearContents
Range("K5:L5").Select
Selection.ClearContents
Range("W2:X2").Select
Selection.ClearContents
Range("C10:T19").Select
Selection.ClearContents
Range("C30:I30").Select
Selection.ClearContents
Range("AC15").Select
Selection.ClearContents
ActiveSheet.CheckBoxes.Value = xlOff

Re: VBA ไม่ให้ใส่ข้อมูลซ้ำในเซล

Posted: Tue Apr 26, 2016 9:55 am
by Botman03
snasui wrote::D Code นั้นต้องการจะทำอะไรช่วยอธิบายและลำดับขั้นตอนมาด้วยจะได้เข้าใจตรงกันครับ

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

Code: Select all

' ปุ่มล้างข้อมูล
Sheets(Sheets("รายการแจ้งซ่อม").Index + 1).Select
ActiveSheet.Copy after:=Sheets(1)
ActiveSheet.Name = "เอกสารแจ้งซ่อม"
Range("F5:H5").Select
Selection.ClearContents
Range("K5:L5").Select
Selection.ClearContents
Range("W2:X2").Select
Selection.ClearContents
Range("C10:T19").Select
Selection.ClearContents
Range("C30:I30").Select
Selection.ClearContents
Range("AC15").Select
Selection.ClearContents
ActiveSheet.CheckBoxes.Value = xlOff
ถูกต้องครับ ต้องการสร้างฟอร์มเปล่าขึ้นมาเพิ่ม ผมรบกวนสอบถามการทำงานของ Code Sheets(Sheets("รายการแจ้งซ่อม").Index + 1).Select เพื่อเป็นข้อมูลได้มั้ยครับ ทำไมCode เก่าถึงใช้ไม่ได้ ขอบคุณมากครับ เอกสารเสร็จครบแล้ว :)

Re: VBA ไม่ให้ใส่ข้อมูลซ้ำในเซล

Posted: Tue Apr 26, 2016 6:24 pm
by snasui
:D Code เดิมเป็นการเขียนให้นำชีตที่กำลัง Active มาใช้ ส่วนตัวอย่าง Code ที่ผมให้ไปนั้นเป็นการเขียนให้นำชีตที่อยู่ลำดับถัดไปจากชีต "รายการแจ้งซ่อม" ซึ่งจะตรงกับความต้องการครับ
All times are UTC+07:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited