ขอความช่วยเหลือแก้ไข VBA การวนหาข้อมูลเพื่อลบข้อมูลเดิม และการเปลี่ยน format จาก วันที่และเวลา เป็นวันที่เท่านั้น

[akekorn]

สวัสดีครับ ผมอยากขอความช่วยเหลือครับคือผมได้เพิ่มการวนหาข้อมูลเพื่อลบข้อมูลเดิมออก่ก่อนแต่ปรากฏว่า มันวนหาแบบข้ามบรรทัดจึงอยาก
รบกวนช่วยแก้ไขให้ด้วยครับผม
อีกปัญหาคือ บางครั้งเวลา run program ข้อมูลวันที่ บางทีติด เวลามาให้ทั้งใน cell B2,C2 รวมถึงตั้งแต่ cell B7 ลงมา บางทีก็ไม่ติดเวลา มีแต่วันที่เฉยๆ ซึ่งผมต้องการให้แสดงเฉพาะเวลาจะได้หาจำนวน app เจอ
ซึ่งผมได้ใช้ function Cvdate ไปแล้วแต่ทำไมยังพบปัญหาเดิมคือติดเวลามาให้ จึงรบกวนสอบถามและขอความช่วยเหลือโดยผมได้แนบ file มาครับ

[logic]

ผมเห็นคุณโพสต์หัวข้อเดียวกันหลายรอบ เนตค้างหรือครับ

ถ้าไม่ค้างระวังถูกอาจารย์เตือนเอาได้นะครับ

[bank9597]

ผมเห็นคุณโพสต์หัวข้อเดียวกันหลายรอบ เนตค้างหรือครับ

ถ้าไม่ค้างระวังถูกอาจารย์เตือนเอาได้นะครับ

คาดว่าน่าจะเปลี่ยนเป็นขึ้นกระทู้ใหม่ครับ เพราะเป็นคนละเรื่องกันกับกระทู้ก่อนหน้านี้

สวัสดีครับ ผมอยากขอความช่วยเหลือครับคือผมได้เพิ่มการวนหาข้อมูลเพื่อลบข้อมูลเดิมออก่ก่อนแต่ปรากฏว่า มันวนหาแบบข้ามบรรทัดจึงอยาก
รบกวนช่วยแก้ไขให้ด้วยครับผม
อีกปัญหาคือ บางครั้งเวลา run program ข้อมูลวันที่ บางทีติด เวลามาให้ทั้งใน cell B2,C2 รวมถึงตั้งแต่ cell B7 ลงมา บางทีก็ไม่ติดเวลา มีแต่วันที่เฉยๆ ซึ่งผมต้องการให้แสดงเฉพาะเวลาจะได้หาจำนวน app เจอ
ซึ่งผมได้ใช้ function Cvdate ไปแล้วแต่ทำไมยังพบปัญหาเดิมคือติดเวลามาให้ จึงรบกวนสอบถามและขอความช่วยเหลือโดยผมได้แนบ file มาครับ

ผมอยากได้โจทย์ที่ชัดเจนกว่านี้ครับ ว่าต้องการทำอะไร ที่ชีทไหน เซลล์ไหน เดี๋ยวผมจะช่วยดูให้อีกแรง

[akekorn]

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

[snasui]

จากกระทู้เดิม ที่คุณ logic ตอบไว้ viewtopic.php?f=3&t=9449#p59143

สวัสดีครับ ผมอยากขอความช่วยเหลือเพิ่มครับคือผมได้เพิ่มการวนหาข้อมูลเพื่อลบข้อมูลเดิมออก่ก่อนแต่ปรากฏว่า มันวนหาแบบข้ามบรรทัดจึงอยาก
รบกวนช่วยแก้ไขให้ด้วยครับผม
อีกปัญหาคือ บางครั้งเวลา run program ข้อมูลวันที่ บางทีติด เวลามาให้ทั้งใน cell B2,C2 รวมถึงตั้งแต่ cell B7 ลงมา บางทีก็ไม่ติดเวลา มีแต่วันที่เฉยๆ ซึ่งผมต้องการให้แสดงเฉพาะเวลาจะได้หาจำนวน app เจอ
ซึ่งผมได้ใช้ function Cvdate ไปแล้วแต่ทำไมยังพบปัญหาเดิมคือติดเวลามาให้ จึงรบกวนสอบถามและขอความช่วยเหลือโดยผมได้แนบ file มาครับ

Clear ข้อมูลใช้ Range("B7:B1000").ClearContents ได้ เผือช่วงเซลล์ไปตามต้องการครับ

ส่วนที่ติดเวลามาด้วยก็อยู่ที่เวลากรอกข้อมูลใน B2, C2 มากกว่า เพราะการบวกเวลาเป็นการนำค่านั้นไปใช้นี่ครับ

ไม่ทราบว่าได้ผลเช่นไรครับ

[akekorn]

ครับผม ตอนแรกผมก็ใช้ Range("B7:B1000").ClearContents ก่อนแล้วครับแต่ผมมองว่ามันไม่ยืดหยุ่นจึงคิดว่าหากลองเขียนให้นับจากสิ่งที่เกิดจริงได้คงจะดีกว่า แต่ที่ทำมันกลับทำบรรทัดเว้นบรรทัดจึงอยากทราบควรเขียนแบบไหนดีครับ

ส่วนใน date time picker นั้นค่าที่ลง cell มันติดทั้งวันที่และเวลา แต่ผมแก้ปัญหาได้แล้วครับติดแต่ปัญหา code ที่ผมสงสัยครับจึงขอความอนุเคราะห์ มา ณ ที่นี้ครับผม

[snasui]

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

With Sheets("summary")
    .Range("b7", .Range("b" & .Rows.Count).End(xlUp)).ClearContents
End With

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

[akekorn]

ขอบคุณมากครับผม