มีปัญหาCode VBA add in

[b5930304629]

1.จากCodeตรงCaption พอเปลี่ยนเป็นชื่ออื่นแล้ว ในหน้าAdd inที่แสดงผล ไม่เปลี่ยนตามค่ะ
2.หน้าadd in มีคำว่าFuzzy ขึ้นมาหลายตัว ต้องการให้มีตัวเดียวค่ะ
3.ลบไฟล์เก่าไปแล้ว แต่โปรแกรมก็ยังถามหาไฟล์เก่าอยู่ พอจะadd in ไฟล์ใหม่ ก็ไม่สามารถทำได้ค่ะ

Code: Select all

Private Sub Workbook_Addinlnstall()
    With Application.CommandBars("Formatting").Controls.Add
        .Caption = "FAHP"
        .Style = msoButtonCaption
        .OnAction = "ThisWorkbook.CallProgram"
    End With
End Sub

Private Sub Workbook_AddinUninstall()
    On Error Resume Next
        Application.CommandBars("Formatting").Controls("Identify incorrect Date").Delete
    On Error GoTo 0
    
End Sub

Sub CallProgram()
    UserForm1.Show vbModal
End Sub

[snasui]

ลบเมนู Add-ins ทิ้งเสียก่อนแล้วสร้างใหม่ครับ

ปกติ Code การสร้างเมนูด้วย Command จะต้องมีเป็นคู่คือ Code สำหรับสร้างและ Code สำหรับลบ สำหรับ Code ที่โพสต์มานั้นไม่สามารถลบได้ กรุณากลับไปหา Code สำหรับการลบ CommandBar จากแหล่งที่ได้ Code นี้มา หากหาไม่ได้ให้กลับมาถามใหม่ครับ

การสร้าง Add-ins และมีเมนูใช้งานต่างหากปกติจะใช้ Office RibbonX Editor เข้ามาช่วยสร้าง จะมีความยืดหยุ่นกว่ากันมากแต่จะต้องเรียนรู้ XML ครับ