Page 1 of 1
เปลี่ยนตัวเลขอัตโนมัติ
Posted: Sat May 21, 2011 1:56 pm
by chai007
เรียน อาจารย์
รบกวนช่วยสอนทำให้ตัวเลขรันเพิ่มขึ้นไปเรื่อยๆ แบบอัตโนมัติ เมื่อเราเข้าไปเปลี่ยนข้อมูลในไฟล์เดียวกันทุกครั้ง (ตามไฟล์แนบ) ด้วยครับ
ขอบคุณครับ
Re: เปลี่ยนตัวเลขอัตโนมัติ
Posted: Sun May 22, 2011 11:19 am
by snasui
ลองตามนี้ครับ
1. กด alt+f11 เพื่อเปิด vbe
2. Double click ชีทที่ต้องการเพิ่ม running number
3. วาง code ตามด้านล่าง
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then
Target.Offset(-1,0)=Target.Offset(-1,0)+1
End If
End Sub
Note: Reply by iPhone
Re: เปลี่ยนตัวเลขอัตโนมัติ
Posted: Mon May 23, 2011 3:53 pm
by chai007
ทดลองใส่แล้วครับ ใช้งานได้แล้วครับ
ขอบคุณมากครับ
Re: เปลี่ยนตัวเลขอัตโนมัติ
Posted: Tue May 24, 2011 8:54 am
by chai007
รบกวนอาจารย์อีกครั้งครับ
คืออยากได้สูตรคำนวน วัน / เดือน / ปี
ที่ใช้งานมาแล้ว (ตามไฟล์แนบ) คือปัจจุบัน
ช่อง E3 คำนวนแต่วันที่ที่ใช้งานมาทั้งหมด แต่ที่อยากได้
คือให้ คำนวนแค่ 30 วัน และคำนวนปัดเป็นเดือน ,เป็นปีต่อไปครับ
ขอบคุณครับ
Re: เปลี่ยนตัวเลขอัตโนมัติ
Posted: Tue May 24, 2011 9:15 am
by snasui
ผมเข้าใจว่าต้องการหาว่าเป็น กี่ปี กี่เดือน กี่วัน หากเป็นเช่นนั้นใช้ Datedif มาช่วยหาคำตอบไดครับโดย
1. ที่เซลล์ I3 คีย์สูตรเพื่อหาจำนวนปี
=DATEDIF(A3,B3,"Y")
Enter
2. ที่เซลล์ G3 คีย์สูตรเพื่อหาจำนวนเดือน
=DATEDIF(A3,B3,"YM")
Enter
3. ที่เซลล์ E3 คีย์สูตรเพื่อหาจำนวนวัน
=DATEDIF(A3,B3,"MD")
Enter
Re: เปลี่ยนตัวเลขอัตโนมัติ
Posted: Tue May 24, 2011 12:48 pm
by chai007
ขอบคุณมากครับ เป็นประโยชน์มากๆ เลยครับ