[Help] Ẩn - Hiện sheet có 2 ký tự đầu theo tên giống nhau bằng VBA (1 người xem)

[hoangtrong_vbnd]

Mong các bác, các chú, các thầy, các bạn giúp đỡ!
E có nghiên cứu một số topic trên diễn đàn, đặc biệt là 2 topic:
mục #7 http://www.giaiphapexcel.com/forum/showthread.php?36385-Vấn-đề-hiển-thị-Menu-tự-tạo-trong-Excel-2007
mục #5 http://www.giaiphapexcel.com/forum/showthread.php?82293-Nhờ-Giúp-Đỡ-Ẩn-Sheet-bằng-VBA
đều của bác siwtom hướng dẫn về cách tạo menu trên excel, nhưng có một số thắc mắc và vấn đề chưa giải quyết được mong mọi người giúp đỡ
1. button id : cái này chỉ để viết id tên sheet hay sao? (VD tên sheet là D110 thì <button id="D110" ... )
2. imageMso : đây là hình ảnh (biểu tượng) cho menu, vậy những biểu tượng này mình muốn thay đổi thì có "nguồn" nào để lấy tên cho hình ảnh đó? (Ví dụ "hình mặt cười" thì viết imageMso="HappyFace")
****
Và e có một vấn đề chưa giải quyết được về việc viết code VBA cho file của mình, E muốn hiện các sheet có 2 ký tự đầu theo tên trùng nhau thì hiện và các sheet khác thì ẩn.
xml code

<?xml version="1.0" encoding="utf-8"?><customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RibbonLoad">
<ribbon>
<tabs>
<tab id="NewTab" label="QUAN LY DU LIEU">

<group id="Nhom1" label="Nhap lieu ">
<button id="wk" label="WK" imageMso="BlogHomePage" size="large" onAction="ButtonClick" />


</group>
<group id="Nhom2" label="D. Kiem tra co ban Tai san">


<button id="D1" label=" D100" imageMso="TranslationToolTip" screentip="Tien va cac khoan tuong duong tien" onAction="ButtonClick" />
<button id="D2" label=" D200" imageMso="TranslationToolTip" screentip="Dau tu tai chinh" onAction="ButtonClick" />
<button id="D3" label=" D300" imageMso="TranslationToolTip" screentip="Phai thu khach hang" onAction="ButtonClick" />
<button id="D4" label=" D400" imageMso="TranslationToolTip" screentip="Phai thu noi bo" onAction="ButtonClick" />
<button id="D5" label=" D500" imageMso="TranslationToolTip" screentip="Hang ton kho" onAction="ButtonClick" />
<button id="D6" label=" D600" imageMso="TranslationToolTip" screentip="Tam ung - CP tra truoc" onAction="ButtonClick" />
<button id="D7" label=" D700" imageMso="TranslationToolTip" screentip="TSCD huu hinh - vo hinh - BDS dau tu" onAction="ButtonClick" />
<button id="D8" label=" D800" imageMso="TranslationToolTip" screentip="TSCD thue tai chinh" onAction="ButtonClick" />


</group>
<group id="Nhom3" label="E. Kiem tra co ban No phai tra ">


<button id="E1" label=" E100" imageMso="FunctionsRecentlyUsedtInsertGallery" screentip="Vay va no ngan han - dai han" onAction="ButtonClick" />
<button id="E2" label=" E200" imageMso="FunctionsRecentlyUsedtInsertGallery" screentip="Phai tra nguoi ban" onAction="ButtonClick" />
<button id="E3" label=" E300" imageMso="FunctionsRecentlyUsedtInsertGallery" screentip="Thue va cac khoan phai nop Nha nuoc" onAction="ButtonClick" />
<button id="E4" label=" E400" imageMso="FunctionsRecentlyUsedtInsertGallery" screentip="Luong va cac khoan phai tra Nguoi lao dong" onAction="ButtonClick" />
<button id="E5" label=" E500" imageMso="FunctionsRecentlyUsedtInsertGallery" screentip="Chi phi phai tra" onAction="ButtonClick" />
<button id="E6" label=" E600" imageMso="FunctionsRecentlyUsedtInsertGallery" screentip="Phai tra noi bo - phai tra khac" onAction="ButtonClick" />


</group>
<group id="Nhom4" label="F. Kiem tra co ban NVCSH">


