Anh ấy đang phát triển ngôn ngữ mới, bác biết thì giúp anh ấy vớiYêu cầu độc lạ - lý do bí ẩn.
Tất nhiên là tôi không biết rồi. Hồi nào đến giờ có ngâm cú bộ gõ đâu.Anh ấy đang phát triển ngôn ngữ mới, bác biết thì giúp anh ấy với
ĔĕŎŏŬŭǏǐ |
Các chữ kia có dấu em thấy không điêu lắm riêng chữ i có dấu nhìn như là đang ..... ấy.
Tha lỗi em nghĩ bậy quá
Phần của anh anh tìm trong thẻ Insert, Symbol có đấy anh,
ĔĕŎŏŬŭǏǐ
Như bạn hieudoanxd đã nói trên, bạn vô Symbol hoặc vô Character Map xem cái Charcode của nó bao nhiêu rồi dùng vba viết thủ tục chèn ký tự đó.
Vd: Sheet1.Range("A1").Value = ChrW(&H14F). --> là chữ ŏ
Cảm ơn các anh nhiều. Quá hay luôn !Đây là mã thập phân Unicode của các chữ đó. Dùng hàm Unichar()
View attachment 274075
Ở Việt Nam không dùng nhưng ở nước khác, ngôn ngữ họ dùng. Hệ điều hành Windows là chuẩn quốc tế mà.Cảm ơn các anh nhiều. Quá hay luôn !
Không biết người ta sáng tạo ra các chữ này để làm gì? Không lẽ họ đoán trước em có nhu cầu về chúng! Thật kỳ lạ.
À, giúp nốt mình thêm dấu thanh nữa được không ạ? Cụ thể là dấu nặng ạ.
Giờ mới biết có bộ gõ này.Cái này bạn cài Tây Nguyên key (phần mềm gõ tiếng dân tộc thiểu số của Tây Nguyên (Jrai, Bahnar) vào là gõ thoải mái
http://c3quangtrung.daklak.edu.vn/tai-nguyen/taynguyenkey-chuong-trinh-ho-tro-go-chu-cac-dan-toc-thieu-so-tay-nguyen
https://vnunikey.com/tay-nguyen-key/
Dùng https://translate.google.com/Chào mọi người, như tiêu đề mọi người chỉ giúp mình cách gõ chữ e, o, u, i có "dấu mũ á" như chữ ă với!
Xin cảm ơn.
View attachment 274074
Thêm 1 cách hay nữa. Cảm ơn bạn nhiều !Dùng https://translate.google.com/
1. Chọn ngôn ngữ vào là Pháp,
2. Chọn "Tiếng Pháp- Viết Tay" (góc dưới, bên phải, gần "1/5.000")
3. Vẽ cái mình muốn.
View attachment 274086
Mấy chữ này bạn định dùng cho việc gì bạn.Chào mọi người, như tiêu đề mọi người chỉ giúp mình cách gõ chữ e, o, u, i có "dấu mũ á" như chữ ă với!
Xin cảm ơn.
View attachment 274074
Tôi không hiểu lắm. Trong tiếng Pháp làm gì có những chữ "kia"? Bảng chữ cái Pháp theo tôi không có các chữ cái "kia".Thêm 1 cách hay nữa. Cảm ơn bạn nhiều !
Mục đích nói ra sợ mọi người cười nên ngại không nói đó bạn.Mấy chữ này bạn định dùng cho việc gì bạn.
Dạ, con cũng không biết tiếng Pháp nhưng làm theo bạn đó hướng dẫn cũng được luôn bác.Tôi không hiểu lắm. Trong tiếng Pháp làm gì có những chữ "kia"? Bảng chữ cái Pháp theo tôi không có các chữ cái "kia".
Tôi không có nhu cầu. Nếu tôi có nhu cầu thì chắc chắn tôi sẽ tìm được cách. Vd. nếu tôi biết ký tự tôi cần có trong bàn phím nào thì tôi bật bàn phím đó lên rồi gõ bình thường thôi. Chẳng hạn tôi không biết tiếng Nga (hồi xưa học chỉ còn vài từ). Nhưng tôi có thể bật bàn phím Nga và gõ bất cứ ký tự tiếng Nga nào. Tôi có khoảng vài chục ký tự cả la tinh và các ký tự đ̣ặc biệt ghi trong tập tin. Khi nào cần thì tôi mở lên rồi copy / paste. Nói chung đã có nhu cầu thì sẽ tìm ra cách.Mục đích nói ra sợ mọi người cười nên ngại không nói đó bạn.
Dạ, con cũng không biết tiếng Pháp nhưng làm theo bạn đó hướng dẫn cũng được luôn bác.
Bác biết cách gõ thành vầy không: ặ => mà đổi chữ "a" thành chữ "e" đó bác.
Viết 15 phút mà trong đó nghĩ tên để đặt cho hàm hết 13 phút.Mục đích nói ra sợ mọi người cười nên ngại không nói đó bạn.
Dạ, con cũng không biết tiếng Pháp nhưng làm theo bạn đó hướng dẫn cũng được luôn bác.
Bác biết cách gõ thành vầy không: ặ => mà đổi chữ "a" thành chữ "e" đó bác.
Function UnknownCode(ByVal sText As String) As String
sText = Replace(sText, "1", ChrW(769))
sText = Replace(sText, "2", ChrW(768))
sText = Replace(sText, "3", ChrW(777))
sText = Replace(sText, "4", ChrW(771))
sText = Replace(sText, "5", ChrW(803))
sText = Replace(sText, "6", ChrW(770))
sText = Replace(sText, "7", ChrW(795))
sText = Replace(sText, "8", ChrW(774))
UnknownCode = sText
End Function
Chiến luôn anh ơi, em đạt được mục đích rồi.Viết 15 phút mà trong đó nghĩ tên để đặt cho hàm hết 13 phút.
View attachment 274337Mã:Function UnknownCode(ByVal sText As String) As String sText = Replace(sText, "1", ChrW(769)) sText = Replace(sText, "2", ChrW(768)) sText = Replace(sText, "3", ChrW(777)) sText = Replace(sText, "4", ChrW(771)) sText = Replace(sText, "5", ChrW(803)) sText = Replace(sText, "6", ChrW(770)) sText = Replace(sText, "7", ChrW(795)) sText = Replace(sText, "8", ChrW(774)) UnknownCode = sText End Function