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

[truongvu317]

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!!!!

 

[bomberman211]

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!!!!

Làm cái này không khó nhưng tốn nhiều thời gian lắm

 

[quick87]

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!!!!

Có thể link dưới có thể hỗ trợ được:

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

 

[Maika8008]

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!!!!

Tôi có hàm cho bạn đây:

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

 

[Nhattanktnn]

Tôi có hàm cho bạn đây:

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

Mà hàm này thường ứng dụng vào việc gì thế bác?

 

[Maika8008]

Mà hàm này thường ứng dụng vào việc gì thế bác?

Tôi biết đâu được. Bạn phải hỏi thớt chứ!

 

[VetMini]

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ệ.

 

[HeSanbi]

@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ừ

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

 

[batman1]

Tôi có hàm cho bạn đây:

Public Function UniToTelex(str As String) As String
Dim Ma As String, MaLuu As String, i As Long

Nếu người ta có unicode tổ hợp thì đừng có mơ nhé.

Ví dụ thử chuyển sung sướng quá hóa rồ

Bài đã được tự động gộp: 1/2/21

@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ừ

Lưu ý y hệt như ở trên.

 

[truongvu317]

Tôi có hàm cho bạn đâ

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

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: 1/2/21

Mà hàm này thường ứng dụng vào việc gì thế bác?

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: 1/2/21

sung sướng quá hóa rồ

Cháu chưa thấy ai đạt được cảnh giới này,hihi

 

[HeSanbi]

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 đó.

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:

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

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)

 

[Maika8008]

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: 1/2/21

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 đó.

VBE chấp nhận gõ dấu tiếng Việt bằng font VNI mà nhỉ?

 

[TongDe]

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

 

[VetMini]

Đề 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.

 

[truongvu317]

ở bài #7 tôi chỉ mách cho tác giả bài #4 cách sử dụng Select Case.

Dùng mảng sẽ làm chậm hơn bác nhỉ.

Bài đã được tự động gộp: 2/2/21

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

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: 2/2/21

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:

Trời, tuyệt vời quá, addin đồ sộ quá.

 

[VetMini]

Dùng mảng sẽ làm chậm hơn bác nhỉ.

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.