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:ผมเห็นคุณโพสต์หัวข้อเดียวกันหลายรอบ เนตค้างหรือครับ
ถ้าไม่ค้างระวังถูกอาจารย์เตือนเอาได้นะครับ

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

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

จากกระทู้เดิม ที่คุณ logic ตอบไว้
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

ตัวอย่าง 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
ขอบคุณมากครับผม