Ẩn/hiện hệ thống Menu và Ribbon

Liên hệ QC

nncb2008

Thành viên chính thức
Tham gia
14/2/08
Bài viết
88
Được thích
3
Chào các anh, chị.
Trong file đình kèm có chức năng ẩn/hiện hệ thống Menu và Toolsbar sử dụng trong Excel2003
Mong anh/chị giúp cải tiến code để nó có tác dụng tương tự khi sử dụng trong Excel2007 và phiên bản mới hơn (Vẫn để ở file .xls)
Cảm ơn các anh/chị.
 

File đính kèm

  • ToolBar_Example1.xls
    29.5 KB · Đọc: 93
Chào các anh, chị.
Trong file đình kèm có chức năng ẩn/hiện hệ thống Menu và Toolsbar sử dụng trong Excel2003
Mong anh/chị giúp cải tiến code để nó có tác dụng tương tự khi sử dụng trong Excel2007 và phiên bản mới hơn (Vẫn để ở file .xls)
Cảm ơn các anh/chị.

Bạn download file gửi gèm nhé. Muốn kiểm soát tốt hơn phải dùng tới kỹ thuật Ribbon với file Excel 2007.
 

File đính kèm

  • ToolBar_Example1.xls
    37 KB · Đọc: 181
Chào cả nhà, đã lâu nay mới quay lại đề tài này.
Các bác cho hỏi cách làm ẩn/hiện hệ thống menu trong Excel 2007, 2010.
 
Chào cả nhà, đã lâu nay mới quay lại đề tài này.
Các bác cho hỏi cách làm ẩn/hiện hệ thống menu trong Excel 2007, 2010.
- Bấm Ctrl + F1 sẽ ẩn Toolbar
- View/Full Screen xem như ẩn toàn bộ
Đơn giản thế thôi ---> Muốn viết thằng code cũng cứ theo đó mà viết
 
Với file cụ thể như đã nêu ở trên, em chạy trên Excel2003 được như thế này
Trước:

Sau:Sau.png
Em cũng muốn làm điều này trên Excel2007, Excel2010.
 

File đính kèm

  • Truoc.jpg
    Truoc.jpg
    20.2 KB · Đọc: 167
Lần chỉnh sửa cuối:
Với file cụ thể như đã nêu ở trên, em chạy trên Excel2003 được như thế này

Em cũng muốn làm điều này trên Excel2007, Excel2010.

Code dùng trên 2003 sẽ không áp dụng được với 2007 và 2010 đâu
Đơn giản là cách tôi nói ở trên, sao bạn không thí nghiệm
Mã:
Sub HideRibbon()
  Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", [COLOR=#ff0000][B]FALSE[/B][/COLOR])"
End Sub
 
Cảm ơn bác đã nhiệt tình giúp đỡ.
Em muốn khi HideRibbon rồi thì có một "ToolsBar" chứa 01 nút lệnh.
Các bác tiếp tục giúp em nhé.
 
Cảm ơn bác.
Trong Excel 2003 em thấy đoạn code cũng ngắn và dễ đọc, cứ tưởng trong Excel2007 cũng đơn giản thế, ai dè ... Lại phải đầu tư nghiên cứu thêm thôi, chắc sẽ lâu đây.
 
Các anh chị cho em hỏi vấn đề liên quan với ạ. Em mới tạo một tab trong ribbon có tên NEW RIBBON như trong file đính kèm, giờ em mốn khi bấm vào hệ thống một cái thì nó ẩn hiện toàn bộ tab hệ thống của ribbon chỉ hiện NEW RIBBON bấn lại nó sẽ hiện toàn bộ trở lại như ban đầu thì làm như thế nào được ạ? em xin cảm ơn các anh chị nhiều ạ
 

File đính kèm

  • Test-Ribbon.xlsm
    752.3 KB · Đọc: 8
