nhập ký tự đặc biệt (symbol) trên form

[viettoan]

Xin các sư huynh giúp !
Em đang viết chương trình trắc nghiệm bằng VB Excel bằng cách nhập dữ liệu trên form.
Xin hướng dẫn em viết code của các ký tự đặc biệt ( symbol ) như (anpha, gamma, ôm, bêta, ...) và các ký hiệu của toán học (góc, góc vuông, thuộc, không thuộc,...)
Nghĩa là trên form nhập dữ liệu em có vẽ các nút ứng với các ký tự đặc biệt ( symbol ) khi nhập liệu em nhấp vào ký hiệu nào thì ký hiệu đó xuất hiện bên textbox nhập liệu.
Xin các sư huynh vui lòng giúp đỡ. Em chân thành biết ơn
Chúc các sư huynh hưởng một mùa xuân đầy hạnh phúc

 

[PhanTuHuong]

Bạn thử dùng bảng mã Chr() xem sao?

 

[viettoan]

Bảng mã chr() chỉ hiển thị các ký tự của mã ascii thôi chứ không hiển thị được các ký tự của mã symbol, mong bạn giúp

 

[ptm0412]

Mã ChrW() sẽ có các symbol, nhưng cũng không đầy đủ. Nó thiếu một số ký hiệu toán học, và 1 số ký hiệu khác nữa.

 

[cadafi]

Bạn ơi nếu mình nhớ không lầm thì label đâu cho nhập dữ liệu đâu.
Nên mình mới hỏi các sư huynh là viết code các ký tự symbol là như thế nào ?
Rất mong đc sự giúp đỡ
Chân thành biết ơn

Không phải là label nó cho nhập dữ liệu, mà là ta lấy caption của label để gán vào textbox. Nếu không thích dùng Label thì dùng CommandButton cũng được.

Bạn tham khảo file đính kèm, mình dùng label. Bạn xem thử còn thiếu ký tự nào nữa hay không nhé!

- Ở sheet1, click vào nút [Test Form]
- Trên form, click vào bất kỳ ký tự nào ở dãy bên phải, excel sẽ thêm vào sau chuỗi text của Textbox hiện hành ký tự vừa click đó.

 

[phamduylong]

Bạn ơi nếu mình nhớ không lầm thì label đâu cho nhập dữ liệu đâu.
Nên mình mới hỏi các sư huynh là viết code các ký tự symbol là như thế nào ?
Rất mong đc sự giúp đỡ
Chân thành biết ơn

Các ký tự đặc biệt (symbol) trong các font Unicode rất nhiều. Với những ký hiệu thông thường, chỉ cần dùng các font như Tahoma, Arial, Verdane cũng có. Thường muốn nhập phải dùng hộp thoại Symbol để tìm ký tự cần nhập.
Nhưng nếu biết mã của symbol, các bạn có thể nhập trực tiếp vào textbox trên form hoặc viết vào code.
Ví dụ muốn nhập
Cosφ ≈ Sinω ↣ Cosφ ≥ 2,6
∆=b²-4ac
Bạn phải biết mã của các ký hiệu φ, ≈, ω, ↣, ≥, ∆, ²

Ký hiệu​

|

Mã​

|
φ|

966​

|
ω|

969​

|
≈|

8.776​

|
≥|

8.805​

|
↣|

8.611​

|
∆|

8.710​

|
²|

178​

|

1. Nhập trực tiếp vào Textbox trên Form:
- Các ký tự có ngoài bàn phím nhập bình thường
- Các ký tự đặc biệt nhập bằng cách giữ phím Alt, nhập số mã (bàn phím số). Nhập xong số mã mới nhả phím Alt.

2. Nhập vào code:
Dùng hàm ChrW(mã) để nhập các ký tự đặc biệt. Với 2 ví dụ trên, code để xuất chuỗi ra Label1:

