Page 1 of 1

running เมื่อสั่งพิมพ์

Posted: Fri Jun 06, 2014 3:06 pm
by phanida
ต้องการให้เลขที่เอกสาร +1 ทุกครั้งเมื่อกดสั่งพิมพ์ และหยุดที่หมายเลขสุดท้ายที่สั่งพิมพ์ไป
เมื่อเปิดไฟล์ขึ้นมาใหม่ ก็สามารถ พิมพ์ต่อจากเลขครั้งสุดท้ายได้เลยค่ะ

เช่น วันนี้ พิมพ์ 3 ฉบับ เลขที่เอกสารเป็น 1 , 2 , 3
วันต่อมา พิมพ์เพิ่มอีก 2 ฉบับ เลขที่เอกสารเป็น 4 , 5

ลองแก้จากโค๊ดของอาจารย์แล้วทำไม่ได้ค่ะ เริ่มนับ 1 ใหม่ทุกครั้งที่สั่งพิมพ์

Re: running เมื่อสั่งพิมพ์

Posted: Fri Jun 06, 2014 3:39 pm
by snasui
:D ลองปรับ For...Next เป็นด้านล่างครับ

Code: Select all

For i = 1 To a
    Range("J3").Value = Range("J3").Value + 1
Next i

Re: running เมื่อสั่งพิมพ์

Posted: Fri Jun 06, 2014 4:02 pm
by phanida
snasui wrote::D ลองปรับ For...Next เป็นด้านล่างครับ

Code: Select all

For i = 1 To a
    Range("J3").Value = Range("J3").Value + 1
Next i

ได้แล้วค่ะ ขอบคุณมากค่ะ :thup: