Snasui Excel Forum

:D ผมเปิดไฟล์ได้เป็นปกติแต่เมื่อเปิด Form จะ Error

ที่ Error เพราะว่าได้เขียนให้นำไฟล์ภาพในเครื่องมาใช้ เช่น [c]Me.Image2.Picture = LoadPicture("D:\Store\image\images1.jpg")[/c]

[color=#FF4000]การเขียน Code ลักษณะนี้ได้จะต้องมั่นใจว่าในเครื่องใด ๆ ที่เปิดไฟล์นี้ จะต้องมีไฟล์ภาพในตำแหน่งนี้เสมอ ไม่เช่นนั้นก็จะ Error[/color] ครับ

คำถามนี้ไม่เกียวกับคำถามที่ผ่านมาเพราะโพสต์นี้ผมแก้ให้ทำงานเป็นปกติแล้ว

เรียนอาจารย์ครับ
รบกวนอาจารย์ ลองเปิดไฟล์นี้หน่อยครับ(ไฟล์อยู่ในโพสต์ที่ผ่านครับ)
เมื่อวานไปประชุมที่ทำงาน ลองเปิดไฟล์ดู(ใช้คอมที่ทำงาน)
เปิดไฟล์มาคลิกหัวข้อเรียกฟอร์มอะไรก็ได้
ผลคือ เครื่องคอม แฮง ค้างทำอะไรไม่ได้นานมาก เลยกดสวิสต์ปิดเปิดใหม่
แล้วลองอีกรอบ ผลเป็นเหมือนเดิม

รบกวนอาจารย์ ช่วยลองหน่อยครับ
ผมละท้อเลย
ไม่รู้ว่าต้องไปเริ่มต้นเขียนใหม่ในคอมรีเปล่าครับ

ขอบคุณครับ

Private Sub UserForm_Initialize()
Dim j As Integer

    Sheets("name").Select
    Range("E9").Select
        Do While Not IsEmpty(ActiveCell.Value)
            ComboBox1.AddItem ActiveCell.Value
            ActiveCell.Offset(1, 0).Select
        Loop

    Call ResetFormOrther1
    Me.Image2.Picture = LoadPicture("D:\Store\image\images1.jpg")
    Sheets("Home").Select
    
End Sub

Sub ShowForm_Orther()
Application.ScreenUpdating = False
    Call UnProtectAllSheets

    Sheets("name").Select
    Range("E8").Select
    Sheets("name").PivotTables("PivotTable1").PivotCache.Refresh

    Call Macro_ClearDataOrther
    Call Macro_TextDataOrther1

    frmOrther.Show
Application.ScreenUpdating = True
End Sub

เจอปัญหาแล้วครับ
เกี่ยวกับ .Select
อยู่ใน ฟอร์ม frmOrther
[code]Private Sub UserForm_Initialize()
Dim j As Integer

Sheets("name").Select
Range("E9").Select
Do While Not IsEmpty(ActiveCell.Value)
ComboBox1.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop

Call ResetFormOrther1
Me.Image2.Picture = LoadPicture("D:\Store\image\images1.jpg")
Sheets("Home").Select

End Sub[/code]
แก้โดยการเอา code ออก
[quote] Sheets("name").Select
Range("E9").Select
Do While Not IsEmpty(ActiveCell.Value)
ComboBox1.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop[/quote]

code อีกอันก็ผิด
[code]Sub ShowForm_Orther()
Application.ScreenUpdating = False
Call UnProtectAllSheets

Sheets("name").Select
Range("E8").Select
Sheets("name").PivotTables("PivotTable1").PivotCache.Refresh

Call Macro_ClearDataOrther
Call Macro_TextDataOrther1

frmOrther.Show
Application.ScreenUpdating = True
End Sub
[/code]
แก้โดยการนำ codeด้านล่าง ออก[quote] Sheets("name").Select
Range("E8").Select[/quote]

ตอนนี้ โปรแกรมเป็นปกติแล้วครับ

ไฟล์แนบครับ
ขอโทษครับผมลองลบส่วนที่ไม่เกี่ยวข้องออกไป
เครื่องมันไม่ยอมให้ SAVE ครับ มันบอกให้ SAVE เปลี่ยนชื่อ
เปลี่ยนแล้วก็ไม่ยอม เลยต้องส่งทั้งไฟล์เลยครับ

รบกวนด้วยครับ

ทำแบบเดิมอีกรอบ

[attachment=0]3.JPG[/attachment]
แต่คราวนี้ให้พิมพ์อะไรก็ได้ในวงกลม 4 วงกลม
แล้วคลิกบันทึก จะเห็นว่าเครื่องทำงานช้ากว่าเดิม ครับ

ต้องแก้ไขอย่างไรครับ

เมื่อพิมพ์ชื่อคน code vba ทำงานช้ากว่าปกตืครับ

ปกติลองไม่พิมพ์ชื่อคน code ทำงานได้ปกติ
แต่พอลองพิมพ์ชื่อคน code ทำงานช้ามาก และถ้ายังเล่นต่อไปอีกรอบ จะพิมพ์ชื่อคน
หรือไม่พิมพ์โปรแกรมก็ทำงานช้าครับ

ต้องปิดไฟล์แล้วเปิดใหม่

รอบแรก ลอง run ดู โดยไม่พิมพ์ชื่อคน ทำงานปกติครับ
รอบสองลอง run ดู โดยไม่พิมพ์ชื่อคน ทำงานปกติครับ
รอบสามลอง run ดู โดย พิมพ์ชื่อคนและอื่นๆ ทำงานช้ามากครับ

ขั้นตอนการ run code
[attachment=2]0.JPG[/attachment]
คลิกปุ่มที่วงกลม

[attachment=1]1.JPG[/attachment]
จากนั้น
เลือกใน listbox ที่ข้อความว่า เบิกใช้งาน
คลิกปุ่มพิมพ์ใบยืม

[attachment=0]2.JPG[/attachment]
หลังจากนั้นจะแสดงหน้าเอกสาร
เลือกสถานะใน list ตามรูป จากนั้นคลิกปุ่มบันทึกครับ


มีต่อ add ไม่ได้ครับ