[FONT=Courier New][SIZE=2]Label1 = "Cos" & ChrW(966) & " " & ChrW(8776) & " Sin" & ChrW(969) & " " & ChrW(8611) & " Cos" & ChrW(966) & " " & ChrW(8805) & " 2,6"[/SIZE][/FONT]
[FONT=Courier New][SIZE=2]Label1 = ChrW(8710) & "=b²-4ac"[/SIZE][/FONT]

Các mã <256 như ký tự ², nhập bằng phím Alt+mã, không cần dùng hàm ChrW

 

[ptm0412]

Dựa vào code của Cadafi, nếu thay txtMyText bằng ActiveControl thì có thể gán cho text box đang hiện hành (nếu trên form có nhiều textbox).
Thí dụ thay

Me.txtMyText = Me.txtMyText & Me.Label14.Caption

thành:

Me.ActiveControl = Me.ActiveControl & Me.Label14.Caption

Nhấn contrl + H, find and replace, replace all cho nhanh.

 

[viettoan]

mã ký tự symbol

Xin các sư huynh chỉ giúp cách lấy mã các ký tự trong insert \ symbol \ font symbol để nhập vào form nhập liệu
Ç È É Ê Ë Ì Í Î Ï Þ Û ® q p ^ h $ " Y, ....

cho em hỏi tại sau trong menu \ insert \ symbol \ font symbol \ φ có code là 106 mà sau mã bên dưới lại là 966. Xin hướng dẫn, chân thành biết ơn

Ký hiệu​

|

Mã​

|
φ|

966​

|
ω|

969​

|
≈|

8.776​

|
≥|

8.805​

|
↣|

8.611​

|
∆|

8.710​

|
²|

178​

|

 

[cadafi]

Xin các sư huynh chỉ giúp cách lấy mã các ký tự trong insert \ symbol \ font symbol để nhập vào form nhập liệu
Ç ÈÉÊ ËÌÍ ÎÏ Þ Û®q p ^ h $ " Y, ....

