c. Mở Excel --> mở tập tin chan_dai.xlsm --> ta đã thấy có menu mà ta thêm vào. Nhưng nhấn chuột vào thì chưa có gì, thậm chí Excel thông báo lỗi, vì ta chưa viết code để gán cho các nút ta thêm vào.
Nhấn Alt + F11 để mở VBA. Nhấn Insert --> Module để thêm môđun --> Dán code đã lưu vào bộ nhớ đệm ở điểm b (Ctrl + V) --> bổ sung code để phục vụ các nút.
Chọn save để lưu lại chan_dai.xlsm
d. Nếu chan_dai.xlsm ta định làm addin thì ta làm như sau:
Trong cửa sổ VBA ta nhấn vào ThisWorkbook --> chuyển IsAddin sang TRUE --> chọn save --> VBA chỉ cho phép ta lưu lại thành chan_dai.xlam.
chan_dai.xlam ta thêm vào Add_ins để mỗi lần mở Excel là có.
Chào các bạn
Tôi muốn thêm menu trên excel 2010
Ở bài 7 tôi đã thêm được Menu (xem hình)nó nằm trong Menu Home
Cũng đã tạo được Addin chan_dai.xlsm
Khi nhấn Nút thứ 1 thì nó ra hình dưới
Và thấy code trong module1:
'Callback for customButton1 onAction
Sub Macro1(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton21 onAction
Sub Macro2(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton24 onAction
Sub Macro3(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton25 onAction
Sub Macro4(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton28 onAction
Sub Macro5(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton31 onAction
Sub Macro6(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton42 onAction
Sub Macro7(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton44 onAction
Sub Macro8(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton36 onAction
Sub Macro9(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton38 onAction
Sub Macro10(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton40 onAction
Sub Macro11(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton22 onAction
Sub Macro12(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton46 onAction
Sub Macro13(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton26 onAction
Sub Macro14(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton29 onAction
Sub Macro15(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton32 onAction
Sub Macro16(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton43 onAction
Sub Macro17(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton45 onAction
Sub Macro18(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton41 onAction
Sub Macro19(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton23 onAction
Sub Macro20(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton47 onAction
Sub Macro21(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton27 onAction
Sub Macro22(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton30 onAction
Sub Macro23(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton33 onAction
Sub Macro24(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton34 onAction
Sub Macro25(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton35 onAction
Sub Macro26(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton37 onAction
Sub Macro27(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton39 onAction
Sub Macro28(control As IRibbonControl)
MsgBox control.ID
End Sub
'Callback for customButton20 onAction
Sub Macro29(control As IRibbonControl)
MsgBox control.ID
End Sub
Bây giờ tôi muốn đưa 1 đoạn code ở dưới vào để tạo addin
Sub DelObjects()
Dim i As Long, wks As Worksheet
On Error Resume Next
Set wks = ActiveSheet
For i = 1 To 10000
wks.Shapes(1).Delete
Next
MsgBox "Còn " & wks.Shapes.Count & " objects"
End Sub
(1)Đưa code vào chỗ nào để bấm vào nút thứ 1 thì nó chạy code?
(2)Muốn đổi tên “Nút thứ 1” thành “DelObjects” thì đổi như thế nào?
(3)Trong mục “Menu của riêng tôi” nó có 5 nút từ Nút thứ 4 -> Nút thứ 8: Nếu tôi muốn thêm các nút thì thế nào ạ?
Tôi đã đọc các bài của mục này nhưng vẫn chưa biết làm,
Xin các bạn hướng dẫn tôi chi tiết vì tôi không biết nhiều về máy tính
Xin cảm ơn các bạn
'Callback for customButton40 onAction
Sub Macro11(control As IRibbonControl)
MsgBox control.ID
End Sub
Và thấy code trong module1:
...
'Callback for customButton40 onAction
Sub Macro11(control As IRibbonControl)
MsgBox control.ID
End Sub
...
Bây giờ tôi muốn đưa 1 đoạn code ở dưới vào để tạo addin
Sub DelObjects()
Dim i As Long, wks As Worksheet
On Error Resume Next
Set wks = ActiveSheet
For i = 1 To 10000
wks.Shapes(1).Delete
Next
MsgBox "Còn " & wks.Shapes.Count & " objects"
End Sub
(1)Đưa code vào chỗ nào để bấm vào nút thứ 1 thì nó chạy code?
Cảm ơn sự hướng dẫn tận tình của bạn
Ở bài trên bạn có nói: Bạn đang nói tới menu được tạo bởi nội dung sau trong XML
Tôi thực sự không biết file XML này ở đâu & mở nó = cái gì? vì code trong File Chân dài chỉ có 1 module1 (đã nói ở trên)
Ở bài 7 của bạn Tôi chỉ biết tải 2 file nén về, rồi chạy OfficeCustomUIEditor.msi
Rồi chạy file chan_dai.xlsm sau đó chọn file này làm addin
Hình như bạn í không biết mở cái này
Nếu đúng vậy thì bạn xem lúc cài đặt nó ở đâu thì tìm ở đó
Thông thường thì ổ C ->program Files -> Custom UIEditor
Cho em hỏi anh @batman1 và các anh/chị trên GPE,
Như anh Batman1 có hướng dẫn viết code trên custom UI, việc tạo nút dùng thẻ Button id, tạo menu dùng thẻ menu id...
Nếu em muốn thêm 1 textbox vào Group id, thì code trên custom UI sẽ làm thế nào ạ?
Mục đích: để nhập đường dẫn vào (hoặc có nút Browse chọn đường dẫn đưa vào textbox) xong thực hiện việc lưu file/sheet theo textbox đó.
(ý tưởng như hình vẽ)
