Chèn nhanh các ký tự đặc biệt trong userform (1 người xem)

[sthdfx]

Các pro cho em xin code để tạo các button mà khi ấn vào nút nào thì tự động sẽ chèn các ký tự đặc biệt kiểu như Ø vào trong textbox hay ô nhập liệu hiện thời ạ. Em xin cảm ơn nhiều.

 

[phucbugis]

Các pro cho em xin code để tạo các button mà khi ấn vào nút nào thì tự động sẽ chèn các ký tự đặc biệt kiểu như Ø vào trong textbox hay ô nhập liệu hiện thời ạ. Em xin cảm ơn nhiều.

cho hỏi,
bạn có bao nhiêu ký tự đặc biệt cần chèn vậy, có thể liệt kê hết ra cho mọi người tham khảo ko ???

 

[Hai Lúa Miền Tây]

Các pro cho em xin code để tạo các button mà khi ấn vào nút nào thì tự động sẽ chèn các ký tự đặc biệt kiểu như Ø vào trong textbox hay ô nhập liệu hiện thời ạ. Em xin cảm ơn nhiều.

Thử như sau:

Sub Test()
      MsgBox Chr(216)
End Sub

Bạn tham khảo thêm http://www.petefreitag.com/cheatsheets/ascii-codes/

Ngoài ra có thể dùng hàm ở Excel để lấy nó.

 

[sthdfx]

Thử như sau:

Sub Test()
      MsgBox Chr(216)
End Sub

Bạn tham khảo thêm http://www.petefreitag.com/cheatsheets/ascii-codes/

Ngoài ra có thể dùng hàm ở Excel để lấy nó.

Ah nhưng bác ơi đây là chèn vào ô đang nhập liệu cơ ạ. Nghĩa là nó insert vào luôn chứ ko phải Message box

 

[Hai Lúa Miền Tây]

Ah nhưng bác ơi đây là chèn vào ô đang nhập liệu cơ ạ. Nghĩa là nó insert vào luôn chứ ko phải Message box

Thì thay vì hiện msgbox thì bạn cho nó vào textbox thôi mà.

Ví dụ TextboxABC.text= chr(216)

...

 

[sthdfx]

Thì thay vì hiện msgbox thì bạn cho nó vào textbox thôi mà.

Ví dụ TextboxABC.text= chr(216)

...

Nghĩa là chèn luôn symbol đó ở vị trí dấu nhấp hiện tại của con chuột chứ ko phải cố định vị trí nào đó mà. Ở đây dùng như bác thì ấn 2 lần cũng ko chèn được 2 ký tự vào, tương tự không chèn được ở ô khác nữa

 

[Hai Lúa Miền Tây]

Nghĩa là chèn luôn symbol đó ở vị trí dấu nhấp hiện tại của con chuột chứ ko phải cố định vị trí nào đó mà. Ở đây dùng như bác thì ấn 2 lần cũng ko chèn được 2 ký tự vào, tương tự không chèn được ở ô khác nữa

Vấn đề là cách viết của bạn như thế nào thôi, tôi chỉ đưa ra thế, phần còn lại bạn phải tư duy thêm tí chứ.

Ví dụ: TextBox1.SelText = Chr(216)

 

[phucbugis]

Nghĩa là chèn luôn symbol đó ở vị trí dấu nhấp hiện tại của con chuột chứ ko phải cố định vị trí nào đó mà. Ở đây dùng như bác thì ấn 2 lần cũng ko chèn được 2 ký tự vào, tương tự không chèn được ở ô khác nữa

- nếu đặt biểu tượng sau cùng của Textbox thì bạn thử code bên dưới.
- để chèn biểu tượng thì bạn Double click vào Textbox và 1 hộp thoại InputBox sẽ xuất hiện.
[GPECODE=vb]
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Arr(5), i As Long, MyPrompt As String 'khai bao' bien' cuc. bo^.
Dim MyTitle As String, Answer

'http://www.petefreitag.com/cheatsheets/ascii-codes/
Arr(1) = Chr(128)
Arr(2) = Chr(131)
Arr(3) = Chr(134)
Arr(4) = Chr(137)
Arr(5) = Chr(153)

For i = 1 To 5
MyPrompt = MyPrompt & vbNewLine & "Chon " & i & " --> " & Arr(i)
Next

MyTitle = "Chen` ky' tu*. dac biet."
Answer = Application.InputBox(Prompt:=MyPrompt, Title:=MyTitle)

If Answer = False Then Exit Sub 'khi dung` Cancel

Me.TextBox1 = Me.TextBox1 & Arr(Answer)
End Sub
[/GPECODE]