Chuyển chữ Unicode thành chữ Telex

Liên hệ QC
truongvu317

truongvu317

Thành viên tích cực
Tham gia
15/11/10
Bài viết
935
Được thích
678
Giới tính
Nữ
Xin chào toàn thể anh chị em! Vũ đang cần viết một hàm bằng vba (UnicodeToTelex(Chu)) để chuyển dòng chữ :"Hỏi em bao nhiêu tuổi mà sức em phi thường?ahihi" thành dòng chữ "Hoir em bao nhieeu tuooir maf suwcs em phi thuowngf?ahihi"
Nhờ anh chị em viết cho Vũ. Vũ xin cảm ơn!!!!
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
truongvu317 đã viết:
Xin chào toàn thể anh chị em! Vũ đang cần viết một hàm bằng vba (UnicodeToTelex(Chu)) để chuyển dòng chữ :"Hỏi em bao nhiêu tuổi mà sức em phi thường?ahihi" thành dòng chữ "Hoir em bao nhieeu tuooir maf suwcs em phi thuowngf?ahihi"
Nhờ anh chị em viết cho Vũ. Vũ xin cảm ơn!!!!
Nhấp chuột vào đây để mở rộng...
Làm cái này không khó nhưng tốn nhiều thời gian lắm
 
Upvote 0
truongvu317 đã viết:
Xin chào toàn thể anh chị em! Vũ đang cần viết một hàm bằng vba (UnicodeToTelex(Chu)) để chuyển dòng chữ :"Hỏi em bao nhiêu tuổi mà sức em phi thường?ahihi" thành dòng chữ "Hoir em bao nhieeu tuooir maf suwcs em phi thuowngf?ahihi"
Nhờ anh chị em viết cho Vũ. Vũ xin cảm ơn!!!!
Nhấp chuột vào đây để mở rộng...
Có thể link dưới có thể hỗ trợ được:
www.giaiphapexcel.com

Hàm chuyển chữ viết thành cách gõ !

bác nào rảnh viết giùm cái hàm, chuyển chữ viết thành cách gõ VD: A1 = "cộng hòa" khi sử dụng hàm kết quả = "coojng hofa" mình đang cái này, mong các bák giúp giùm p/s: nếu ko có time vui lòng hướng dẫn mình cách viết (rõ ràng một tí, mình gà mờ, cho một đoạn code nhỏ mô phỏng càng tốt)
www.giaiphapexcel.com www.giaiphapexcel.com
 
Upvote 0
truongvu317 đã viết:
Xin chào toàn thể anh chị em! Vũ đang cần viết một hàm bằng vba (UnicodeToTelex(Chu)) để chuyển dòng chữ :"Hỏi em bao nhiêu tuổi mà sức em phi thường?ahihi" thành dòng chữ "Hoir em bao nhieeu tuooir maf suwcs em phi thuowngf?ahihi"
Nhờ anh chị em viết cho Vũ. Vũ xin cảm ơn!!!!
Nhấp chuột vào đây để mở rộng...
Tôi có hàm cho bạn đây:
Rich (BB code): 
Public Function UniToTelex(str As String) As String
Dim Ma As String, MaLuu As String, i As Long

For i = 1 To Len(str)
    MaLuu = Mid(str, i, 1)
    
    Select Case MaLuu
        Case ChrW(7855): Ma = "aws":        Case ChrW(7854): Ma = "Aws"
        Case ChrW(7857): Ma = "awf":        Case ChrW(7856): Ma = "Awf"
        Case ChrW(7859): Ma = "awr":        Case ChrW(7858): Ma = "Awr"
        Case ChrW(7861): Ma = "awx":        Case ChrW(7860): Ma = "Awx"
        Case ChrW(7863): Ma = "awj":        Case ChrW(7862): Ma = "Awj"
        Case ChrW(7845): Ma = "aas":        Case ChrW(7844): Ma = "Aas"
        Case ChrW(7847): Ma = "aaf":        Case ChrW(7846): Ma = "Aaf"
        Case ChrW(7849): Ma = "aar":        Case ChrW(7848): Ma = "Aar"
        Case ChrW(7851): Ma = "aax":        Case ChrW(7850): Ma = "Aax"
        Case ChrW(7853): Ma = "aaj":        Case ChrW(7852): Ma = "Aaj"
        Case ChrW(7871): Ma = "ees":        Case ChrW(7870): Ma = "Ees"
        Case ChrW(7873): Ma = "eef":        Case ChrW(7872): Ma = "Eef"
        Case ChrW(7875): Ma = "eer":        Case ChrW(7874): Ma = "Eer"
        Case ChrW(7877): Ma = "eex":        Case ChrW(7876): Ma = "Eex"
        Case ChrW(7879): Ma = "eej":        Case ChrW(7878): Ma = "Eej"
        Case ChrW(7889): Ma = "oos":        Case ChrW(7888): Ma = "Oos"
        Case ChrW(7891): Ma = "oof":        Case ChrW(7890): Ma = "Oof"
        Case ChrW(7893): Ma = "oor":        Case ChrW(7892): Ma = "Oor"
        Case ChrW(7895): Ma = "oox":        Case ChrW(7894): Ma = "Oox"
        Case ChrW(7897): Ma = "ooj":        Case ChrW(7896): Ma = "Ooj"
        Case ChrW(7899): Ma = "ows":        Case ChrW(7898): Ma = "Ows"
        Case ChrW(7901): Ma = "owf":        Case ChrW(7900): Ma = "Owf"
        Case ChrW(7903): Ma = "owr":        Case ChrW(7902): Ma = "Owr"
        Case ChrW(7905): Ma = "owx":        Case ChrW(7904): Ma = "Owx"
        Case ChrW(7907): Ma = "owj":        Case ChrW(7906): Ma = "Owj"
        Case ChrW(7913): Ma = "uws":        Case ChrW(7912): Ma = "Uws"
        Case ChrW(7915): Ma = "uwf":        Case ChrW(7914): Ma = "Uwf"
        Case ChrW(7917): Ma = "uwr":        Case ChrW(7916): Ma = "Uwr"
        Case ChrW(7919): Ma = "uwx":        Case ChrW(7918): Ma = "Uwx"
        Case ChrW(7921): Ma = "uwj":        Case ChrW(7920): Ma = "Uwj"
        
        Case ChrW(225): Ma = "as":        Case ChrW(193): Ma = "As"
        Case ChrW(224): Ma = "af":        Case ChrW(192): Ma = "Af"
        Case ChrW(7843): Ma = "ar":        Case ChrW(7842): Ma = "Ar"
        Case ChrW(227): Ma = "ax":        Case ChrW(195): Ma = "Ax"
        Case ChrW(7841): Ma = "aj":        Case ChrW(7840): Ma = "Aj"
        Case ChrW(259): Ma = "aw":        Case ChrW(258): Ma = "Aw"
        Case ChrW(226): Ma = "aa":        Case ChrW(194): Ma = "Aa"
        Case ChrW(273): Ma = "dd":        Case ChrW(272): Ma = "Dd"
        Case ChrW(233): Ma = "es":        Case ChrW(201): Ma = "Es"
        Case ChrW(232): Ma = "ef":        Case ChrW(200): Ma = "Ef"
        Case ChrW(7867): Ma = "er":        Case ChrW(7866): Ma = "Er"
        Case ChrW(7869): Ma = "ex":        Case ChrW(7868): Ma = "Ex"
        Case ChrW(7865): Ma = "ej":        Case ChrW(7864): Ma = "Ej"
        Case ChrW(234): Ma = "ee":        Case ChrW(202): Ma = "Ee"
        Case ChrW(237): Ma = "is":        Case ChrW(205): Ma = "Is"
        Case ChrW(236): Ma = "if":        Case ChrW(204): Ma = "If"
        Case ChrW(7881): Ma = "ir":        Case ChrW(7880): Ma = "Ir"
        Case ChrW(297): Ma = "ix":        Case ChrW(296): Ma = "Ix"
        Case ChrW(7883): Ma = "ij":        Case ChrW(7882): Ma = "Ij"
        Case ChrW(243): Ma = "os":        Case ChrW(211): Ma = "Os"
        Case ChrW(242): Ma = "of":        Case ChrW(210): Ma = "Of"
        Case ChrW(7887): Ma = "or":        Case ChrW(7886): Ma = "Or"
        Case ChrW(245): Ma = "ox":        Case ChrW(213): Ma = "Ox"
        Case ChrW(7885): Ma = "oj":        Case ChrW(7884): Ma = "Oj"
        Case ChrW(244): Ma = "oo":        Case ChrW(212): Ma = "Oo"
        Case ChrW(417): Ma = "ow":        Case ChrW(416): Ma = "Ow"
        Case ChrW(250): Ma = "us":        Case ChrW(218): Ma = "Us"
        Case ChrW(249): Ma = "uf":        Case ChrW(217): Ma = "Uf"
        Case ChrW(7911): Ma = "ur":        Case ChrW(7910): Ma = "Ur"
        Case ChrW(361): Ma = "ux":        Case ChrW(360): Ma = "Ux"
        Case ChrW(7909): Ma = "uj":        Case ChrW(7908): Ma = "Uj"
        Case ChrW(432): Ma = "uw":        Case ChrW(431): Ma = "Uw"
        Case ChrW(253): Ma = "ys":        Case ChrW(221): Ma = "Ys"
        Case ChrW(7923): Ma = "yf":        Case ChrW(7922): Ma = "Yf"
        Case ChrW(7927): Ma = "yr":        Case ChrW(7926): Ma = "Yr"
        Case ChrW(7929): Ma = "yx":        Case ChrW(7928): Ma = "Yx"
    End Select
    If Ma = "" Then
        UniToTelex = UniToTelex & MaLuu
    Else
        UniToTelex = UniToTelex & Ma
    End If
    Ma = ""
