thuyyeu99
Trùm Nhiều Chuyện
- Tham gia
- 6/6/08
- Bài viết
- 1,729
- Được thích
- 875
Em có đọc được bài này chỉ bắt được sự kiện khi gõ bàn phím mà không biết cách láy ký tự Unicode.
Anh chị nào rành Api có thể hướng dẫn em lấy được ký tự Unicode được không Ah
http://www.giaiphapexcel.com/diendan/threads/bắt-sự-kiện-keypressed-trên-cell.37919/
Select Case keyCode
Case vbKey0 To vbKey9, vbKeyUp, vbKeyDown, vbKeyLeft, vbKeyRight, vbKeyF2, _
vbKeyReturn, vbKeyEscape, vbKeyBack, vbKeyDelete, vbKeyHome, vbKeyEnd, _
vbKeyTab
Cell_OnKeyDown = 0
Case vbKeyShift
Debug.Print "vbKeyShift"
Case Else
Cell_OnKeyDown = -1
Exit Function
End Select
Cám ơn mọi người quan tâm
Anh chị nào rành Api có thể hướng dẫn em lấy được ký tự Unicode được không Ah
http://www.giaiphapexcel.com/diendan/threads/bắt-sự-kiện-keypressed-trên-cell.37919/
Select Case keyCode
Case vbKey0 To vbKey9, vbKeyUp, vbKeyDown, vbKeyLeft, vbKeyRight, vbKeyF2, _
vbKeyReturn, vbKeyEscape, vbKeyBack, vbKeyDelete, vbKeyHome, vbKeyEnd, _
vbKeyTab
Cell_OnKeyDown = 0
Case vbKeyShift
Debug.Print "vbKeyShift"
Case Else
Cell_OnKeyDown = -1
Exit Function
End Select
Cám ơn mọi người quan tâm
