Page 1 of 1

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

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

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

Posted: Thu Dec 10, 2015 11:39 am
by logic
ผมเห็นคุณโพสต์หัวข้อเดียวกันหลายรอบ เนตค้างหรือครับ

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

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

Posted: Fri Dec 11, 2015 9:13 am
by bank9597
logic wrote:ผมเห็นคุณโพสต์หัวข้อเดียวกันหลายรอบ เนตค้างหรือครับ

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

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

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

Posted: Sun Dec 13, 2015 4:04 pm
by akekorn
ใช่แล้วครับ อาจจะใช้ ตัวอย่างเดียวกันแต่มีความแตกต่างกันผมจึงขึ้นหัวข้อใหม่เลยอาจทำให้สับสนหากไม่ดูให้ดีก่อนต้องขออภัยด้วยครับ
ดังนั้นผมขอรบกวนเพื่อนสมาชิกช่วยแก้ไขปัญหาด้วยครับ

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

Posted: Sun Dec 13, 2015 4:11 pm
by snasui
:D จากกระทู้เดิม ที่คุณ logic ตอบไว้ :arrow: viewtopic.php?f=3&t=9449#p59143
akekorn wrote:สวัสดีครับ ผมอยากขอความช่วยเหลือเพิ่มครับคือผมได้เพิ่มการวนหาข้อมูลเพื่อลบข้อมูลเดิมออก่ก่อนแต่ปรากฏว่า มันวนหาแบบข้ามบรรทัดจึงอยาก
รบกวนช่วยแก้ไขให้ด้วยครับผม
อีกปัญหาคือ บางครั้งเวลา run program ข้อมูลวันที่ บางทีติด เวลามาให้ทั้งใน cell B2,C2 รวมถึงตั้งแต่ cell B7 ลงมา บางทีก็ไม่ติดเวลา มีแต่วันที่เฉยๆ ซึ่งผมต้องการให้แสดงเฉพาะเวลาจะได้หาจำนวน app เจอ
ซึ่งผมได้ใช้ function Cvdate ไปแล้วแต่ทำไมยังพบปัญหาเดิมคือติดเวลามาให้ จึงรบกวนสอบถามและขอความช่วยเหลือโดยผมได้แนบ file มาครับ
logic wrote:Clear ข้อมูลใช้ Range("B7:B1000").ClearContents ได้ เผือช่วงเซลล์ไปตามต้องการครับ

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

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

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

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

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

Posted: Mon Dec 14, 2015 6:32 pm
by snasui
:D ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

With Sheets("summary")
    .Range("b7", .Range("b" & .Rows.Count).End(xlUp)).ClearContents
End With
ซึ่งไม่จำเป็นต้องลบทิ้งเท่าที่มีข้อมูล สามารถเลือกให้เผื่อไปเท่าที่ข้อมูลสามารถขยายไปถึงหรือลบตั้งแต่ b7 เป็นต้นไปถึงเซลล์สุดท้ายในคอลัมน์ B ก็ย่อมได้หากไม่มีพื้นที่ด้านล่างที่ใช้เพื่อวัตถุประสงค์อื่นครับ

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

Posted: Mon Dec 14, 2015 9:27 pm
by akekorn
ขอบคุณมากครับผม