Page 1 of 1
ไม่เข้าใจครับว่าเป็นอย่างไร
Posted: Mon Nov 07, 2011 9:04 am
by yodpao.b
ผมเขียน VBA ใน Excel2003 แต่พอมาเปิดใน Excel2007 Code Eeror
Code: Select all
Private Sub UserForm_Initialize()
Application.EnableEvents = False
Application.ScreenUpdating = False
ComboBox1 = Format(Date, "mmmm")
ComboBox3 = Format(Date, "yyyy") + 543
With ComboBox2
.AddItem 30
.AddItem 45
.AddItem 60
.AddItem 90
.AddItem 120
End With
Sheets("cal_1").Select
ComboBox2.Text = Range("B5").Text
Application.EnableEvents = True
End Sub
จากโคด้ด้านบนโคด้ที่eeror คือ
ComboBox1 = Format(Date, "mmmm")
ComboBox3 = Format(Date, "yyyy") + 543
อาจารย์ช่วยบอกสาเหตุและช่วยแก้ไขให้หน่อยครับ
Re: ไม่เข้าใจครับว่าเป็นอย่างไร
Posted: Mon Nov 07, 2011 8:29 pm
by snasui
ผมทดสอบแล้วไม่ติดปัญหาใด ช่วยส่งไฟล์ตัวอย่างที่เป็นปัญหามาด้วยครับ
Re: ไม่เข้าใจครับว่าเป็นอย่างไร
Posted: Tue Nov 08, 2011 12:12 pm
by yodpao.b
ไฟล Zip wfh 750 k ส่งได้ไหมครับ
Re: ไม่เข้าใจครับว่าเป็นอย่างไร
Posted: Tue Nov 08, 2011 12:44 pm
by snasui
ควรตัดไฟล์ ให้เหลือเนื้อหาและ Code เฉพาะท่อนที่เป็นปัญหาเท่านั้นครับ
Re: ไม่เข้าใจครับว่าเป็นอย่างไร
Posted: Tue Nov 08, 2011 1:02 pm
by yodpao.b
Code: Select all
Private Sub UserForm_Initialize()
Application.EnableEvents = False
Application.ScreenUpdating = False
ComboBox1 = Format(Date, "mmmm")
ComboBox3 = Format(Date, "yyyy") + 543
With ComboBox2
.AddItem 30
.AddItem 45
.AddItem 60
.AddItem 90
.AddItem 120
End With
Sheets("cal_1").Select
ComboBox2.Text = Range("B5").Text
Application.EnableEvents = True
End Sub
โคด้นี้ที่ Eeror ครับ ผมแนบไฟล์มาให้อาจารย์ดูด้วยครับ แต่สงสัยจะเป็นที่ windown หรือเปล่าครับ
เพราะลองเปิดกับexcel2003เครื่องอื่นก็เจอปัญหาเมื่อนกัน
และอาจารย์ช่วยดู โคดที่ใช้ส่ง mail ให้ด้วยนะครับ โคดอยู่ใน sheert Sendmail
ชื่อโคด SendSheet_ActiveWorkbook อยู่ในโมดูล ครับ
Re: ไม่เข้าใจครับว่าเป็นอย่างไร
Posted: Tue Nov 08, 2011 6:16 pm
by snasui
Code ที่เป็นปัญหา อยู่ที่ Form ไหนหรือ Module ไหนครับ เรื่องอีเมลผมตอบไปแล้วในกระทู้ก่อน ได้ทำตามนั้นแล้วหรือไม่ ติดตรงไหนก็ไปถามต่อที่นั่นครับ
Re: ไม่เข้าใจครับว่าเป็นอย่างไร
Posted: Thu Nov 10, 2011 9:22 am
by yodpao.b
code ที่มีปัญหาอยู่ที่ Userform3 จะทำงานตอนเปิดไฟล์ครับผม
Re: ไม่เข้าใจครับว่าเป็นอย่างไร
Posted: Thu Nov 10, 2011 3:04 pm
by snasui
Error ที่ว่านั้นมีลักษณะเป็นอย่างไร ช่วยอธิบายเพิ่มด้วยครับ
Re: ไม่เข้าใจครับว่าเป็นอย่างไร
Posted: Thu Nov 10, 2011 3:58 pm
by yodpao.b
ครับเด๊ยวพรุ่งนี้พิมพ์ให้ครับ
Re: ไม่เข้าใจครับว่าเป็นอย่างไร
Posted: Fri Nov 11, 2011 2:24 pm
by yodpao.b
snasui wrote: Error ที่ว่านั้นมีลักษณะเป็นอย่างไร ช่วยอธิบายเพิ่มด้วยครับ
อธิบาย
eeror ตอนเปิดไฟล์ครับ เพราะโคด้นี้สังให้ทำงานตอนเปิดไฟล์
ลักษณะดังภาพด้านล่าง
1.GIF
2.GIF
Re: ไม่เข้าใจครับว่าเป็นอย่างไร
Posted: Fri Nov 11, 2011 2:34 pm
by snasui
ลองเข้าหน้าต่าง VBE > Tools > Reference
จับหน้าต่างนั้นมาให้ดูหน่อยครับ
Re: ไม่เข้าใจครับว่าเป็นอย่างไร
Posted: Fri Nov 11, 2011 2:51 pm
by yodpao.b
ลองแล้วครับแต่ไม่รู้จะเลือกอะไรดังรูป
Re: ไม่เข้าใจครับว่าเป็นอย่างไร
Posted: Fri Nov 11, 2011 3:46 pm
by snasui
เลือกไว้แค่นั้นก็ควรทำงานได้แล้วครับ สำหรับฟังก์ชั่น Date ไม่ได้ลึกลับซับซ้อนอะไร เครื่องผมสามารถทำงานได้ปกติโดยเลือกแค่ 4 รายการแรกตามภาพที่ส่งมาเท่านั้นครับ