Cần giúp hàm tìm và thay ký tự cũ bằng các ký tự mới cho trước !

[xivcat]

Mình đang có một vướng mắc giả sử nhập vào 1 chuỗi ký tự rồi thay thế các ký tự trong chuỗi đó theo 1 nguyên tắc thay cho ký tự A trong cũ bằng B thì B sẽ được thay tiếp bằng C , C lại được thay tiếp bằng D , cho tới ký tự Z lại được thay thế bằng A... Như thế khi nhập vào một chuỗi "ABC DEF" chẳng hạn thì sẽ tạo thành chuỗi ký tự "ZAB CDE" với khỏang trắng vẫn giữ nguyên.Ngòai ra nếu bạn nào biết cách thực hiện công việc như trên trên Visual Basic thì xin cho mình code để kham khảo.
Mong các bạn giúp đỡ mình !

 

[viehoai]

Mình đang có một vướng mắc giả sử nhập vào 1 chuỗi ký tự rồi thay thế các ký tự trong chuỗi đó theo 1 nguyên tắc thay cho ký tự A trong cũ bằng B thì B sẽ được thay tiếp bằng C , C lại được thay tiếp bằng D , cho tới ký tự Z lại được thay thế bằng A... Như thế khi nhập vào một chuỗi "ABC DEF" chẳng hạn thì sẽ tạo thành chuỗi ký tự "ZAB CDE" với khỏang trắng vẫn giữ nguyên.Ngòai ra nếu bạn nào biết cách thực hiện công việc như trên trên Visual Basic thì xin cho mình code để kham khảo.
Mong các bạn giúp đỡ mình !

Tốt nhất bạn đưa File lên và nêu yêu cầu cụ thể trong File mọi người mới giúp được

 

[ptm0412]

Sub abc()
Dim MyStr As String, ResultStr As String, Tmp As String, i As Long
MyStr = UCase(InputBox("Cho chuoi"))
For i = 1 To Len(MyStr)
    Tmp = Mid(MyStr, i, 1)
    ResultStr = ResultStr & IIf(Tmp = " ", " ", Chr(Asc(Tmp) + 1 - IIf(Tmp = "Z", 26, 0)))
Next
MsgBox MyStr & Chr(10) & ResultStr
End Sub

 

[SA_DQ]

Chắc bạn đang muốn mã hoá các câu chữ của mình, có 1 cách khác xíu với PTM 0412:

Bạn lập bảng gồm 2 cột, như

Chữ | Mã
A|B
B|C
C|D
. .|. .
Z|A

Việc này thích hợp để tra bằng VLOOKUP() hay HLOOKUP();
& hơn nữa, khi cần đổi khoá mật mã (như nhiều người vẫn nói) ta cũng dễ dàng như lua cháo mà thôi.

Chúc bạn thành công!