Cần giúp đỡ về xử lý tiếng việt trong Menu

[148btx]

Tôi muốn tạo thêm Menu nhưng không biết xử lý tiếng việt có dấu, có bạn nào chỉ giúp tôi không ? ví dụ tôi có thêm Menu là tiếng việt, trong đó có thêm: viết tiếng việt 1, tiếng việt 2

Option Explicit

Sub Autpen()

Dim Cap(1 To 5)
Dim Mac(1 To 5)
Dim MenuName As String

MenuName = "&Tiếng Việt"

Cap(1) = "tiếng việt 1"
Mac(1) = "TV1"
Cap(2) = "tiếng việt 2"
Mac(2) = "TV2"

On Error Resume Next

MenuBars(xlWorksheet).Menus(MenuName).Delete


MenuBars(xlWorksheet).Menus.Add Caption:=MenuName, before:="Help"


With MenuBars(xlWorksheet).Menus(MenuName).MenuItems
.Add Caption:=Cap(1), OnAction:=Mac(1)
.Add Caption:=Cap(2), OnAction:=Mac(2)
End With
End Sub

Sub Auto_Close()
Dim MenuName As String
MenuName = "&Tiếng Việt"

On Error Resume Next
MenuBars(xlWorksheet).Menus(MenuName).Delete
End Sub

 

[levanduyet]

Tôi muốn tạo thêm Menu nhưng không biết xử lý tiếng việt có dấu, có bạn nào chỉ giúp tôi không ? ví dụ tôi có thêm Menu là tiếng việt, trong đó có thêm: viết tiếng việt 1, tiếng việt 2

Option Explicit

Sub Autpen()

Dim Cap(1 To 5)
Dim Mac(1 To 5)
Dim MenuName As String

MenuName = "&Tiếng Việt"

Cap(1) = "tiếng việt 1"
Mac(1) = "TV1"
Cap(2) = "tiếng việt 2"
Mac(2) = "TV2"

On Error Resume Next

MenuBars(xlWorksheet).Menus(MenuName).Delete


MenuBars(xlWorksheet).Menus.Add Caption:=MenuName, before:="Help"


With MenuBars(xlWorksheet).Menus(MenuName).MenuItems
.Add Caption:=Cap(1), OnAction:=Mac(1)
.Add Caption:=Cap(2), OnAction:=Mac(2)
End With
End Sub

Sub Auto_Close()
Dim MenuName As String
MenuName = "&Tiếng Việt"

On Error Resume Next
MenuBars(xlWorksheet).Menus(MenuName).Delete
End Sub

Bạn có thể nhập menu vào một ô nào đó. Ví dụ bạn tạo một sheet với tên Menu. Sau đó ở ô A1 bạn nhập tiếng việt 1; ô A2 bạn nhập TV1,...
Sau đó bạn có thể viết đoạn code trên lại như sau:

Mac(1) = Application.ActiveWorkbook.Worksheets("Menu").Cells(1,1).Value
Cap(2) =

Bạn có thể tham khảo bài về tạo menu.

Lê Văn Duyệt

 

[148btx]

Xin hỏi bác Lê Văn Duyệt thêm một lần nữa, em muốn tạo các biểu tượng (Face) cho mỗi Sub Menu thì phải làm thế nào ? Dim FaceId(1 To 5) ? Cách chỉ dẫn của bác rất hiệu quả, tiếng việt hiển thị tốt. Cảm ơn bác trước.

 

[levanduyet]

Xin hỏi bác Lê Văn Duyệt thêm một lần nữa, em muốn tạo các biểu tượng (Face) cho mỗi Sub Menu thì phải làm thế nào ? Dim FaceId(1 To 5) ? Cách chỉ dẫn của bác rất hiệu quả, tiếng việt hiển thị tốt. Cảm ơn bác trước.

Bạn tham khảo bài viết về Menu có phần bạn cần.

Lê Văn Duyệt

 

[PhanTuHuong]

Bác Duyệt ơi, nguồn FaceId kiếm như thế nào nhỉ ?

 

[lachinhan]

Bác Duyệt ơi, nguồn FaceId kiếm như thế nào nhỉ ?

nguồn nè Phan Tu Huong oi.

http://www.giaiphapexcel.com/forum/showthread.php?t=57&page=2

tải về BtnFace và CBList
có đầy đũ mả của FaceId