Nhập ô nguồn kết quả cũng ở ô nguồn

[duong_nam_dao]

Cho em hỏi câu này, em muốn nhập chữ dg ở ô A1, làm cách nào để ra kết quả là Dương cũng ở ô A1 sau khi ấn enter, giống như Auto Correct ấy. Mong các bác giúp đỡ !

 

[ndu96081631]

Cho em hỏi câu này, em muốn nhập chữ dg ở ô A1, làm cách nào để ra kết quả là Dương cũng ở ô A1 sau khi ấn enter, giống như Auto Correct ấy. Mong các bác giúp đỡ !

Thế sao bạn không dùng Auto Correct? Ý bạn là sao? Muốn dùng VBA à?

 

[duong_nam_dao]

Em muốn dùng VBA, nếu dùng Auto Correct thì không biết phải sao lưu như thế nào, vì em hay phải thay đổi máy tính. Bác xem giúp em

 

[hoang_B]

Vậy có thể dùng bảng gõ tắt cửa Unikey hoặc Vietkey cũng có thể mang đi được mà!
Bạn vào thư mục cài VietKey sẽ có file tên là vknt.aut, file này chứa toàn bộ các chữ viết phím tắt của bạn đó. Bạn có thể sữa trực tiếp hoặc mở Vietkey ra, tìm tab tùy chọn, rồi nhấn vào nút "Định nghĩa gõ tắt" nạp lại file này, hoặc nhập mới tùy bạn.
Còn trong Unikey cũng gần tương như vậy, nhưng file là ukmacro.txt. Bạn mở Unikey ra tìm trong phần "mở rộng" nhấp nút "Bảng gõ tắt". Và làm các thao tác như trên!

Còn VBA cũng được nhưng không thể nhập nhiều chữ như các phần mềm được đâu! Bạn tìm hiểu đi sẽ hay hơn.

 

[ndu96081631]

Em muốn dùng VBA, nếu dùng Auto Correct thì không biết phải sao lưu như thế nào, vì em hay phải thay đổi máy tính. Bác xem giúp em

Sao lưu được mà bạn! Thử tìm đến đường dần:

%UserProfile%\Application Data\Microsoft\Office

Copy file MSO1033.acl cho vào USB rồi mang sang máy tính khác thử xem

 

[parisoke]

Bạn dùng sự kiện Worksheet_change

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Cells(1, 1), Target) Is Nothing Then
If Cells(1, 1).Text = "dg" Then
Cells(1, 1).Text = "Duong"
End If
End If
End Sub

 

[ndu96081631]

Bạn dùng sự kiện Worksheet_change

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Cells(1, 1), Target) Is Nothing Then
If Cells(1, 1).Text = "dg" Then
Cells(1, 1).Text = "Duong"
End If
End If
End Sub

Người ta có phải chỉ Correct 1 chử Dương đâu mà bạn làm vậy chứ... Hic...

 

[duong_nam_dao]

Rất cám ơn các bác đã trả lời em. Em chỉ có khoảng 15 chữ thôi, liệu có cách nào không ngoài cách đó. Cách trên thì em làm được nhưng tài liệu của em nhiều người dùng nhưng không biết làm cách đó. Mong tin các bác

 

[ndu96081631]

Rất cám ơn các bác đã trả lời em. Em chỉ có khoảng 15 chữ thôi, liệu có cách nào không ngoài cách đó. Cách trên thì em làm được nhưng tài liệu của em nhiều người dùng nhưng không biết làm cách đó. Mong tin các bác

Còn 1 cách nữa là chạy file SUPPORT.DOT trong đường dẩn:

C:\Program Files\Microsoft Office\OFFICE11\MACROS

Tự nhiên bên trong file này sẽ có chức năng backup!
Có điều cách này khó hơn nhiều (vì cài đầy đủ bộ Office thì bạn mới nhìn thấy thư mục MACROS)

 

[anhtuan1066]

Rất cám ơn các bác đã trả lời em. Em chỉ có khoảng 15 chữ thôi, liệu có cách nào không ngoài cách đó. Cách trên thì em làm được nhưng tài liệu của em nhiều người dùng nhưng không biết làm cách đó. Mong tin các bác

Nếu bạn chỉ dùng với số lượng từ giới hạn thì vui lòng gữi lên đây bảng tham chiếu (đại khái cho biết chử nào tương ứng với chử nào) vậy là thiết lập code dùng riêng cho bạn dc rồi

 

[duong_nam_dao]

Em gửi file và các chữ em cần. Mong các bác giúp đỡ. Chờ tin các bác

 

[SA_DQ]

Một trong các cách: Đặt 15 tên

Em gửi file và các chữ em cần. Mong các bác giúp đỡ.

Bạn vô menu Insert-> Name-> Define. . .
Trong CS (cửa sổ) Names in workbook: ta nhập chữ 'T'
trong CS Refers to: ta nhập từ 'Toán' & bấm nút 'Add'
Tương tự như vậy với các từ khác;
Muốn ô nào hiện chữ 'Lý' ta chỉ cần nhập =L & sau khi {ENTER} sẽ có chữ cần cho bạn.
Bạn tự tìm những hạn chế của phương pháp, nha!

 

[ndu96081631]

Em gửi file và các chữ em cần. Mong các bác giúp đỡ. Chờ tin các bác

Ví dụ 1 code về Auto Correct cho bạn
Nhớ lần sau gữi file lên thì mở hết pass nhé, cả pass VBA... tôi làm biếng crack vụ này lắm...
Thông thường với những loại file khóa pass tôi không xem luôn, vì khóa pass đựoc tức khỏi cần ngừoi khác giúp luôn

 

[ndu96081631]

Bạn vô menu Insert-> Name-> Define. . .
Trong CS (cửa sổ) Names in workbook: ta nhập chữ 'T'
trong CS Refers to: ta nhập từ 'Toán' & bấm nút 'Add'
Tương tự như vậy với các từ khác;
Muốn ô nào hiện chữ 'Lý' ta chỉ cần nhập =L & sau khi {ENTER} sẽ có chữ cần cho bạn.
Bạn tự tìm những hạn chế của phương pháp, nha!

Đây cũng là cách hay... nhưng có cái bất tiện... làm 1 thời gian thì bảng tính tràn ngập 1 đóng công thức sư phụ ơi

 

[duong_nam_dao]

Xin lỗi các bác em quên mất chưa mở pass. Em mới tập mà các bác thông cảm. Rất cám ơn các bác đã giúp em