Tôi thấy bạn thêm được nút lệnh rồi còn nhờ gì nửa. Bây giờ chổ nào chưa hiểu tôi giải thích thôi.
Cái này đợt trước anh giúp mà.
Nhưng bạn đã thêm được nút lệnh và chạy được rồi còn gì nửa.
Trong ví dụ này Sheet em yêu cầu nhờ giúp là cố định. Đợt trước file anh giúp là cứ thêm sheet nào thì nó lấy sheet mới và bỏ sheet cũ
Bạn muốn cố định sheet thì sửa trong Module.
Public gobjRibbon As IRibbonUI
Public Sub OnRibbonLoad(ribbon As IRibbonUI)
Set gobjRibbon = ribbon
gobjRibbon.ActivateTab "tab0"
End Sub
Sub getlabelbnt(control As IRibbonControl, ByRef returnedVal)
Select Case control.ID
Case "Bnt1": returnedVal = Sheet1.Name
Case "Bnt2": returnedVal = Sheet2.Name
Case "Bnt3": returnedVal = Sheet3.Name
End Select
End Sub
Sub OnActionTglButton(control As IRibbonControl, pressed As Boolean)
Select Case control.ID
Case "Bnt1": Sheet1.Select
Case "Bnt2": Sheet2.Select
Case "Bnt3": Sheet3.Select
End Select
gobjRibbon.Invalidate
End Sub
Sub GetPressedTglButton(control As IRibbonControl, ByRef pressed)
pressed = ThisWorkbook.Sheets(Val(Right(control.ID, 1))) Is ActiveSheet
End Sub
em chièn ảnh vào sao nó không hiện ảnh anh nhỉ. hay nỗi chỗ nào mong anh chỉ cho
Ảnh mà bạn chèn vào phải dùng thuộc tính image chứ không phải imageMso.
Dạ xin cám ơn anh nhiều
anh ơi lại phiền anh lần này nữa. làm đến đây rồi. nhưng không biết cách gộp dự liệu thành 1 nhờ anh gộp hộ .(trong 1 file có 2 custom UI. em muốn gộp thành một để nó chạy được). em xin phiền anh 1 lần này nữa
Bạn xem file, do trong file của bạn chưa có các file hình nên các nút lệnh hiện tại không có icon nhé.
Quả là bạn giúp đến z luôn, thế này thì người nhờ còn chi phải lo
Em cám ơn anh nhiều
Tôi cũng muốn chia sẻ thôi, tôi còn định viết luôn một chuyên mục về tạo ribbon, ngặt nỗi kiến thức còn hạn hẹp quá sợ các thành viên khác khai thác sâu tôi lại không biết trả lời thê nào.
nó báo nỗi anh ạ
Lỗi là do trong file của bạn có 9 hay 10 nút lệnh trong khi sheet thì chỉ có 3, tôi chỉ để đại code chứ không sửa do biết bạn chỉ cần file xml thôi. Còn không làm được nửa thì up file thực tế lên đây, up file giả lập giúp xong lại không biết áp dụng mất thời gian thêm. Khuya về giúp nhé đi đánh chén đây.
em kiểm tra rồi nói tương ứng với mã vba mà trong modules
Bạn tải lại file ở #11 và đọ lại dòng đầu trong hình của bạn xem. Theo hình bạn chụp còn thiếu, tôi không ngồi trên máy tính nên không xem được.
vẫn báo nỗi anh ah. làm theo lời anh nhưng nó vẫn báo thế
Nói qua lại thế này tới mai vẫn không xong việc, up cái file bị lỗi lên đây.