Lưu ý, không nên dùng font Symbol. Hãy dùng font Unicode.
- Bạn insert các ký tự cần chuyển mã vào ô A1 của sheet1 (vào Insert/Symbol --> phần Font chọn (normal text) và click chọn các ký tự cần chuyển.
- Sua đó chép đoạn code này vào Module rồi cho chạy Sub này.

Sub myChrWCode()
For i = 1 To Len(Sheet1.[A1])
Sheet1.Cells(i + 2, 1) = Mid(Sheet1.[A1], i, 1)
Sheet1.Cells(i + 2, 2) = AscW(Mid(Sheet1.[A1], i, 1))
Next i
End Sub

Xem file đính kèm để hiểu thêm nhé!

 

[BNTT]

Xin các sư huynh chỉ giúp cách lấy mã các ký tự trong insert \ symbol \ font symbol để nhập vào form nhập liệu
Ç È É Ê Ë Ì Í Î Ï Þ Û ® q p ^ h $ " Y, ....

cho em hỏi tại sau trong menu \ insert \ symbol \ font symbol \ φ có code là 106 mà sau mã bên dưới lại là 966. Xin hướng dẫn, chân thành biết ơn

Bạn phải phân biệt mã của một loại font chữ nào đó, và mã của hàm ChrW dùng trong lập trình VBA.

Mã 106 của ký tự φ chỉ đúng khi bạn chọn font chữ là Symbol, là một loại font đặc biệt, ký tự φ của font Symbol chính là chữ j trong các font thông thường. Vì thật ra, để nhập ký tự φ này trong các chương trình soạn thảo (khung trả lời này chẳng hạn) thì bạn phải sử dụng Character Map và copy ký tự φ để dán vào mà thôi.

Với hệ font Unicode, thì mã thật sự của ký tự φ là 966, nhưng chúng ta không thể dùng Alt+0966 để nhập được. Để nhập được trong lập trình VBA, người ta sẽ sử dụng hàm ChrW, hàm này có thể truy xuất được mã của những ký tự có code lớn hơn 255.

 

[Po_Pikachu]

Mình giúp bạn 1 List 10,000 ký tự. Tùy bạn chọn nha!
Thân.

 

[phamduylong]

Xin các sư huynh chỉ giúp cách lấy mã các ký tự trong insert \ symbol \ font symbol để nhập vào form nhập liệu
Ç ÈÉÊ ËÌÍ ÎÏ Þ Û®q p ^ h $ " Y, ....
cho em hỏi tại sau trong menu \ insert \ symbol \ font symbol \ φ có code là 106 mà sau mã bên dưới lại là 966. Xin hướng dẫn, chân thành biết ơn

φ của font symbol có mã là 106
Bạn chọn các font thông dụng như Arial, Tahoma, TimeNew Roman, ... thì φ có mã 966. Các font này có rất nhiều ký hiệu toán học (nhiều hơn ký hiệu trong font Symbol) nên nếu không thật sự cần thiết, bạn không cần phải chọn font symbol.

 

[viettoan]

vậy mình muốn viết các ký tự Ç ; È ; É ; Ê ; Ë ; Ì ; Í ; Î ; Ï ; Þ ; Û ; ® ; q ; p ; ^ ; h ; $ ; " ; Y, .... thì mình phải làm như thế nào ? vì mình đang viết chương trinh trắc nghiệm để làm đề tài tốt nghiệp, nên rất cần các ký tự symbol
Rất mong các sư huynh giúp đỡ.
Chân thành biết ơn

 

[BNTT]

vậy mình muốn viết các ký tự Ç ; È ; É ; Ê ; Ë ; Ì ; Í ; Î ; Ï ; Þ ; Û ; ® ; q ; p ; ^ ; h ; $ ; " ; Y, .... thì mình phải làm như thế nào ? vì mình đang viết chương trinh trắc nghiệm để làm đề tài tốt nghiệp, nên rất cần các ký tự symbol
Rất mong các sư huynh giúp đỡ.
Chân thành biết ơn

Bạn gọi chương trình Character Map (nằm trong Accessories | System Tools mà Windows nào cũng có sẵn), chọn font Unicode (Arial, Tahoma, Vernada...), chọn font muốn xài (trong nhóm font Unicode, có tất cả những font bạn liệt kê trên đây), nhấn Select, nhấn Copy, và sau đó dán vào nơi bạn muốn xuất hiện ký tự này.

 

[viettoan]

Không có bạn ơi ! chỉ có một số còn các ký hiệu Ç ; È ; É ; Ê ; Ë ; Ì ; Í ; Î ; Ï ; Þ ; Û ; q ; ^ ; $ ; " , .... thì không có, xin giúp mình với, gần tới ngày nộp rồi.
cám ơn rất nhiều

 

[Po_Pikachu]

Dùng thử thằng này xem có được không?
Symbol.zip
http://giaiphapexcel.com/forum/showthread.php?t=19094
Thân.

 

[BNTT]

Không có bạn ơi ! chỉ có một số còn các ký hiệu Ç ; È ; É ; Ê ; Ë ; Ì ; Í ; Î ; Ï ; Þ ; Û ; q ; ^ ; $ ; " , .... thì không có, xin giúp mình với, gần tới ngày nộp rồi.
cám ơn rất nhiều

Máy bạn xài Windows gì? Nếu là Windows XP thì chắc chắn có. Font Arial, Tahoma, Vernada, Times New Roman, đều có tuốt!

 

[viettoan]

Cám ơn bạn rất nhiều.
Bạn ơi ! còn một số ký tự É ; Ê ; Ë ; Ì ; Í ; Þ ; Û ; ^ ; $ ; " , .... không có trong file symbol bạn gởi, bạn tìm và giúp mình add các ký tự còn thiếu ở trên vào mục công thức toán trong file symbol mà bạn gởi nhé. Cám ơn bạn rất nhiều
Giải pháp excel vô địch