Các anh chị cho em hỏi vấn đề liên quan với ạ. Em mới tạo một tab trong ribbon có tên NEW RIBBON như trong file đính kèm, giờ em mốn khi bấm vào hệ thống một cái thì nó ẩn hiện toàn bộ tab hệ thống của ribbon chỉ hiện NEW RIBBON bấn lại nó sẽ hiện toàn bộ trở lại như ban đầu thì làm như thế nào được ạ? em xin cảm ơn các anh chị nhiều ạ
Bạn xem đúng yêu cầu của mình hay chưa?
 

File đính kèm

  • Test-Ribbon.xlsm
    731.8 KB · Đọc: 48
Code dùng trên 2003 sẽ không áp dụng được với 2007 và 2010 đâu
Đơn giản là cách tôi nói ở trên, sao bạn không thí nghiệm
Mã:
Sub HideRibbon()
  Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", [COLOR=#ff0000][B]FALSE[/B][/COLOR])"
End Sub
Anh cho em hỏi với ạ. Code của anh ẩn toàn bộ ribbon, em muốn ẩn ribbon mặc định thôi còn show tab ribbon tự tạo thì tuỳ chỉnh code của anh như thế nào để show được tab ribbon mà em tạo ra được ạ?
 
Bạn xem đúng yêu cầu của mình hay chưa?
Trong đoạn code dưới đây, mình muốn khai báo một biến để gán returnedVal vào thay vì gán vào sheet được không ban ơi?
Mã:
Public Sub Togglebutton1_getPressed(control As IRibbonControl, ByRef returnedVal)
        'Select Case control.ID
        '  Case "Togglebutton1"
        '    returnedVal = IsPressed
        'End Select
    returnedVal = Sheets("Sheet1").Range("A1").Value
End Sub
 
Trong đoạn code dưới đây, mình muốn khai báo một biến để gán returnedVal vào thay vì gán vào sheet được không ban ơi?
Mã:
Public Sub Togglebutton1_getPressed(control As IRibbonControl, ByRef returnedVal)
        'Select Case control.ID
        '  Case "Togglebutton1"
        '    returnedVal = IsPressed
        'End Select
    returnedVal = Sheets("Sheet1").Range("A1").Value
End Sub
Cái này bạn thử được mà, thay gì hỏi bạn có thể gõ vào rồi Test thử sẽ biết thôi.
 
Tui thì lại không tin là không được, muốn tui tin thì phải thấy file chứ không thể nói phán bằng cách đoán mò.
Mình gửi bạn file, bạn xem nếu đặt biến để đỡ phải gán vào sheet thì tốt quá. Mong bạn giúp mình với. cảm ơn bạn nhiều.
 

File đính kèm

  • Ribbon - QUOCBINH TEST.xlsm
    56.8 KB · Đọc: 12
Mình gửi bạn file, bạn xem nếu đặt biến để đỡ phải gán vào sheet thì tốt quá. Mong bạn giúp mình với. cảm ơn bạn nhiều.
Trong file của bạn đã chạy được rồi còn gì nửa mà bảo nó không chạy.
Thử thêm lệnh R = True hoặc R = False sẽ thấy nó chạy hay không là biết liền.
Mã:
Sub RibbonOnLoad(ribbon As IRibbonUI)
    Set Rib = ribbon
    R = True
End Sub
Nhưng tui hiểu cái bạn muốn, nhưng bạn lại hỏi cái khác. Cụ thể là bạn muốn lưu trạng thái tắt hoặc mở các dãy lệnh Ribbon hệ thống (Ribbon mặc định của excel) đúng không? Muốn lưu thì do nhu cầu của bạn thôi, tui thì lưu vào sheet còn bạn muốn lưu vào chổ nào thì tùy thuộc bạn. Cho một số gợi ý là có thể lưu vào Registry, lưu vào file text, lưu vào file text, lưu vào file abc... Mỗi cái nó có nhưng cái ưu cái khuyết riêng, ví dụ lưu vào file thì khi mang sang máy khác phải mang cái file này theo.
 
Web KT
Back
Top Bottom