Page 1 of 1

ทำยังไงให้00ไม่หายครับ

Posted: Fri May 11, 2012 1:47 pm
by kalipso
คือว่า ผมใส่ข้อมูลตัวเลขในช่อง j3 '001
แล้วเมื่อกด enter ตัวเขาเดี่ยวจะหายไปเหลือแค่ตัวเลข
แต่พอผมใช้คำสั่ง sheet2.rang("j3") = sheet2.rang("j3") + 1
ค่ากลายเป็น2 ครับ ถ้าจะให้ค่ากลายเป็น 002 ทำยังไงครับ
ขอบคุณครับ

Re: ทำยังไงให้00ไม่หายครับ

Posted: Fri May 11, 2012 2:06 pm
by bank9597
:D ลองแนบไฟล์มาดูกันครับ

หรือให้ตอบแบบเดาสุ่ม ลองปรับโค๊ดตามนี้ครับ

Code: Select all

Sheet2.Range("j3") = Sheet2.Range("j3") + 1
Sheet2.Range("j3").NumberFormat = "000"

Re: ทำยังไงให้00ไม่หายครับ

Posted: Fri May 11, 2012 3:10 pm
by kalipso
bank9597 wrote::D ลองแนบไฟล์มาดูกันครับ

หรือให้ตอบแบบเดาสุ่ม ลองปรับโค๊ดตามนี้ครับ

Code: Select all

Sheet2.Range("j3") = Sheet2.Range("j3") + 1
Sheet2.Range("j3").NumberFormat = "000"
ได้แล้วครับขอบคุณมากเลย อธิบายโค้ด Sheet2.Range("j3").NumberFormat = "000" ให้อ่านได้ไหมครับ
ว่ามันหมายความว่อะไร

Re: ทำยังไงให้00ไม่หายครับ

Posted: Fri May 11, 2012 3:27 pm
by bank9597
ได้แล้วครับขอบคุณมากเลย อธิบายโค้ด Sheet2.Range("j3").NumberFormat = "000" ให้อ่านได้ไหมครับ
ว่ามันหมายความว่อะไร
:D ความหมายตามตัวครับ คือ ในชีท Sheet2 เซลล์ J3 เปลี่ยนฟอร์แมตตัวเลขเป็นเลข 3 หลัก

หากทำด้วยเอ็กเซลล์ก็ต้องเข้าปรับใน FormatCell > Custom ในช่อง Type คีย์ 000 ก็จะได้ผลลัพธ์เหมือนกันครับ