Cách đặt tên sheet trong code của VBA

[minhcong.tckt]

Giả sử rằng em có tên sheet là "trang chủ" thì trong VBA viết: "Trang ch" & ChrW(7911) (người khác viết)
Vậy bây giờ em muốn tên sheet là: menu,...Thực Đơn thì viết ntn???
Cái chữ: ChrW(7911) em ko hiểu cho lắm, nó thay đổi thùy thuộc vào chữ viết thì phải

Mong anh chị giúp đỡ
Chân thành cảm ơn!!!

 

[ChanhTQ@]

Bạn có thể nghiên cứu tiếp, nhưng

mình khuyên bân đừng bao giờ có dự định gán tên các trang tính bằng tiếng Việt có dấu & có khoảng trống trong nó.

(Không nên đem nội quy của diễn đàn vô tên các trang tính; khà, khà,. . . )

 

[nmhung49]

Giả sử rằng em có tên sheet là "trang chủ" thì trong VBA viết: "Trang ch" & ChrW(7911) (người khác viết)
Vậy bây giờ em muốn tên sheet là: menu,...Thực Đơn thì viết ntn???
Cái chữ: ChrW(7911) em ko hiểu cho lắm, nó thay đổi thùy thuộc vào chữ viết thì phải

Mong anh chị giúp đỡ
Chân thành cảm ơn!!!

Nếu bạn thích nghiên cứu thì mình thử ví dụ này xem sao

Sub test()
Dim i As Long
For i = 1 To 65000
Cells(i, 1) = ChrW(i)
Next
End Sub
Sub ktra()
Dim i As Long
For i = 1 To 7
Cells(i, 2) = Asc(Cells(i, 1).Value)
Next
End Sub

 

[minhcong.tckt]

Nếu bạn thích nghiên cứu thì mình thử ví dụ này xem sao

Sub test()
Dim i As Long
For i = 1 To 65000
Cells(i, 1) = ChrW(i)
Next
End Sub
Sub ktra()
Dim i As Long
For i = 1 To 7
Cells(i, 2) = Asc(Cells(i, 1).Value)
Next
End Sub

Bác nói chi tiết hơn cho e được ko???
Em thực hành như thế nào ạ???

 

[nmhung49]

Bác nói chi tiết hơn cho e được ko???
Em thực hành như thế nào ạ???

Mình sẽ hướng dẫn bạn lấy bảng mã chữ Unicode cho bạn trong file mình gửi là hướng dẫn bạn lấy từ "Thực Đơn trong bảng mã Unicode là thể nào từ đó bạn ghep mấy số đó vào sẽ được tên sheet

Sub ktra()
Dim i As Long
For i = 1 To 7
Cells(i, 3) = AscW(Cells(i, 2).Value)
Next
End Sub
Sub doiten()
Sheet1.Name = ChrW(84) & ChrW(104) & ChrW(7921) & ChrW(99) & ChrW(272) & ChrW(417) & ChrW(110)
End Sub

 

[huuthang_bd]

Giả sử rằng em có tên sheet là "trang chủ" thì trong VBA viết: "Trang ch" & ChrW(7911) (người khác viết)
Vậy bây giờ em muốn tên sheet là: menu,...Thực Đơn thì viết ntn???
Cái chữ: ChrW(7911) em ko hiểu cho lắm, nó thay đổi thùy thuộc vào chữ viết thì phải

Mong anh chị giúp đỡ
Chân thành cảm ơn!!!

Tặng bạn hàm này. Xem cách dùng trong file nhé.

Function CodeStr(MyStr As String) As String
Dim Str As String, CStart As Integer, CCount As Integer, Status As Boolean
Str = "-7842-7843-7841-259-7855-7857-7859-7861-7863-7845-7847-7849-7851-7853-273-7867-7869-7865-7871-7873-7875-7877-7879-7881-297-7883-7887-7885-7889-7891-7893-7895-7897-417-7899-7901-7903-7905-7907-7911-361-7909-432-7913-7915-7917-7919-7921-7923-7927-7929-7925-7840-258-7854-7856-7858-7860-7862-7844-7846-7848-7850-7852-272-7866-7868-7864-7870-7872-7874-7876-7878-7880-296-7882-7886-7884-7888-7890-7892-7894-7896-416-7898-7900-7902-7904-7906-7910-360-7908-431-7912-7914-7916-7918-7920-7922-7926-7928-7924-10-"
For i = 1 To Len(MyStr)
If InStr(Str, "-" & AscW(Mid(MyStr, i, 1)) & "-") = 0 Then
    If Not Status Then
        CStart = i:        Status = True
    End If
    CCount = CCount + 1
Else
    If Status Then CodeStr = CodeStr & IIf(CodeStr = "", "", " & ") & """" & Mid(MyStr, CStart, CCount) & """"
    Status = False
    CCount = 0
    CodeStr = CodeStr & IIf(CodeStr = "", "", " & ") & "ChrW(" & AscW(Mid(MyStr, i, 1)) & ")"
End If
Next
If Status Then CodeStr = CodeStr & IIf(CodeStr = "", "", " & ") & """" & Mid(MyStr, CStart, CCount) & """"
End Function