Next
End Function
 
Upvote 0
Maika8008 đã viết:
Tôi có hàm cho bạn đây:
Rich (BB code): 
Public Function UniToTelex(str As String) As String
Dim Ma As String, MaLuu As String, i As Long

For i = 1 To Len(str)
    MaLuu = Mid(str, i, 1)
   
    Select Case MaLuu
        Case ChrW(7855): Ma = "aws":        Case ChrW(7854): Ma = "Aws"
        Case ChrW(7857): Ma = "awf":        Case ChrW(7856): Ma = "Awf"
        Case ChrW(7859): Ma = "awr":        Case ChrW(7858): Ma = "Awr"
        Case ChrW(7861): Ma = "awx":        Case ChrW(7860): Ma = "Awx"
        Case ChrW(7863): Ma = "awj":        Case ChrW(7862): Ma = "Awj"
        Case ChrW(7845): Ma = "aas":        Case ChrW(7844): Ma = "Aas"
        Case ChrW(7847): Ma = "aaf":        Case ChrW(7846): Ma = "Aaf"
        Case ChrW(7849): Ma = "aar":        Case ChrW(7848): Ma = "Aar"
        Case ChrW(7851): Ma = "aax":        Case ChrW(7850): Ma = "Aax"
        Case ChrW(7853): Ma = "aaj":        Case ChrW(7852): Ma = "Aaj"
        Case ChrW(7871): Ma = "ees":        Case ChrW(7870): Ma = "Ees"
        Case ChrW(7873): Ma = "eef":        Case ChrW(7872): Ma = "Eef"
        Case ChrW(7875): Ma = "eer":        Case ChrW(7874): Ma = "Eer"
        Case ChrW(7877): Ma = "eex":        Case ChrW(7876): Ma = "Eex"
        Case ChrW(7879): Ma = "eej":        Case ChrW(7878): Ma = "Eej"
        Case ChrW(7889): Ma = "oos":        Case ChrW(7888): Ma = "Oos"
        Case ChrW(7891): Ma = "oof":        Case ChrW(7890): Ma = "Oof"
        Case ChrW(7893): Ma = "oor":        Case ChrW(7892): Ma = "Oor"
        Case ChrW(7895): Ma = "oox":        Case ChrW(7894): Ma = "Oox"
        Case ChrW(7897): Ma = "ooj":        Case ChrW(7896): Ma = "Ooj"
        Case ChrW(7899): Ma = "ows":        Case ChrW(7898): Ma = "Ows"
        Case ChrW(7901): Ma = "owf":        Case ChrW(7900): Ma = "Owf"
        Case ChrW(7903): Ma = "owr":        Case ChrW(7902): Ma = "Owr"
        Case ChrW(7905): Ma = "owx":        Case ChrW(7904): Ma = "Owx"
        Case ChrW(7907): Ma = "owj":        Case ChrW(7906): Ma = "Owj"
        Case ChrW(7913): Ma = "uws":        Case ChrW(7912): Ma = "Uws"
        Case ChrW(7915): Ma = "uwf":        Case ChrW(7914): Ma = "Uwf"
        Case ChrW(7917): Ma = "uwr":        Case ChrW(7916): Ma = "Uwr"
        Case ChrW(7919): Ma = "uwx":        Case ChrW(7918): Ma = "Uwx"
        Case ChrW(7921): Ma = "uwj":        Case ChrW(7920): Ma = "Uwj"
       
        Case ChrW(225): Ma = "as":        Case ChrW(193): Ma = "As"
        Case ChrW(224): Ma = "af":        Case ChrW(192): Ma = "Af"
        Case ChrW(7843): Ma = "ar":        Case ChrW(7842): Ma = "Ar"
        Case ChrW(227): Ma = "ax":        Case ChrW(195): Ma = "Ax"
        Case ChrW(7841): Ma = "aj":        Case ChrW(7840): Ma = "Aj"
        Case ChrW(259): Ma = "aw":        Case ChrW(258): Ma = "Aw"
        Case ChrW(226): Ma = "aa":        Case ChrW(194): Ma = "Aa"
        Case ChrW(273): Ma = "dd":        Case ChrW(272): Ma = "Dd"
        Case ChrW(233): Ma = "es":        Case ChrW(201): Ma = "Es"
        Case ChrW(232): Ma = "ef":        Case ChrW(200): Ma = "Ef"
        Case ChrW(7867): Ma = "er":        Case ChrW(7866): Ma = "Er"
        Case ChrW(7869): Ma = "ex":        Case ChrW(7868): Ma = "Ex"
        Case ChrW(7865): Ma = "ej":        Case ChrW(7864): Ma = "Ej"
        Case ChrW(234): Ma = "ee":        Case ChrW(202): Ma = "Ee"
        Case ChrW(237): Ma = "is":        Case ChrW(205): Ma = "Is"
        Case ChrW(236): Ma = "if":        Case ChrW(204): Ma = "If"
        Case ChrW(7881): Ma = "ir":        Case ChrW(7880): Ma = "Ir"
        Case ChrW(297): Ma = "ix":        Case ChrW(296): Ma = "Ix"
        Case ChrW(7883): Ma = "ij":        Case ChrW(7882): Ma = "Ij"
        Case ChrW(243): Ma = "os":        Case ChrW(211): Ma = "Os"
        Case ChrW(242): Ma = "of":        Case ChrW(210): Ma = "Of"
        Case ChrW(7887): Ma = "or":        Case ChrW(7886): Ma = "Or"
        Case ChrW(245): Ma = "ox":        Case ChrW(213): Ma = "Ox"
        Case ChrW(7885): Ma = "oj":        Case ChrW(7884): Ma = "Oj"
        Case ChrW(244): Ma = "oo":        Case ChrW(212): Ma = "Oo"
        Case ChrW(417): Ma = "ow":        Case ChrW(416): Ma = "Ow"
        Case ChrW(250): Ma = "us":        Case ChrW(218): Ma = "Us"
        Case ChrW(249): Ma = "uf":        Case ChrW(217): Ma = "Uf"
        Case ChrW(7911): Ma = "ur":        Case ChrW(7910): Ma = "Ur"
        Case ChrW(361): Ma = "ux":        Case ChrW(360): Ma = "Ux"
        Case ChrW(7909): Ma = "uj":        Case ChrW(7908): Ma = "Uj"
        Case ChrW(432): Ma = "uw":        Case ChrW(431): Ma = "Uw"
        Case ChrW(253): Ma = "ys":        Case ChrW(221): Ma = "Ys"
        Case ChrW(7923): Ma = "yf":        Case ChrW(7922): Ma = "Yf"
        Case ChrW(7927): Ma = "yr":        Case ChrW(7926): Ma = "Yr"
        Case ChrW(7929): Ma = "yx":        Case ChrW(7928): Ma = "Yx"
    End Select
    If Ma = "" Then
        UniToTelex = UniToTelex & MaLuu
    Else
        UniToTelex = UniToTelex & Ma
    End If
    Ma = ""