<button id="F1" label=" F100" imageMso="FunctionsFinancialInsertGallery" screentip="Nguon von Chu So Huu" onAction="ButtonClick" />
<button id="F2" label=" F200" imageMso="FunctionsFinancialInsertGallery" screentip="Co phieu quy" onAction="ButtonClick" />
<button id="F3" label=" F300" imageMso="FunctionsFinancialInsertGallery" screentip="Nguon kinh phi va quy khac" onAction="ButtonClick" />
<button id="F4" label=" F400" imageMso="FunctionsFinancialInsertGallery" screentip="Tai khoan ngoai bang Can Doi Ke Toan" onAction="ButtonClick" />


</group>
<group id="Nhom5" label="G. Kiem tra co ban Bao Cao KQKD">


<button id="G1" label=" G100" imageMso="FunctionsDateTimeInsertGallery" screentip="Doanh thu" onAction="ButtonClick" />
<button id="G2" label=" G200" imageMso="FunctionsDateTimeInsertGallery" screentip="Gia von" onAction="ButtonClick" />
<button id="G3" label=" G300" imageMso="FunctionsDateTimeInsertGallery" screentip="Chi phi ban hang" onAction="ButtonClick" />
<button id="G4" label=" G400" imageMso="FunctionsDateTimeInsertGallery" screentip="Chi phi Quan ly doanh nghiep" onAction="ButtonClick" />
<button id="G5" label=" G500" imageMso="FunctionsDateTimeInsertGallery" screentip="Doanh thu va Chi phi hoat dong tai chinh" onAction="ButtonClick" />
<button id="G6" label=" G600" imageMso="FunctionsDateTimeInsertGallery" screentip="Thu nhap va chi phi khac" onAction="ButtonClick" />
<button id="G7" label=" G700" imageMso="FunctionsDateTimeInsertGallery" screentip="Lai tren co phieu" onAction="ButtonClick" />


</group>
<group id="Nhom6" label="Thuyet minh BCTC">


<button id="TMBCTC" label="Thuyet minh BCTC" imageMso="FunctionsLookupReferenceInsertGallery" size="large" onAction="ButtonClick" />


</group>
</tab>
</tabs>
</ribbon>
</customUI>

vba code

Private rb As IRibbonUIPrivate currSheetName As String
Sub CheckBox4_Click()If Columns("F:J").EntireColumn.Hidden = True Then Columns("F:J").EntireColumn.Hidden = False Else Columns("F:J").EntireColumn.Hidden = TrueEnd Sub

'Callback for customUI.onLoad
Sub RibbonLoad(ribbon As IRibbonUI)
Dim sh As Worksheet, sheetName As String
Set rb = ribbon
For Each sh In Sheets
If sh.Visible = -1 Then
currSheetName = Left(sheetName, 2)
Exit For
End If
Next sh
End Sub
Sub ButtonClick(control As IRibbonControl)
If currSheetName <> control.ID Then
Sheets(control.ID).Visible = -1
Sheets(currSheetName).Visible = 0
currSheetName = control.ID
End If
End Sub

E có gửi theo file đính kèm mong mọi người giúp đỡ,
Trân trọng cảm ơn!

 

[hoangtrong_vbnd]

Rất mong có sự hồi âm của mọi người,
các bác có thể chỉ dẫn sách hoặc đường link cần thiết để e tìm hiểu ko ạ.
Trân trọng cảm ơn!

 

[hoangtrong_vbnd]

không biết vấn đề này đã có topic nào thể hiện chưa ... mong mọi người giúp đỡ,
chân thành cảm ơn!

 

[hoangtrong_vbnd]

Nhờ mọi người giúp đỡ, e đã tạo được liên kết tuy nhiên code vba khá dài mà ko biết sửa sao cho đúng yêu cầu
Có ai đi qua dừng chân chỉ cho e vài đường cơ bản.
Chân thành cảm ơn mọi người!

 

[phucbugis]

Rất mong có sự hồi âm của mọi người,
các bác có thể chỉ dẫn sách hoặc đường link cần thiết để e tìm hiểu ko ạ.
Trân trọng cảm ơn!

bạn tham khảo 2 link sau thử nhé:
- Ribbon and Quick Access Toolbar(QAT) pages (www.rondebruin.nl)
- COMMANDBARS (erlandsendata.no)