chuyển chữ thường sang chữ HOA ngoài Unikey thì có cách gì không

[Dauthivan]

Em chuyển chữ thường sang chữ Hoa trong Word (phông Times New Romans), em xin hỏi ngoài các dùng Unikey ra còn có cách gì không ah? Văn bản của em có nhiều đoạn cần chuyển mỗi lần dùng Unikey em lại phải copy vào bộ đệm chuyển đổi rồi lại dán ngược lại rất lâu. Em xin cảm ơn mọi người

 

[nghiaphuc]

Em chuyển chữ thường sang chữ Hoa trong Word (phông Times New Romans), em xin hỏi ngoài các dùng Unikey ra còn có cách gì không ah? Văn bản của em có nhiều đoạn cần chuyển mỗi lần dùng Unikey em lại phải copy vào bộ đệm chuyển đổi rồi lại dán ngược lại rất lâu. Em xin cảm ơn mọi người

Bạn vào Google, nhập từ khóa "Vietkey Office" để tìm, download phần mềm này về và tự khám phá nhé.

 

[tr hoan]

Em chuyển chữ thường sang chữ Hoa trong Word (phông Times New Romans), em xin hỏi ngoài các dùng Unikey ra còn có cách gì không ah? Văn bản của em có nhiều đoạn cần chuyển mỗi lần dùng Unikey em lại phải copy vào bộ đệm chuyển đổi rồi lại dán ngược lại rất lâu. Em xin cảm ơn mọi người

bạn muốn chuyển đổi chữ thường sang chữ hoa trong word mà font bạn dùng là unicode thì bạn sử dụng tô đen văn bản bạn muốn rồi dùng shìt+F3 là được và ngược lại.
Chúc bạn thành công

 

[nghiaphuc]

bạn muốn chuyển đổi chữ thường sang chữ hoa trong word mà font bạn dùng là unicode thì bạn sử dụng tô đen văn bản bạn muốn rồi dùng shìt+F3 là được và ngược lại.
Chúc bạn thành công

Bạn đã thử chưa đấy? Nếu đơn giản như vậy thì người ta hỏi làm gì? Bạn thử nhập chuỗi "giải pháp excel – công cụ tuyệt vời của bạn", chọn khối văn bản này và nhấn Shift+F3 một vài lần xem nó ra cái gì nhé. Kết quả nó ra như vầy nè: "GIảI PHÁP EXCEL – CÔNG Cụ TUYệT VờI CủA BạN".

 

[sealand]

Bạn dùng hàm sau rồi kết hợp với sự kiện sheet_change để đổi. Đây là hàm mình dựa vào code của thày Phạm Duy Long thành viên GPE đã quá cố để phát triển:

Option Explicit
Const smal = "224;225;226;227;232;233;234;236;237;242;243;244;245;249;250;253;259;297;361;417;432;7841;7843;7845;7847;7849;7851;7853;7855;7857;7859;7861;7863;7865;7867;7869;7871;7873;7875;7877;7879;7881;7883;7885;7887;7889;7891;7893;7895;7897;7899;7901;7903;7905;7907;7909;7911;7913;7915;7917;7919;7921;7923;7925;7927;7929"
Const slag = "192;193;194;195;200;201;202;204;205;210;211;212;213;217;218;221;258;296;360;416;431;7840;7842;7844;7846;7848;7850;7852;7854;7856;7858;7860;7862;7864;7866;7868;7870;7872;7874;7876;7878;7880;7882;7884;7886;7888;7890;7892;7894;7896;7898;7900;7902;7904;7906;7908;7910;7912;7914;7916;7918;7920;7922;7924;7926;7928"
'------------------------------------
Function UcaseUNI(Ch As String)
Dim i, j, kytu
Dim ch1, ch2
ch1 = Split(smal, ";")
ch2 = Split(slag, ";")
Ch = Trim(Ch)
For i = 1 To Len(Ch)
kytu = Mid(Ch, i, 1)
For j = 0 To UBound(ch1) - 1
If kytu = ChrW(ch1(j)) Then
kytu = ChrW(ch2(j))
Exit For
Else
kytu = UCase(kytu)
End If
Next
UcaseUNI = UcaseUNI & kytu
Next
End Function

Ví dụ như cột B của sheet1 trong file

 

[ndu96081631]

Bạn dùng hàm sau rồi kết hợp với sự kiện sheet_change để đổi. Đây là hàm mình dựa vào code của thày Phạm Duy Long thành viên GPE đã quá cố để phát triển:

Option Explicit
Const smal = "224;225;226;227;232;233;234;236;237;242;243;244;245;249;250;253;259;297;361;417;432;7841;7843;7845;7847;7849;7851;7853;7855;7857;7859;7861;7863;7865;7867;7869;7871;7873;7875;7877;7879;7881;7883;7885;7887;7889;7891;7893;7895;7897;7899;7901;7903;7905;7907;7909;7911;7913;7915;7917;7919;7921;7923;7925;7927;7929"
Const slag = "192;193;194;195;200;201;202;204;205;210;211;212;213;217;218;221;258;296;360;416;431;7840;7842;7844;7846;7848;7850;7852;7854;7856;7858;7860;7862;7864;7866;7868;7870;7872;7874;7876;7878;7880;7882;7884;7886;7888;7890;7892;7894;7896;7898;7900;7902;7904;7906;7908;7910;7912;7914;7916;7918;7920;7922;7924;7926;7928"
'------------------------------------
Function UcaseUNI(Ch As String)
Dim i, j, kytu
Dim ch1, ch2
ch1 = Split(smal, ";")
ch2 = Split(slag, ";")
Ch = Trim(Ch)
For i = 1 To Len(Ch)
kytu = Mid(Ch, i, 1)
For j = 0 To UBound(ch1) - 1
If kytu = ChrW(ch1(j)) Then
kytu = ChrW(ch2(j))
Exit For
Else
kytu = UCase(kytu)
End If
Next
UcaseUNI = UcaseUNI & kytu
Next
End Function

Ví dụ như cột B của sheet1 trong file

Đang nói trong Word mà anh!
Vã lại, em nghĩ hàm đâu có phức tạp thế... vầy cũng được vậy:

Function UcaseUNI(Ch As String)
  UcaseUNI = UCase(Ch)
End Function

 

[qman_ha]

Bạn đã thử chưa đấy? Nếu đơn giản như vậy thì người ta hỏi làm gì? Bạn thử nhập chuỗi "giải pháp excel – công cụ tuyệt vời của bạn", chọn khối văn bản này và nhấn Shift+F3 một vài lần xem nó ra cái gì nhé. Kết quả nó ra như vầy nè: "GIảI PHÁP EXCEL – CÔNG Cụ TUYệT VờI CủA BạN".

Đã thử rồi và thấy có 3 trường hợp:
1. giải pháp excel –công cụ tuyệt vời của bạn
2. Giải Pháp Excel –Công Cụ Tuyệt Vời Của Bạn
3. GIẢI PHÁP EXCEL –CÔNG CỤ TUYỆT VỜI CỦA BẠN