Menu Web Toolbar của Excel 2010 có không? (1 người xem)

[hoanglocphat]

Các bạn cho tôi hỏi Menu Web Toolbar của Excel 2010 có không?
Tôi đã vào Quick Access Toolbar tìm nhưng không thấy!
---------------
Mục đích của tôi chọn nó là vì
trong excel 2003, khi chọn nó (hình qủa cầu, có 2 mũi tên, 1 chỉ về bên trái, 1 chỉ về bên fải) thì khi ta mở file nào thì nó thể hiện file đó nằm ở ổ đĩa nào/Thư mục nào!
Nếu trong Excel 2010 có menu nào tương tự thì các bạn hướng dẫn giùm!
Xin cảm ơn!

 

[ndu96081631]

Các bạn cho tôi hỏi Menu Web Toolbar của Excel 2010 có không?
Tôi đã vào Quick Access Toolbar tìm nhưng không thấy!
---------------
Mục đích của tôi chọn nó là vì
trong excel 2003, khi chọn nó (hình qủa cầu, có 2 mũi tên, 1 chỉ về bên trái, 1 chỉ về bên fải) thì khi ta mở file nào thì nó thể hiện file đó nằm ở ổ đĩa nào/Thư mục nào!
Nếu trong Excel 2010 có menu nào tương tự thì các bạn hướng dẫn giùm!
Xin cảm ơn!

Tôi không biết Excel 2010 có không, nhưng nếu mục đích của bạn chỉ có vậy (xem đường dẫn) thì ta có thể tự thiết kế menu riêng, tạo thành AddIn để dùng cũng được

 

[hoanglocphat]

Tôi không biết Excel 2010 có không, nhưng nếu mục đích của bạn chỉ có vậy (xem đường dẫn) thì ta có thể tự thiết kế menu riêng, tạo thành AddIn để dùng cũng được

Vui lòng nhờ anh giúp đỡ.

 

[ndu96081631]

Vui lòng nhờ anh giúp đỡ.

1> Chèn 1 Module, đặt tên modCBar, với code:

Private Sub Auto_Open()
  BuildBar
  wkbRegulator.Event_Start
End Sub
Private Sub Auto_Close()
  wkbRegulator.Event_Stop
  DelBar
End Sub
Private Sub BuildBar()
  Dim cBar As CommandBar
  DelBar
  Set cBar = Application.CommandBars.Add("Get File Path")
  With cBar
    .Position = msoBarTop
    .Visible = True
    With .Controls.Add(msoControlEdit)
      .Caption = "File Name"
      .Style = msoComboLabel
      .Width = 300
    End With
  End With
End Sub
Private Sub DelBar()
  On Error Resume Next
  Application.CommandBars("Get File Path").Delete
End Sub

2> Chèn 1 module, đặt tên wkbRegulator, với code:

Dim ExlObj As New wkbEvent
Sub Event_Start()
  If ExlObj Is Nothing Then Set ExlObj = New wkbEvent
End Sub
Sub Event_Stop()
  Set ExlObj = Nothing
End Sub

3> Chèn 1 ClassModule, đặt tên wkbEvent, với code:

Public WithEvents ExlApp As Application
Private Sub Class_Initialize()
  Set ExlApp = Application
End Sub
Private Sub Class_Terminate()
  Set ExlApp = Nothing
End Sub
Private Sub ExlApp_WorkbookOpen(ByVal Wb As Workbook)
  Dim cBar As CommandBar
  On Error Resume Next
  Set cBar = Application.CommandBars("Get File Path")
  If Not cBar Is Nothing Then cBar.Controls("File Name").Text = Wb.FullName
End Sub

Save As thành AddIn và kích hoạt AddIn này
---------------------------------
Code chỉ mới viết sơ qua, chắc chắn còn vài thiếu sót, bạn tự chỉnh lại nhé... chẳng hạn có thể gặp vấn đề khi mở nhiều file, chuyển qua lại từ file này sang file kia thì đường dẫn chưa cập nhật.
Bạn tự suy nghĩ xem sẽ thêm code gì nữa (nói chung chỉ cần vọc trong Class, thêm sự kiện là được)

 

