Cần giúp: Gõ chữ e, chữ o có dấu á như chữ ă

Liên hệ QC

xuongrongdat

Có bao giờ bạn tự hỏi "Tôi là ai?"
Tham gia
30/6/08
Bài viết
1,704
Được thích
1,574
Donate (Momo)
Donate
Nghề nghiệp
Vô tư cùng bạn bè đi khắp nơi.
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.

1649204303051.png
 
Tìm trong kho, có mấy chục ngàn kiểu, xem có nó không?

.
 
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ữ ŏ
 
Đây là mã Unicode của các chữ đó.
1649206944329.png
 
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ữ ŏ

Đây là mã thập phân Unicode của các chữ đó. Dùng hàm Unichar()
View attachment 274075
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 ạ.
 
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
 

File đính kèm

  • TN key.jpg
    TN key.jpg
    89.8 KB · Đọc: 19
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 ạ.
Ở 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à.
Bài đã được tự động gộp:

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
Giờ mới biết có bộ gõ này.
 
Lần chỉnh sửa cuối:
Link tải đây ạ.
Mã:
http://c3quangtrung.daklak.edu.vn/tai-nguyen/taynguyenkey-chuong-trinh-ho-tro-go-chu-cac-dan-toc-thieu-so-tay-nguyen

hoặc tải và xem hướng dẫn sử dụng tại đây ạ
Mã:
https://vnunikey.com/tay-nguyen-key/
 
Mấy chữ này bạn định dùng cho việc gì bạn.
Mục đích nói ra sợ mọi người cười nên ngại không nói đó bạn. :p
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".
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.
 
Mục đích nói ra sợ mọi người cười nên ngại không nói đó bạn. :p

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.
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. :p

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ã:
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
1649744415400.png
 
Viết 15 phút mà trong đó nghĩ tên để đặt cho hàm hết 13 phút.
Mã:
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
View attachment 274337
Chiến luôn anh ơi, em đạt được mục đích rồi.
Cảm ơn anh!

đẹ̆p ghĕ :yeah:
 
Web KT
Back
Top Bottom