Private Sub OnLoad(Ribbon As IRibbonUI)
Application.Assistant.DoAlert "Xin ch" & ChrW(224) & "o", "Ch" & ChrW(224) & "o c" & ChrW(225) & "c b" & ChrW(7841) & "n", msoAlertButtonOK, msoAlertIconNoIcon, msoAlertDefaultFirst, msoAlertCancelFirst, True
End Sub
Private Sub ThongBao(Ctrl As IRibbonControl)
Application.Assistant.DoAlert "Xin ch" & ChrW(224) & "o", ChrW(272) & ChrW(226) & "y l" & ChrW(224) & " n" & ChrW(250) & "t '" & Ctrl.Tag & "'", msoAlertButtonOK, msoAlertIconNoIcon, msoAlertDefaultFirst, msoAlertCancelFirst, True
End SubOK bạn. Mình sẽ trình bày lại.
Đúng rồi bạn. Nhờ bạn giúp đỡ. Xin cảm ơn
Đúng phần mình cần giúp đỡ. Xin cảm ơn
Cái này mình mới tìm hiểu nên cũng gặp khó khăn trong trình bày. Mình có tìm được bài này, hi vọng sẽ giải quyết đc.
<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="Ribbon_OnLoad">
<ribbon startFromScratch="false">
<tabs>
<tab id="Tab1" label="Sample" insertAfterMso="TabPageLayoutExcel" keytip="S">
<group id="Group1" label="toggleButton">
<toggleButton id="HideToggleButton" label="Hide" imageMso="PictureBrightnessGallery" size="large" onAction="HideToggleButton_OnAction" />
<separator id="Separator1" />
<toggleButton idMso="Bold" getVisible="ToggleButton_GetVisible" />
<toggleButton idMso="Italic" getVisible="ToggleButton_GetVisible" />
<splitButton idMso="UnderlineGallery" getVisible="ToggleButton_GetVisible" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>Option Explicit
Private rbIRibbonUI As IRibbonUI ' Ribbon
Private rbVisible As Boolean ' toggleButton Visible
Sub Ribbon_OnLoad(ribbon As IRibbonUI) ' Khởi tạo ban đầu cho Ribbon
rbVisible = True
Set rbIRibbonUI = ribbon ' Thiết định Ribbon để làm mới hiển thị cho nó
If CInt(Application.Version) > 12 Then
rbIRibbonUI.ActivateTab ("Tab1") ' Office 2010 hoặc mới hơn: Chọn vào Tab: [Sample]
Else
SendKeys "%s{ENTER}" ' Office 2007: Chọn vào Tab[Sample]
End If
rbIRibbonUI.Invalidate ' Refresh hiển thị cho Ribbon
End Sub
Sub ToggleButton_GetVisible(control As IRibbonControl, ByRef returnedVal) ' THiết định Visible cho Bold,Italic,toggleButton
returnedVal = rbVisible
End Sub
Sub HideToggleButton_OnAction(control As IRibbonControl, pressed As Boolean) ' Xử lý click HideToggleButton
rbVisible = Not pressed
rbIRibbonUI.Invalidate ' Refresh lại Ribbon
End Sub<button id="gnl2H" onAction="UX_ACTION" label="Hủy chèn dòng" imageMso="GoLeftToRight" enabled="false" getVisible="UX_Visible"/>
<button id="cgnl2S" onAction="UX_ACTION" label="Chỉnh sửa dữ liệu" imageMso="FileCompactAndRepairDatabase" enabled="false" getVisible="UX_Visible"/>
<button id="gnl2HC" onAction="UX_ACTION" label="Bỏ chọn dữ liệu" imageMso="GoLeftToRight" enabled="false" getVisible="UX_Visible"/>Đây lần đầu mình mới tiếp xúc mấy cái này. Xem cái Rubbin UI của bạn với file làm Ribbon của anh Thắng, rồi làm. nên chưa hiểu lắm, và chỉ có làm theo thôi. Các code của @vothanhthu đưa ở bài 2 lộn xộn, không có ý nghĩa vì lý do đấy. Cảm ơn Ad và các bạn tận tình giúp đỡ.
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OnLoad">
<ribbon startFromScratch="false">
<tabs>
<tab id="da" label="Tạo dự án mới">
<group id="gda" label="Dự án" tag="Tạo mới">
<button id="gdaN" label="Tạo mới" imageMso="ReadingMode" showImage="true" getKeytip="T"/>
<button id="gdaH" label="Hủy tạo" imageMso="TableDeleteRowsAndColumnsMenuWord" showImage="true" getKeytip="H"/>
<button id="gdaL" label="Lưu" imageMso="FileSave" showImage="true" getKeytip="L"/>
</group>
</tab>
<tab id="dt" label="Nhập đối tượng">
<group id="ndt" label="Nhập đối tượng mới" imageMso="DistributionListRemoveMember">
<button id="ndtN" onAction="UX_ACTION" label="Nhập mới" imageMso="DistributionListAddNewMember"/>
<button id="ndtL" onAction="UX_ACTION" label="Thêm" imageMso="SmartArtAddShapeAbove"/>
</group>
<group id="cdt" label="Chỉnh sửa đối tượng" imageMso="FileCompactAndRepairDatabase">
<button id="cdtN" onAction="UX_ACTION" label="Chọn chỉnh sửa " imageMso="GoLeftToRight"/>
<button id="cdtC" onAction="UX_ACTION" label="Chỉnh sửa" imageMso="GoLeftToRight"/>
<button id="cdtH" onAction="UX_ACTION" label="Hủy chỉnh sửa" imageMso="GoLeftToRight"/>
<button id="cdtL" onAction="UX_ACTION" label="Lưu chỉnh sửa" imageMso="GoLeftToRight"/>
</group>
</tab>
<tab id="nl" label="Nhập dữ liệu">
<group id="gnl1" label="Nhập dữ liệu">
<button id="gnl1N" onAction="UX_ACTION" label="Nhập dữ liệu" imageMso="GoLtrDown" getEnabled="UX_Enableb" getVisible="UX_Visible"/>
<button id="gnl1L" onAction="UX_ACTION" label="Thêm" imageMso="GoLtrDown" getEnabled="UX_Enableb" getVisible="UX_Visible"/>
</group>
<group id="gnl2" label="Chỉnh sửa dữ liệu">
<button id="gnl2C" onAction="UX_ACTION" label="Chọn dữ liệu chỉnh sửa" imageMso="GoLeftToRight" getEnabled="UX_Enableb" getVisible="UX_Visible"/>
<button id="gnl2HC" onAction="UX_ACTION" label="Bỏ chọn dữ liệu" imageMso="GoLeftToRight" getEnabled="UX_Enableb" getVisible="UX_Visible" tag="1Group"/>
<button id="cgnl2S" onAction="UX_ACTION" label="Chỉnh sửa dữ liệu" imageMso="FileCompactAndRepairDatabase" getEnabled="UX_Enableb" getVisible="UX_Visible" tag="1Group"/>
<button id="gnl2T" onAction="UX_ACTION" label="Chèn dòng" imageMso="GoLeftToRight" getEnabled="UX_Enableb" getVisible="UX_Visible"/>
<button id="gnl2H" onAction="UX_ACTION" label="Hủy chèn dòng" imageMso="GoLeftToRight" getEnabled="UX_Enableb" getVisible="UX_Visible" tag="2Group"/>
<button id="cgnl2SC" onAction="UX_ACTION" label="Ghi dữ liệu chèn" imageMso="FileCompactAndRepairDatabase" getEnabled="UX_Enableb" getVisible="UX_Visible" tag="2Group"/>
<button id="gnl2X" onAction="UX_ACTION" label="Xóa dữ liệu" imageMso="GoLeftToRight" getEnabled="UX_Enableb" getVisible="UX_Visible" tag="Group10"/>
</group>
<group id="xdl" label="Xuất dữ liệu">
<button id="gxdl" label="Xuất dữ liệu" getEnabled="UX_Enableb" getVisible="UX_Visible"/>
<menu id="memu" label="thủe">
<button id="bmenu" label="xem" getEnabled="UX_Enableb" getVisible="UX_Visible"/>
</menu>
</group>
</tab>
<tab id="tfr" label="esr">
<group id="afd" label="thủ">
<comboBox id="cmb" label="est">
</comboBox>
</group>
</tab>
</tabs>
</ribbon>
</customUI>Public myRibbon As IRibbonUI
Public BCIR As Boolean
Public MyID As String
Public MyTag As String
Private Sub OnLoad(Ribbon As IRibbonUI)
Set myRibbon = Ribbon 'SET BIẾN RIBBON
' Application.Assistant.DoAlert "Xin ch" & ChrW(224) & "o", "Ch" & ChrW(224) & "o c" & ChrW(225) & "c b" & ChrW(7841) & "n", msoAlertButtonOK, msoAlertIconNoIcon, msoAlertDefaultFirst, msoAlertCancelFirst, True
myRibbon.Invalidate
End Sub
Private Sub ThongBao(Ctrl As IRibbonControl)
' Application.Assistant.DoAlert "Xin ch" & ChrW(224) & "o", ChrW(272) & ChrW(226) & "y l" & ChrW(224) & " n" & ChrW(250) & "t '" & Ctrl.Tag & "'", msoAlertButtonOK, msoAlertIconNoIcon, msoAlertDefaultFirst, msoAlertCancelFirst, True
End Sub
Sub UX_Action(Control As IRibbonControl)
BCIR = True
Select Case Control.ID
Case "gnl1N":
'ThisWorkbook.Worksheets("SHEET1").Select
Sheet1.Range("a5") = "okKHKU"
Case "gnl1L":
'ThisWorkbook.Worksheets("SHEET1").Select
MsgBox "OK"
Case Else:
MyID = Control.ID
MsgBox "Hanh dong cua nut " & MyID
myRibbon.Invalidate 'LÀM MỚI RIBBON
End Select
End Sub
Sub UX_Visible(Control As IRibbonControl, ByRef MyVisible)
MyVisible = True
If MyID = "gnl2T" Then
Select Case Control.Tag
Case "2Group": MyVisible = True '2Group là Tag trong XML đại diện cho Hủy chèn dòng và ghi dữ liệu chèn
Case Else: MyVisible = False
End Select
ElseIf MyID = "gnl2C" Then
Select Case Control.Tag
Case "1Group": MyVisible = True '1Group là Tag trong XML đại diện cho Bỏ chọn và chỉnh sửa dữ liệu
Case Else: MyVisible = False
End Select
Else: MyVisible = True
End If
End Sub
Sub UX_Enableb(Control As IRibbonControl, ByRef MyEnabled)
MyEnabled = True 'Tất cả sẽ không ẩn
End Sub