Định dạng file excel

[TDTRUONG]

Bạn nào có biết cách định dạng một file excel mà khi mở file đó lên chỉ thấy toàn bộ màn hình, không có thanh công cụ, thanh format, tên các cột, số chỉ số dòng,.... Tớ đang học hỏi, làm ơn chỉ giáo

 

[khoavu87]

mục đích của việc làm này là gi?lạ quá lần đầu tiên nghe có một người yêu cầu như thế?câu này mình làm đc đợi chút
mình gửi câu trả lời

 

[khoavu87]

bạn vào view và tích bỏ hai cái trong ảnh.lưu lại và bật lai xem sao?

chúc bạn làm tốt nhưng m,ình chưa hiểu mục đích bạn làm gì?

 

[ptlong04x1]

Kiểu gì cũng sẽ còn lại thanh menu bạn ơi.

 

[khoavu87]

thế mới chết chứ mới làm đc một nửa.mà ko biết mục đích của họ vậy làm gì nhỉ?biết mục đích làm mới hay chứ? như vậy còn đc học hỏi.

 

[ptlong04x1]

Thì ra cũng có cách, không con đường nào khác ngoài VBA.

Sub HideMenu()
    On Error Resume Next
    Application.DisplayFullScreen = True
    Application.CommandBars.Add Name:="Blank", MenuBar:=True
    CommandBars("Blank").Visible = True
End Sub

Sub ShowMenu()
    Application.DisplayFullScreen = False
    CommandBars("Worksheet Menu Bar").Visible = True
End Sub

Xem File.

 

[huuthang_bd]

Thì ra cũng có cách, không con đường nào khác ngoài VBA.

Sub HideMenu()
    On Error Resume Next
    Application.DisplayFullScreen = True
    Application.CommandBars.Add Name:="Blank", MenuBar:=True
    CommandBars("Blank").Visible = True
End Sub

Sub ShowMenu()
    Application.DisplayFullScreen = False
    CommandBars("Worksheet Menu Bar").Visible = True
End Sub

Xem File.

Cái file bạn đính kèm không phải thực hiện bằng code của bạn???
Code HideMenu của bạn chỉ làm mỗi việc view ở chế độ Full Screen. Mà cái này thì thực hiện bằng tay dễ dàng. View | Full Screen

 

[TDTRUONG]

Full screen

Mục đích bạn sẽ biết sau, khi tớ làm xong, tớ sẽ share cho mọi người, Xin hứa. Cái này lạ, nên mới hấp dẫn

 

[ptlong04x1]

Cái file bạn đính kèm không phải thực hiện bằng code của bạn???
Code HideMenu của bạn chỉ làm mỗi việc view ở chế độ Full Screen. Mà cái này thì thực hiện bằng tay dễ dàng. View | Full Screen

Bạn xem file chưa vậy???
Việc FullScreen, và ẩn mấy dòng tiêu đề thì có thể làm bằng tay, nhưng mà ở đây tác giả muốn ẩn hết, kể cả thanh menu (File, Tools, Format,...), liệu cái này có làm bằng tay được không?

 

[huuthang_bd]

Bạn xem file chưa vậy???
Việc FullScreen, và ẩn mấy dòng tiêu đề thì có thể làm bằng tay, nhưng mà ở đâu tác giả muốn ẩn hết, kể cả thanh menu (File, Tools, Format,...), liệu cái này có làm bằng tay được không?

Đương nhiên là tôi xem file rồi mới có nhận xét chứ. Thế này nhé, bạn mở một file mới lên, copy code của bạn vào rồi chạy thử xem các thanh Headings và WorkbookTabs có ẩn như trong file của bạn không. Còn cái thanh menu tôi không có Excel 2003 nên chưa text được.

 

[ptlong04x1]

Đương nhiên là tôi xem file rồi mới có nhận xét chứ. Thế này nhé, bạn mở một file mới lên, copy code của bạn vào rồi chạy thử xem các thanh Headings và WorkbookTabs có ẩn như trong file của bạn không. Còn cái thanh menu tôi không có Excel 2003 nên chưa text được.

