Snasui Excel Forum

ตรับ

[quote=yodpao.b post_id=93222 time=1559622837 user_id=1581]
สาเหตุเป็นเพราะอะไร ครับ
[/quote]:D เข้าใจว่าเกิดจากการใช้ date เป็นตัวแปร และเนื่องจากว่า date เป็นฟังก์ชั่นของ VBA ทำให้โปรแกรม Compile แล้วเกิดผิดพลาดครับ

การใช้ฟังก์ชั่นของ VBA จึงควรจะนำหน้าด้วย VBA เสมอ เช่น [c]VBA.Mid, VBA.Left, VBA.Right[/c] เป็นต้น

การเขียนฟังก์ชั่น เขียนตัวแปรต่าง ๆ จะต้องไม่ตรงกับฟังก์ชั่นและจะต้องไม่ตรงกับคำสงวนของ VBA ทั้งหลาย เช่น [c]Sub, Dim, Private[/c] ฯลฯ

สรุป ว่าเติม

VBA.DateTime.Date
ก็ใช้ได้ครับ

ทุกที่ทีเป็นปัญหาตั้องมี VBA.xxxxx.format
ในเมื่อแต่ก่อนก็ Run ได้(แต่ก่อน code ที่เขียนเข้าใจงาย และ ยังมีน้อย)
สาเหตุเป็นเพราะอะไร ครับ

ม[quote=snasui post_id=93215 time=1559568849 user_id=2]
ลองทดสอบค้นหาคำว่า Date ใน Code ของไฟล์นั้นว่าพบที่ไหนบ้าง กี่ที่ครับ
[/quote]
ฟอรมนี้มีที่เดียว

ลองเปิดฟอร์มอื่นดู ไม่ใช้ Date อย่างเดียว
อะไรที่เป็นวันที่ ฟ้อง error ทุกที
ยกตัวอย่าง Format ก็เป็น
[attachment=0]2.JPG[/attachment]
แนะนำเยื้องต้นก็ได้นะครับ


พรุ่งนี้ผมต้องไปปรึกษาน้องที่ทำงาน มันแปลก
และผมคงต้องไปหาไฟล์เก่าที่เพิ่งเริ่มทำมาลอง Run ดู

:D ลองทดสอบค้นหาคำว่า Date ใน Code ของไฟล์นั้นว่าพบที่ไหนบ้าง กี่ที่ครับ

Private Sub UserForm_Initialize()                                                                       'ตอนเปิดปฏิธินขึ้นมา
    On Error Resume Next
    If Me.MonthView1.Value <> ActiveCell.Value Then                                                     'ถ้าวันที่ที่โชว์ไม่เท่ากับวันที่ในช่องที่เลือก ให้
         Me.MonthView1.Value = ActiveCell.Value                                                                      'โชว์วันที่ในช่องที่เลือกอยู่ (ถ้ามีวันที่เดิมอยู่แล้ว ให้โชว์หน้าปฏิธินที่วันที่เดิมอยู่)
    End If
    If ActiveCell.Value = "" Then                                                                                              'ถ้าช่องที่เลือกไม่มีค่า ให้
        Me.MonthView1.Value = Date                                                                                        'ให้โชว์หน้าที่มีวันที่ปัจจุบัน(Date คือวันที่ตามเครื่องคอม)
    End If
End Sub

VBA:compile error เพราะอะไรครับ
พอกด ok สีน้ำเงินขึ้นที่ Date สีเหลืองขึ้นที่ Private Sub UserForm_Initialize()
[attachment=0]1.JPG[/attachment]
เครื่องที่ทำงานที่ผมใช้ก็ทำงานได้ปกติ
แต่พอไปใช้เครื่องอื่น เป็น excel 2007 ก็ compile error ทั้งๆทีก่อนหน้านี้เครื่องที่เป็นปัญหาก็เล่นได้
ลืมบอกครับน้องที่ทำงานเขาเขียนโตดเพิ่มในส่วนอื่น
แต่เขาบอกว่าไม่ใช้สาเหตุนี้
เขาบอกว่าเครื่องมันฟ้องไม่รู้จัก date

[code]Private Sub UserForm_Initialize() 'ตอนเปิดปฏิธินขึ้นมา
On Error Resume Next
If Me.MonthView1.Value <> ActiveCell.Value Then 'ถ้าวันที่ที่โชว์ไม่เท่ากับวันที่ในช่องที่เลือก ให้
Me.MonthView1.Value = ActiveCell.Value 'โชว์วันที่ในช่องที่เลือกอยู่ (ถ้ามีวันที่เดิมอยู่แล้ว ให้โชว์หน้าปฏิธินที่วันที่เดิมอยู่)
End If
If ActiveCell.Value = "" Then 'ถ้าช่องที่เลือกไม่มีค่า ให้
Me.MonthView1.Value = Date 'ให้โชว์หน้าที่มีวันที่ปัจจุบัน(Date คือวันที่ตามเครื่องคอม)
End If
End Sub
[/code]
แก้ไขอย่างไรดีครับ
เปลี่ยน date เป็นอย่างอื่นได้ไหมครับ
ผมลอง คอมเมน บรรทัด date มันก็เปิดฟอรมได้ครับ