Page 1 of 1

ข้อมูลทับกันเวลาเผลอ Filter ค้างไว้ป้อนหรือแก้ตรงไหนครับ

Posted: Fri Sep 17, 2021 2:26 pm
by Kritty03
ผมทำฟอร์มไว้กรอกบันทึกข้อมูลไว้ แยกเป็นรายๆ แต่มีปัญหาเวลาเข้าไปดูรายที่บันทึกแล้วกด Filter รายการค้างไว้ เช่นรายการสุดท้าย
พอเรามากดบันทึกข้อมูลไปที่รายนั้น ปรากฏว่าข้อมูลไปทับกันอยู่ช่องเดียวเลย
พอจะมีวิธีแก้ในกรณีนี้ไหมครับ หรือป้องกันการ Filter ค้างรายการไว้

Re: ข้อมูลทับกันเวลาเผลอ Filter ค้างไว้ป้อนหรือแก้ตรงไหนครับ

Posted: Fri Sep 17, 2021 5:56 pm
by snasui
:D ไฟล์ที่มี Code อย่างน้อยจะต้องมีนามสกุลเป็น .xlsm, .xlsb, .xltm, .xls เป็นต้นครับ

ปกติแล้วก่อนการบันทึกข้อมูลให้ยกเลิกการ Filter เสียก่อนครับ

Re: ข้อมูลทับกันเวลาเผลอ Filter ค้างไว้ป้อนหรือแก้ตรงไหนครับ

Posted: Fri Sep 17, 2021 6:59 pm
by Kritty03
ตอนนี้ได้โค๊ตแล้ว แต่พอมันดันขึ้นทุกหน้าเลยครับ จะให้ขึ้นเปิดปิด Filter เฉพาะหน้าที่บันทึกข้อมูลลงไปอ่ะ

Code: Select all


Public Sub StopAllFilters()
  Dim wd As Worksheet
  For Each wd In ActiveWorkbook.Worksheets
   If wd.AutoFilterMode = True Then
      wd.AutoFilterMode = False
   End If
  Next wd
End Sub


Re: ข้อมูลทับกันเวลาเผลอ Filter ค้างไว้ป้อนหรือแก้ตรงไหนครับ

Posted: Fri Sep 17, 2021 7:20 pm
by Kritty03
ได้แล้วครับ เอาโค๊ตไปวาง หัวท้าย ก่อนบันทึกข้อมูล
ไม่ต้องไป Call
ขอบคุณมากครับ

Code: Select all

Sheets(ws).AutoFilterMode = False