|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 chuhaiou 于 2013-2-18 11:34 编辑
If KeyCode = 38 Then TextBox1 = Mid(TextBox1, 1, TextBox1.SelStart) & "↑" & Mid(TextBox1, TextBox1.SelStart + 1, Len(TextBox1))
If KeyCode = 40 Then TextBox1 = Mid(TextBox1, 1, TextBox1.SelStart) & "↓" & Mid(TextBox1, TextBox1.SelStart + 1, Len(TextBox1))
If KeyCode = 39 And TextBox1.SelStart = Len(TextBox1) Then TextBox1 = TextBox1 & "→"
If KeyCode = 37 And TextBox1.SelStart = Len(TextBox1) Then TextBox1 = TextBox1 & "←
LZ能否实现文本中自定义快捷键输入"↑"、 "↓"、"→"、"←"?
|
|