Giúp mình viết code thay thế

[tlthlnmtnn]

VD: Mình có đoạn text ở ô A1 thế này
xczcas-#
dzxcavrs
dfasdas

giờ mình muốn gõ ở bất kỳ ô nào thì nó sẽ lấy text trong ô vừa gõ thay thế vào dấu # ấy
vd: gõ Nguyễn Văn A ở E1 thì kết quả E1 sẽ là
xczcas-Nguyễn Văn A
dzxcavrs
dfasdas

Thanks nhìu

 

[vanle33]

VD: Mình có đoạn text ở ô A1 thế này
xczcas-#
dzxcavrs
dfasdas

giờ mình muốn gõ ở bất kỳ ô nào thì nó sẽ lấy text trong ô vừa gõ thay thế vào dấu # ấy
vd: gõ Nguyễn Văn A ở E1 thì kết quả E1 sẽ là
xczcas-Nguyễn Văn A
dzxcavrs
dfasdas

Thanks nhìu

Bạn thử Tìm kiếm và thay thế dấu # thành chữ "gì" mà bạn muốn chưa?

 

[tlthlnmtnn]

Bạn thử Tìm kiếm và thay thế dấu # thành chữ "gì" mà bạn muốn chưa?

ý bạn là làm thủ công Ctrl + H hử?
thế thì lâu lắm mình mún dùng A1 làm mẫu để nhập cho những cái sau lun nhưng mình không bít code VB nên mới nhờ giúp

À, có thể nâng cao thêm 1 tí đc ko
cột A1:
asdas-#1
zxcx-#2
zdfa-#3
xzcz-#4

VD: Nhập A!B!C!D vào E1
Nó sẽ thay thế và ghi vào E1
asdas-A
zxcx-B
zdfa-C
xzcz-D

Nếu không có #3, #4, nó chỉ làm #1, #2

 

[ndu96081631]

ý bạn là làm thủ công Ctrl + H hử?
thế thì lâu lắm mình mún dùng A1 làm mẫu để nhập cho những cái sau lun nhưng mình không bít code VB nên mới nhờ giúp






À, có thể nâng cao thêm 1 tí đc ko
cột A1:
asdas-#1
zxcx-#2
zdfa-#3
xzcz-#4


VD: Nhập A!B!C!D vào E1
Nó sẽ thay thế và ghi vào E1
asdas-A
zxcx-B
zdfa-C
xzcz-D

Cái ví dụ thứ 2 này đã khác với cái đầu tiên rồi
Nay vầy mai khác, mất công mọi người lắm. Thôi thì cứ đưa file thật của bạn lên đây cho chắc

 

[Quang_Hải]

Cái ví dụ thứ 2 này đã khác với cái đầu tiên rồi
Nay vầy mai khác, mất công mọi người lắm. Thôi thì cứ đưa file thật của bạn lên đây cho chắc

Anh à, mới có tưởng tượng thôi, chưa có gì cụ thể hết nên chưa có file đâu.

 

[tlthlnmtnn]

uhm thì 2 bài ứng dụng 2 cái khác mà, nếu đc giúp mình viết 2 bài lun, không thì mình dùng bài 2 chỉnh sửa cho để áp dụng đc như bài 1

 

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

VD: Mình có đoạn text ở ô A1 thế này
xczcas-#
dzxcavrs
dfasdas

giờ mình muốn gõ ở bất kỳ ô nào thì nó sẽ lấy text trong ô vừa gõ thay thế vào dấu # ấy
vd: gõ Nguyễn Văn A ở E1 thì kết quả E1 sẽ là
xczcas-Nguyễn Văn A
dzxcavrs
dfasdas

Thanks nhìu

Dùng thử code sau:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrHandler
Application.EnableEvents = False
    If Len(Target) >= 1 Then Target.Value = Replace([a1], "#", Target)
ErrHandler:
Application.EnableEvents = True
End Sub

 

[tlthlnmtnn]

Dùng thử code sau:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrHandler
Application.EnableEvents = False
    If Len(Target) >= 1 Then Target.Value = Replace([a1], "#", Target)
ErrHandler:
Application.EnableEvents = True
End Sub

Thanks bạn, nhưng phát sinh chút, bạn thêm giúp mình điều kiện để kích hoạt là có dấu ! đằng trước ô nhập nha, vì mình quên mất điều kiện dừng