Page 1 of 1
วันที่แบบตายตัว
Posted: Fri Aug 26, 2011 8:13 am
by panida
คือว่าดิฉันเขียน VBA
1.เพื่อให้ใส่เลขที่เอกสารใน cell C3 เสร็จแล้วค่ะ
2.อีกอันที่ยังทำไม่ได้คือ อยากใส่วันที่ตายตัวที่กรอดเอกสารในข้อ 1. cell C4
เช่นกรอกเอกสาร วันที่ 01/08/11
Cell C4 ก็แสดง01/08/11
สามารถเขียนสูตรใน VBA เลยได้มั้ยคะ
จะเขียนยังไงดีคะ
รบกวนอาจารย์ช่วยชี้แนะทีค่ะ
ขอบพระคุณมากๆค่ะ
พนิดา
Re: วันที่แบบตายตัว
Posted: Fri Aug 26, 2011 10:22 am
by snasui
ลองปรับ Code เป็นตามด้านล่างครับ
Code: Select all
Private Sub cmdExe_Click()
Sheets("document").Select
Range("C3").Select
Range("C3").Value = txtDoc.Value
Range("C4") = #1/8/2011#
End Sub
Re: วันที่แบบตายตัว
Posted: Fri Aug 26, 2011 5:31 pm
by panida
ขอบพระคุณค่ะ
คือดิฉันหมายความว่า
วันไหนที่กรอกเอกสาร ก็ให้แสดงใน Cell C4 อัตโนมัติ โดยที่เราไม่ต้องกรอกได้มั้ยคะ
มีฟังชั่นอะไรสามารถทำได้มั้ยคะ
Re: วันที่แบบตายตัว
Posted: Fri Aug 26, 2011 5:46 pm
by snasui
panida wrote:เช่นกรอกเอกสาร วันที่ 01/08/11
Cell C4 ก็แสดง01/08/11
สามารถเขียนสูตรใน VBA เลยได้มั้ยคะ
จะเขียนยังไงดีคะ
รบกวนอาจารย์ช่วยชี้แนะทีค่ะ
panida wrote:คือดิฉันหมายความว่า
วันไหนที่กรอกเอกสาร ก็ให้แสดงใน Cell C4 อัตโนมัติ โดยที่เราไม่ต้องกรอกได้มั้ยคะ
มีฟังชั่นอะไรสามารถทำได้มั้ยคะ
ไม่เข้าใจครับ ช่วยอธิบายวิธีการทำงานว่าทำอย่างไร เพื่อจะได้เข้าใจชัดเจน การกรอกเลขที่เอกสารเป็นการกรอกผ่าน Excel หรือผ่าน Form ใน VBA หรือ อื่น ๆ ครับ
Re: วันที่แบบตายตัว
Posted: Fri Aug 26, 2011 6:08 pm
by panida
งั้นเอาใหม่ค่ะ
ดิฉันเขียน VBA อีกครั้งหนึ่ง
1.กรอก ชื่อเอกสาใน รtxtDoc แล้วให้ใส่ค่า ลงใน cell C3
*2.ต้องการให้เมื่อเปิด userform ขึ้นมาแล้ว
ให้โปรแกรมใส่วันที่(วันที่รันตามปัจจุบันตอนที่เปิด userform)ใน txtDate
แล้วค่อยใส่ค่าลงไป cell C4 ค่ะ
เป็นไปได้มั้ยคะ
ขอบพระคุณค่ะมากๆ
พนิดา
Re: วันที่แบบตายตัว
Posted: Fri Aug 26, 2011 6:56 pm
by snasui
สามารถเพิ่ม Code ด้านล่างเข้าไปช่วยในการแสดงวันที่ปัจจุบันครับ
Code: Select all
Private Sub UserForm_Initialize()
txtDate = Date
End Sub
Re: วันที่แบบตายตัว
Posted: Fri Aug 26, 2011 7:20 pm
by panida
กราบขอบพระคุณอาจารย์จริงๆค่ะ
พนิดา