Next
End Function
Nhấp chuột vào đây để mở rộng...
Mà hàm này thường ứng dụng vào việc gì thế bác?
 
Upvote 0
Code bài #4:
Để tìm được 1 cái Case, code phải làm tất cả các con tính ChrW của các Case(s) trước nó.
Điển hình, để đi được tới 255, code phải đi qua hết các con tính từ 7845 đến 7921

Người có kinh nghiệm viết code Select Case viết thế nào cho các Cases là hằng số hoặc một biến không cần tính lại.

Select Case AscW(MaLuu)
Case 7844:
Case 7845:
...

Chú: code sẽ ngắn hơn nếu bạn tìm ra một số nguyên tắc của Unicode.
Điển hình:
Trên 7000 thì chữ hoa + 1 (bit 1) thành chữ thường. Dưới 255 thì chữ hoa + 32 (bit 32, bit thứ 6) thành chữ thường. Ở giữa đó thì luật có một vài ngoại lệ.
 
Upvote 0
@truongvu317
Bạn tham khảo đoạn code dưới đây có thể tạo hai cách gõ:

Telex("Text", False) dấu được gõ liền kề
Telex("Text", True) dấu được gõ ở cuối từ

JavaScript: 
Function Telex(ByVal Text$, Optional ByVal MarkAtLast As Boolean)
  Dim l, u, k, m, i&, t$
  t = Text
  l = Array("00E0", "00E1", "00E2", "00E3", "00E8", "00E9", "00EA", "00EC", "00ED", "00F2", "00F3", "00F4", "00F5", "00F9", "00FA", "00FD", "0103", "0111", "0129", "0169", "01A1", "01B0", "1EA1", "1EA3", "1EA5", "1EA7", "1EA9", "1EAB", "1EAD", "1EAF", "1EB1", "1EB3", "1EB5", "1EB7", "1EB9", "1EBB", "1EBD", "1EBF", "1EC1", "1EC3", "1EC5", "1EC7", "1EC9", "1ECB", "1ECD", "1ECF", "1ED1", "1ED3", "1ED5", "1ED7", "1ED9", "1EDB", "1EDD", "1EDF", "1EE1", "1EE3", "1EE5", "1EE7", "1EE9", "1EEB", "1EED", "1EEF", "1EF1", "1EF3", "1EF5", "1EF7", "1EF9")
  u = Array("00C0", "00C1", "00C2", "00C3", "00C8", "00C9", "00CA", "00CC", "00CD", "00D2", "00D3", "00D4", "00D5", "00D9", "00DA", "00DD", "0102", "0110", "0128", "0168", "01A0", "01AF", "1EA0", "1EA2", "1EA4", "1EA6", "1EA8", "1EAA", "1EAC", "1EAE", "1EB0", "1EB2", "1EB4", "1EB6", "1EB8", "1EBA", "1EBC", "1EBE", "1EC0", "1EC2", "1EC4", "1EC6", "1EC8", "1ECA", "1ECC", "1ECE", "1ED0", "1ED2", "1ED4", "1ED6", "1ED8", "1EDA", "1EDC", "1EDE", "1EE0", "1EE2", "1EE4", "1EE6", "1EE8", "1EEA", "1EEC", "1EEE", "1EF0", "1EF2", "1EF4", "1EF6", "1EF8")
  k = Array("a", "a", "aa", "aw", "e", "a", "ee", "i", "i", "o", "o", "oo", "o", "u", "u", "y", "aw", "dd", "i", "u", "ow", "uw", "a", "a", "aa", "aa", "aa", "aa", "aa", "aw", "aw", "aw", "aw", "aw", "e", "e", "e", "ee", "ee", "ee", "ee", "ee", "i", "i", "o", "o", "oo", "oo", "oo", "oo", "oo", "ow", "ow", "oo", "oo", "oo", "u", "u", "uw", "uw", "uw", "uw", "uw", "y", "y", "y", "y")
  m = Array("f", "s", "", "", "f", "s", "", "f", "s", "f", "s", "", "x", "f", "s", "s", "", "", "x", "x", "", "", "j", "r", "s", "f", "r", "x", "j", "s", "f", "r", "x", "j", "j", "r", "x", "s", "f", "r", "x", "j", "r", "j", "j", "r", "s", "f", "r", "x", "j", "s", "f", "r", "x", "j", "j", "r", "s", "f", "r", "x", "j", "f", "j", "r", "x")
  If MarkAtLast Then
    Dim r
    Set r = VBA.CreateObject("VBScript.RegExp")
    With r
      .Global = 1
      .IgnoreCase = 0
      .MultiLine = 1
      For i = 0 To UBound(l)
        .Pattern = "[\u" & l(i) & "](\w*)"
        t = r.Replace(t, k(i) & "$1" & m(i))
        .Pattern = "[\u" & u(i) & "](\w*)"
        t = r.Replace(t, UCase(Left(k(i), 1)) & Mid(k(i), 2) & "$1" & m(i))
      Next i
    End With
    Set r = Nothing
  Else
    For i = 0 To UBound(l)
      t = Replace(t, ChrW(CLng("&H" & l(i))), k(i) & m(i))
      t = Replace(t, ChrW(CLng("&H" & u(i))), UCase(Left(k(i), 1)) & Mid(k(i), 2) & m(i))
    Next i
  End If
  Telex = t