[AnhThu-1976]

Save As thành AddIn và kích hoạt AddIn này

Cho em hỏi
Nếu File này không save thành Addin để để vậy thì có sử dụng được không?
Vì em mở FIle lên thì trên Menu không thấy gì hết
Em cảm ơn

 

[ndu96081631]

Cho em hỏi
Nếu File này không save thành Addin để để vậy thì có sử dụng được không?
Vì em mở FIle lên thì trên Menu không thấy gì hết
Em cảm ơn

Mở file bài 4 rồi để đó, tiếp tục mở file khác sẽ.. thấy

 

[AnhThu-1976]

Mở file bài 4 rồi để đó, tiếp tục mở file khác sẽ.. thấy

Em cảm ơn
Nhưng nếu ta mở lúc 2,... file trở lên thì code chỉ cho biết File mở gần nhất .
Giả sử: ta mở 2 File, tên A và B (File A mở trước File B), khi ta chọn File A thì code vẫn hiện File B.

 

[ndu96081631]

Em cảm ơn
Nhưng nếu ta mở lúc 2,... file trở lên thì code chỉ cho biết File mở gần nhất .
Giả sử: ta mở 2 File, tên A và B (File A mở trước File B), khi ta chọn File A thì code vẫn hiện File B.

Bài 4 cũng có đề cập vấn đề này mà bạn:

Code chỉ mới viết sơ qua, chắc chắn còn vài thiếu sót, bạn tự chỉnh lại nhé... chẳng hạn có thể gặp vấn đề khi mở nhiều file, chuyển qua lại từ file này sang file kia thì đường dẫn chưa cập nhật.
Bạn tự suy nghĩ xem sẽ thêm code gì nữa (nói chung chỉ cần vọc trong Class, thêm sự kiện là được)

Muốn thế nào cứ thêm sự kiện vào Class (Chẳng hạn sửa ExlApp_WorkbookOpen thành ExlApp_WorkbookActivate hay gì gì đó)

 

[quanluu]

Các bạn cho tôi hỏi Menu Web Toolbar của Excel 2010 có không?
Tôi đã vào Quick Access Toolbar tìm nhưng không thấy!
---------------
Mục đích của tôi chọn nó là vì
trong excel 2003, khi chọn nó (hình qủa cầu, có 2 mũi tên, 1 chỉ về bên trái, 1 chỉ về bên fải) thì khi ta mở file nào thì nó thể hiện file đó nằm ở ổ đĩa nào/Thư mục nào!
Nếu trong Excel 2010 có menu nào tương tự thì các bạn hướng dẫn giùm!
Xin cảm ơn!

CÓ phải cái này không bạn?
https://support.office.com/en-us/ar...=en-US&rs=en-US&ad=US&ocmsassetID=HA010165901

 

[AnhThu-1976]

CÓ phải cái này không bạn?
https://support.office.com/en-us/ar...=en-US&rs=en-US&ad=US&ocmsassetID=HA010165901

Hình của đường Link nhỏ quá nên không thấy gì!
Cảm ơn bạn!

 

[quanluu]

Hình của đường Link nhỏ quá nên không thấy gì!
Cảm ơn bạn!

Mục đích của bạn là hiện đường dẫn của file? Bạn add "Documnet Location" vào Quịck access Toolbar là đc.
https://www.tekrevue.com/tip/document-location-office-2013-toolbar/

 

[AnhThu-1976]

Mục đích của bạn là hiện đường dẫn của file? Bạn add "Documnet Location" vào Quịck access Toolbar là đc.
https://www.tekrevue.com/tip/document-location-office-2013-toolbar/

Đúng rồi, cảm ơn bạn nhiều