Phím Enter + Viết Tắt Trong Macro EXCEL (1 người xem)

[xuanquy1188]

Chào các bạn,

Ví dụ mình định nghĩa một số từ viết tắt cho EXCEL của mình như sau:

vt - Vũng Tàu
nt - Nha Trang
sg - Tp.Hồ Chí Minh
cm - Cà Mau

Mình tạo 1 inputbox nhập quê quán cho các thành viên. Khi mình đang ở Sheet 1, Chọn Button Nhập Quê Quán và mình gõ vào inputbox là vt thì nó tự nhập vào vt ở Sheet 2 và bên Sheet 2 tự động chữ vt vừa nhập đó chuyển thành chữ Vũng Tàu, gõ vào nt thì nó tự ra là Nha Trang.

Mình chỉ làm được nó nhập vào chữ vt thôi còn không thể ra chữ Vũng Tàu được. Còn mình gõ vào ô là vt sau đó Enter thì nó vẫn ra Vũng Tàu bình thường.

Các bạn có thể chỉ mình đoạn code này được không?

Cho mình hỏi thêm là có lệnh Send Key nhận phím nhập vào từ bàn phím không ạ? Ví dụ như bấm phím Enter chẳng hạn.

Cám ơn vì tất cả!

 

[giaiphap]

VD khi người ta nhập "nvtn" thì nó cho kết quả là "nVũng tàun" phải không bạn? Hay là vẫn giữ nguyên "nvtn"? Chư kể "vtsg"... Một cái nửa là số lượng viết tắt của bạn có nhiều không? khoảng 100000 từ viết tắt không?
Còn vấn đề Send Key thì bạn nghiên cứu cái này thử xem Application.SendKeys

 

[xuanquy1188]

VD khi người ta nhập "nvtn" thì nó cho kết quả là "nVũng tàun" phải không bạn? Hay là vẫn giữ nguyên "nvtn"? Chư kể "vtsg"... Một cái nửa là số lượng viết tắt của bạn có nhiều không? khoảng 100000 từ viết tắt không?
Còn vấn đề Send Key thì bạn nghiên cứu cái này thử xem Application.SendKeys

Nó chỉ hiểu 2 từ viết tắt thôi bạn, viết tắt nhiều quá ko hiểu. Danh mục viết tắt khoảng 40 từ thôi bạn ơi.

Application.SendKey mình cũng không hiểu lắm

 

[phulien1902]

Chào các bạn,

Ví dụ mình định nghĩa một số từ viết tắt cho EXCEL của mình như sau:

vt - Vũng Tàu
nt - Nha Trang
sg - Tp.Hồ Chí Minh
cm - Cà Mau

...............

Bạn tham khảo cách dưới đây xem sao:
http://vforum.vn/diendan/showthread.php?50422-Cach-go-viet-tat-trong-Excel-2003-2007-2010-2013

 

[giaiphap]

Nó chỉ hiểu 2 từ viết tắt thôi bạn, viết tắt nhiều quá ko hiểu. Danh mục viết tắt khoảng 40 từ thôi bạn ơi.

Vậy bạn sửa code lại thế này thử xem.

Sub quequan()
    Dim quequan As String, k As String
    quequan = InputBox("NHAP TEN VIET TAT CUA QUE QUAN VAO BEN DUOI", "NHAP QUE QUAN")
    If quequan <> "" Then
        'Thay chử vt thành Vũng tàu, các chữ khác thay tương tự, Chổ này bạn nên tạo một thủ tục thay thế theo danh sách sẽ dễ xử lý hơn.
        k = Replace(" " & quequan & " ", " vt ", " Vung tau ")
        k = Mid(k, 2, Len(k) - 2)
        Sheet2.Range("B65000").End(xlUp).Offset(1).FormulaR1C1 = k
    End If
End Sub