End Function
 
Upvote 0
Maika8008 đã viết:
Tôi có hàm cho bạn đây:
Rich (BB code): 
Public Function UniToTelex(str As String) As String
Dim Ma As String, MaLuu As String, i As Long
Nhấp chuột vào đây để mở rộng...
Nếu người ta có unicode tổ hợp thì đừng có mơ nhé. :D

Ví dụ thử chuyển sung sướng quá hóa rồ
Bài đã được tự động gộp:

HeSanbi đã viết:
@truongvu317
Bạn tham khảo đoạn code dưới đây có thể tạo hai cách gõ:

Telex("Text", False) dấu được gõ liền kề
Telex("Text", True) dấu được gõ ở cuối từ
Nhấp chuột vào đây để mở rộng...
Lưu ý y hệt như ở trên.
 
Lần chỉnh sửa cuối:
Upvote 0
Maika8008 đã viết:
Tôi có hàm cho bạn đâ
Nhấp chuột vào đây để mở rộng...
HeSanbi đã viết:
Bạn tham khảo đoạn code dưới đây có thể tạo hai cách gõ:
Nhấp chuột vào đây để mở rộng...
Cảm ơn hai bạn! Mình thấy code chạy đúng như mong muốn của mình rùi!
Bài đã được tự động gộp:

Nhattanktnn đã viết:
Mà hàm này thường ứng dụng vào việc gì thế bác?
Nhấp chuột vào đây để mở rộng...
Mình có một đoạn văn, giờ muốn dán nó vào vba để làm ghi chú, khi dán thì một số chữ biến thành dấu "?". Dùng hàm này để chuyển về dạng telex, sau đó dán vào vba đó.
Bài đã được tự động gộp:

batman1 đã viết:
sung sướng quá hóa rồ
Nhấp chuột vào đây để mở rộng...
Cháu chưa thấy ai đạt được cảnh giới này,hihi
 
Upvote 0
truongvu317 đã viết:
Mình có một đoạn văn, giờ muốn dán nó vào vba để làm ghi chú, khi dán thì một số chữ biến thành dấu "?". Dùng hàm này để chuyển về dạng telex, sau đó dán vào vba đó.
Nhấp chuột vào đây để mở rộng...

Vậy thì bạn cứ đăng bài tạo ghi chú tiếng Việt trong VBE, diễn đàn này có bao nhiêu bài lại không tìm trước cho khỏe

Có add-in này hỗ trợ viết ghi chú tiếng việt và dịch ngược để sửa ghi chú, bạn có thể tham khảo sử dụng:
www.giaiphapexcel.com

VBA_FastCode v2.2 - Công cụ học và viết mã VBA một cách nhanh nhất (27/10/2023)

***** CẬP NHẬT MỚI v2.2 ***** -------------------------------------------------------------------------- Add-in được chia sẻ dưới đây, đó là những gì tôi hiểu biết về VBA và đã viết ra nó. Một Add-in Tools chỉnh sửa code VBA rất đơn giản nhưng có thể giúp các bạn học VBA và viết code nhanh...
www.giaiphapexcel.com www.giaiphapexcel.com

Chữ V giữa W E V A sẽ giúp bạn ghi chú và sửa ghi chú tiếng Việt - font chữ courier new (vietnamese)

Ghi_chi_VBE.gif
 
Upvote 0
truongvu317 đã viết:
Cảm ơn hai bạn! Mình thấy code chạy đúng như mong muốn của mình rùi!
Bài đã được tự động gộp:


