Làm sao cho mất thanh công cụ

[minhhangg]

Chào các bác, em muốn làm mất thanh công cụ, thanh công thức...mời các bác xem Hình mà không cần vào Tool/options...Chân thành cảm ơn

 

[ptm0412]

Bạn lôi nó xuống thế này được không?

 

[minhhangg]

Dạ không ah. Tại gì em thấy có mấy bài trên diễn dàn này, khi mở ra là nó như vậy rồi, không những vậy mà còn mất hết chỉ còn cửa sổ bảng tính thôi. Em vào Tool thì không thấy dánh dấu Check, như vậy là sao hé anh.

 

[ptm0412]

Show/Hide Tool bar nằm trong menu View - Toolbar chứ đâu mà nằm trong Tool - Option?
Nếu có check thì check trong Tool/Customize mới đúng chứ?

Còn các file mở lên đã không thấy, nhưng khi đóng file đó, mở file khác thì hiện ra, thì có thể họ đã dùng VBA.

 

[minhhangg]

Dạ đúng rồi, ý em là muốn bỏ luôn thanh A,B,C...Anh nói dùng VBA gì đó, anh có thể làm 1 file cho em được chứ anh. Cảm ơn anh

 

[sealand]

Việc dấu thanh công cụ có thể xác lập trực tiếp bằng option hay view, nhưng cũng có thể xác lập bằng code gài vào các sự kiện.
Bạn mở file ví dụ của mình rồi mở thêm 1 file Excel khác rồi chuyển qua lại 2 cửa sổ so sánh xem sao.
Cần xem chi tiết vào vùng Code của WorkBook

 

[ndu96081631]

Dạ đúng rồi, ý em là muốn bỏ luôn thanh A,B,C...Anh nói dùng VBA gì đó, anh có thể làm 1 file cho em được chứ anh. Cảm ơn anh

Thử vầy xem:

Dim Arr()
Sub Auto_Open()
  Dim tbar As CommandBar, i As Long
  On Error Resume Next
  For Each tbar In CommandBars
    If tbar.Visible Then
      ReDim Preserve Arr(i)
      Arr(i) = tbar.Name
      tbar.Visible = False
      i = i + 1
    End If
  Next
End Sub

Sub Auto_Close()
  Dim i As Long
  On Error Resume Next
  For i = 0 To UBound(Arr)
    CommandBars(Arr(i)).Visible = True
  Next
End Sub

Mở file phải Enable Macros nha!

 

[minhhangg]

Cảm ơn anh nhiều, em thì không rành tin học lắm, Dạ cho em hỏi thêm, khi dùng VBA khi mở lên không thấy nhưng vẫn check được, như vậy mình check nó dể hơn. Nhưng mình check qua máy khác thì vẫn thấy bình thường, Cuối cùng có cách nào không cho check luôn không anh, mà chỉ có mình mới biết làm hiện ra mấy thanh công cụ...đó lại thôi. Cảm ơn
Nhờ chủ trang web này xóa bài này dùm em

 

[minhhangg]

Thử vầy xem:

Dim Arr()
Sub Auto_Open()
Dim tbar As CommandBar, i As Long
On Error Resume Next
For Each tbar In CommandBars
If tbar.Visible Then
ReDim Preserve Arr(i)
Arr(i) = tbar.Name
tbar.Visible = False
i = i + 1
End If
Next
End Sub

Sub Auto_Close()
Dim i As Long
On Error Resume Next
For i = 0 To UBound(Arr)
CommandBars(Arr(i)).Visible = True
Next
End Sub

Mở file phải Enable Macros nha!

Dạ như vầy đúng với ý em rồi nè, nhưng cho mất thanh A,B,C luôn áh anh, anh làm dùm em. Cảm ơn anh.

 

[ndu96081631]

Dạ như vầy đúng với ý em rồi nè, nhưng cho mất thanh A,B,C luôn áh anh, anh làm dùm em. Cảm ơn anh.

Thanh A,B,C là thanh gì đây trời? Menu bar chăng? Nếu đúng thế thì vầy:

Sub Auto_Open()
  Application.DisplayFullScreen = True
  CommandBars("Worksheet Menu Bar").Position = msoBarBottom
  CommandBars("Full Screen").Visible = False
End Sub

Sub Auto_Close()
  Application.DisplayFullScreen = False
  CommandBars("Worksheet Menu Bar").Position = msoBarTop
  ThisWorkbook.Close (True)
End Sub

 

[minhhangg]

Bởi vậy em đã nói không rành tin học mà anh, Cái thanh Row, column, (1,2,3,4,5.....A,,B,C,D,E,F,G.......). Camr ơn anh.

 

[bactu]

Bởi vậy em đã nói không rành tin học mà anh, Cái thanh Row, column, (1,2,3,4,5.....A,,B,C,D,E,F,G.......). Camr ơn anh.

Bạn vào Tools\Options\View\Row & column headers

Bỏ chọn đi là xong.

 

[minhhangg]

Biết rồi nhưng ý em là dùng VBA gì đó, khi mở bảng tính lên thì mất thanh công cụ, thanh công thức, Row, column. Vậy đó. Cảm ơn

 

[ndu96081631]

Bởi vậy em đã nói không rành tin học mà anh, Cái thanh Row, column, (1,2,3,4,5.....A,,B,C,D,E,F,G.......). Camr ơn anh.

- Đầu tiên bạn vào menu Tools\Macro\Record New Macro
- Một hộp thoại xuất hiện, bấm OK
- Làm giống như bactu vừa nói
- Làm xong, bấm nút Stop Recording
- Bấm tổ hợp phím Alt + F8 vào xem code
---------------------
Đây là cách "nhờ" Excel ghi lại những thao tác của ta thành code (ta khỏi cần viết) rồi vào xem nó viết cái gì thì học theo
Như cách làm ở trên thì tôi sẽ ghi lại được đoạn code sau nhờ chức năng record macro:

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 10/5/2011 by TUANNA.MAINTENANCE
'

'
    ActiveWindow.DisplayHeadings = False
End Sub

Từ đây ta biết để ẩn thanh tiêu đề dòng cột thì code sẽ là ActiveWindow.DisplayHeadings = False
Vậy chỉ việc thêm đoạn code này vào Sub Autpen của tôi là được

 

[minhhangg]

Dạ, em làm được rồi. Cho em hỏi thêm cái nửa, em có 1 bảng tính excell, em đã định dang trang A4 xong rồi, bây giờ em muốn làm 1 cái nút để nhấp chuột vào cái nút này rồi in ra, vậy thì mình cũng Record như trên được không anh.

 

[viehoai]

Dạ, em làm được rồi. Cho em hỏi thêm cái nửa, em có 1 bảng tính excell, em đã định dang trang A4 xong rồi, bây giờ em muốn làm 1 cái nút để nhấp chuột vào cái nút này rồi in ra, vậy thì mình cũng Record như trên được không anh.

Được, nhưng mình nghĩ bạn làm điều đó sẽ thừa vì ông Bill cũng đã làm sẵn cho ta một nút ấy rồi (Print) hoặc bạn nhấn Ctl+p để in

 

[minhhangg]

hehehe. Dạ, mình nghỉ lại đúng là thừa. Cảm ơn các anh nhiều nha. See you again

 

[DUONGKHALY]

Cho em xin code mất thanh formula bar, worksheet.v.v. Như hình đính kèm. Cảm ơn nhiều