Thì ý mình là vầy, 3 cái này làm bằng tay được.
1. Full Screen
2. Sheets Tab
3. Row & Column Header

Code HideMenu của bạn chỉ làm mỗi việc view ở chế độ Full Screen

Chỉ có thanh Menu bar thì không thể ẩn bằng tay được, nên phải dùng code, code là để làm việc này chứ không phải là chỉ để FullScreen :

Application.CommandBars.Add Name:="Blank", MenuBar:=True
CommandBars("Blank").Visible = True

 

[ndu96081631]

Thì ra cũng có cách, không con đường nào khác ngoài VBA.

Sub HideMenu()
    On Error Resume Next
    Application.DisplayFullScreen = True
    Application.CommandBars.Add Name:="Blank", MenuBar:=True
    CommandBars("Blank").Visible = True
End Sub

Sub ShowMenu()
    Application.DisplayFullScreen = False
    CommandBars("Worksheet Menu Bar").Visible = True
End Sub

Xem File.

Code chạy rất tốt
Bạn chỉ lưu ý thêm 1 điểm: Khi ShowMenu thì cũng nên trả mọi thứ về ban đầu, tức xóa luôn cái CommandBars("Blank") mà bạn đã Add ---> Kẻo lại.. hiểu lầm

 

[ptlong04x1]

Mục đích bạn sẽ biết sau, khi tớ làm xong, tớ sẽ share cho mọi người, Xin hứa. Cái này lạ, nên mới hấp dẫn

Trong khi chờ "cái mới lạ" của bạn, mình vọc thêm tí nữa, lần này ta sẽ có 1 File trắng tinh

Sub View(Opt As Boolean)
    With ActiveWindow
        .DisplayGridlines = Opt
        .DisplayHeadings = Opt
        .DisplayHorizontalScrollBar = Opt
        .DisplayVerticalScrollBar = Opt
        .DisplayWorkbookTabs = Opt
    End With
    Application.DisplayFullScreen = Not Opt
End Sub

Sub Hide()
    On Error Resume Next
    Call View(False)
    CommandBars("TEST").Delete
    Application.CommandBars.Add "TEST", , Not Opt
    CommandBars("TEST").Visible = Not Opt
End Sub

Sub Show()
    On Error Resume Next
    Call View(True)
    CommandBars("TEST").Delete
End Sub

 

[keke355992]

Trong khi chờ "cái mới lạ" của bạn, mình vọc thêm tí nữa, lần này ta sẽ có 1 File trắng tinh

Sub View(Opt As Boolean)
    With ActiveWindow
        .DisplayGridlines = Opt
        .DisplayHeadings = Opt
        .DisplayHorizontalScrollBar = Opt
        .DisplayVerticalScrollBar = Opt
        .DisplayWorkbookTabs = Opt
    End With
    Application.DisplayFullScreen = Not Opt
End Sub

Sub Hide()
    On Error Resume Next
    Call View(False)
    CommandBars("TEST").Delete
    Application.CommandBars.Add "TEST", , Not Opt
    CommandBars("TEST").Visible = Not Opt
End Sub

Sub Show()
    On Error Resume Next
    Call View(True)
    CommandBars("TEST").Delete
End Sub

E xin lỗi đã đào mộ . Nhờ các Anh chị diễn đàn giải thích giùm e đoạn code CommandBar("Test").Delete, CommandBar.Add Nó có tác dụng gì vậy ạ. Tại sao đoạn code này lại pải đưa nó vào vậy ạ

 

[duongcga]

With Application.ActiveWindow
.DisplayFormulas = False
.DisplayGridlines = False
.DisplayHeadings = True
.DisplayWhitespace = False
.DisplayOutline = False
.DisplayRuler = False
End With
Application.DisplayFullScreen = True