Mình có một đoạn văn, giờ muốn dán nó vào vba để làm ghi chú, khi dán thì một số chữ biến thành dấu "?". Dùng hàm này để chuyển về dạng telex, sau đó dán vào vba đó.
Nhấp chuột vào đây để mở rộng...
VBE chấp nhận gõ dấu tiếng Việt bằng font VNI mà nhỉ?
 
Upvote 0
Chia sẻ cách mình đang dùng:

Mình đang sử dung Unikey

Bấm CTRL+SHIFT+F4 gõ chú thích ---> Chu’ thi’ch

‘ dda^y la` chu’ thi’ch ho+i kho’ ddo.c ne^’u la^`n dda^`u swr du.ng....

Bấm CTRL+SHIFT+F1 trả lại cách đánh bình thường
 
Upvote 0
Đề bài chỉ là chuyện nhỏ, thớt đã nói code bài #8 giải quyết được vấn đề của mình rồi thì cứ để đó, đào sâu chả lợi gì.
Công dụng chỉ là chú thích trng VBE. Như vậy mức độ chính xác gần như không quan trọng.

Chú: ở bài #7 tôi chỉ mách cho tác giả bài #4 cách sử dụng Select Case.
 
Upvote 0
VetMini đã viết:
ở bài #7 tôi chỉ mách cho tác giả bài #4 cách sử dụng Select Case.
Nhấp chuột vào đây để mở rộng...
Dùng mảng sẽ làm chậm hơn bác nhỉ.
Bài đã được tự động gộp:

Tống Văn Đệ đã viết:
Chia sẻ cách mình đang dùng:

Mình đang sử dung Unikey

Bấm CTRL+SHIFT+F4 gõ chú thích ---> Chu’ thi’ch

‘ dda^y la` chu’ thi’ch ho+i kho’ ddo.c ne^’u la^`n dda^`u swr du.ng....

Bấm CTRL+SHIFT+F1 trả lại cách đánh bình thường
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn đã chia sẻ!
Mình muốn gõ nội dung unicode xong thì có luôn comment ý mà, vì chữ unicode này đế gán vào biến.
Bài đã được tự động gộp:

HeSanbi đã viết:
Có add-in này hỗ trợ viết ghi chú tiếng việt và dịch ngược để sửa ghi chú, bạn có thể tham khảo sử dụng:
Nhấp chuột vào đây để mở rộng...
Trời, tuyệt vời quá, addin đồ sộ quá.
 
Upvote 0
truongvu317 đã viết:
Dùng mảng sẽ làm chậm hơn bác nhỉ.
Nhấp chuột vào đây để mở rộng...
Tôi đâu biết bạn muốn nói "mảng" gì.
Với người rất giỏi về sử dụng bộ nhớ thì họ có cách dùng mảng rất hiệu quả.

Bài của bạn là dạng bài mapping, code cần chuẩn bị dữ liệu riêng (lưu ý từ "riêng", không phải dữ liệu đầu vào/input) rất nhiều để tạo cái map. Nhanh hay chậm tuỳ theo số lượng dữ liệu đầu vào mà người ta thiết kế giải pháp phù hợp.

Bạn đã chấp nhận code bài #8 đáp ứng được nhu cầu của mình thì đừng nên lôi người khác vào bàn cãi thêm. Mọi thứ đã được "bao kỹ" rồi, muốn gì thì nói thẳng với tác giả, người ngoài không có cửa để bàn. Vả lại, tôi không có hứng để bàn bạc chuyện liên quan đến Nác-sít-sít.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

son0611excel
  • Question
VBA tra cứu hình theo điều kiện
Trả lời
11
Đọc
217
tle2003
T
Salem999999999
Lọc dữ liệu có điều kiện
2
Trả lời
25
Đọc
541
tle2003
T
vuongnlks
Lấy dữ liệu 1 cột cụ thể theo ngày từ nhiều file CSV ứng với mã tương ứng trong cột MA CO PHIEU
Trả lời
1
Đọc
77
BuiQuangThuan
B
V
Hỗ trợ hàm Sumproduct và Subtotal trong GG Sheets
Trả lời
3
Đọc
230
nguyenngocphuongsw
nguyenngocphuongsw
K
Tính tổng có điều kiện
Trả lời
4
Đọc
159
kimson_nb
K
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom