Cần viết hộ code VBA replace ô cell chọn và ... (1 người xem)

[alibaba2209]

1. Nhờ các bạn viết dùm code VBA replace những ô cell được chọn
2. mình muốn code vbaChọn ô cell - kick hoạt code 1 hộp thoại hiện lên và hỏi xóa kí tự phía đầu hay xóa kí tự phía cuối, chọn xóa cuối nó sẽ hỏi tiếp là xóa mấy kí tự
3. mình muốn code vba
Chọn ô cell - kick hoạt code 1 hộp thoại hiện lên và hỏi replace kí tự phía đầu hay replace kí tự phía cuối, chọn replace cuối nó sẽ hỏi tiếp là replace mấy kí tự, và kí tự muốn replace "những kí tự muốn replace là những kí tự giống nhau"
4. mình muốn code vba
Chọn ô cell - kick hoạt code 1 hộp thoại hiện lên và hỏi thay kí tự phía đầu hay thay kí tự phía cuối, chọn thay cuối nó sẽ hỏi tiếp là thay mấy kí tự, và điền kí tự muốn thay "VD: thay 3 kí tự cuối của nhưng ô cell được chọn và 3 kí tự đó ở các ô cell ko giống nhau"

 

[alibaba2209]

cần giúp đỡ mọi các anh ơi!

 

[alibaba2209]

mấy cái này em cũng hay dùng phục vụ công việc! móng các bác giúp đỡ..

 

[alibaba2209]

No thik khách!
.........................

 

[dovanhoc84]

Tôi không rõ tiếng anh của bạn nên tôi hỏi sự khác nhau giữa từ tiếng anh "Replace" và tiếng việt từ "Thay" thì khác gì nhau à bạn?

Thêm nữa là thay cả 1 vùng phía phải vào vùng chọn?

 

[alibaba2209]

Tôi không rõ tiếng anh của bạn nên tôi hỏi sự khác nhau giữa từ tiếng anh "Replace" và tiếng việt từ "Thay" thì khác gì nhau à bạn?

Thêm nữa là thay cả 1 vùng phía phải vào vùng chọn?

ý mình! replace là VD: từ của "ô A1: 222 sheet 111; ô A3: 222 sheet 111; ô A5: 222 sheet 111" replece 3 kí cuối là "333"

 

[SA_DQ]

Trường hợp thịt ba chỉ thì sao đây ta?

ý mình! replace là VD: từ của "ô A1: 222 sheet 111; ô A3: 222 sheet 111; ô A5: 222 sheet 111" replece 3 kí cuối là "333" << 3 từ cuối giống nhau
còn thay kí tự là VD: từ của "ô C1: 222 sheet 111; ô B3: 222 sheet 123; ô D5: 222 sheet 321" thay 3 kí cuối là "333" << 3 từ cuối khác nhau

Ví dụ chọn 3 ô để xử; nhưng trong đó có 2 ô giống nhau 3 số đuôi & 1 ô khác;
Vậy lúc 'Thay' hay 'Replace' đều vướng!

Còn cần xóa thì đây, xin mời bạn tham khảo:

Option Explicit
Sub Xoa_Replace_Thay()
 Dim Cls As Range, Rng As Range
 Dim Hoi$, DC$, SKT$, Moi$
 Dim STu As Byte
 Set Rng = Selection
 On Error GoTo LoiCT
 If Rng.SpecialCells(xlCellTypeConstants, 2).Cells.Count < 1 Then
    Exit Sub
 Else
    Set Rng = Rng.SpecialCells(xlCellTypeConstants, 2)
 End If
 Hoi = InputBox("X: Xóa" & Chr(10) & "R: Replace" & Chr(10) & "T: Thay", "Hay Chon 1 Tù")
 Hoi = UCase$(Hoi)
 If InStr("XRT", Hoi) < 1 Then
    MsgBox "Only 'X', 'R' or 'T'"
    Exit Sub
 ElseIf InStr("RT GPE.COM", Hoi) Then
    Moi = InputBox("Hay Nhap Cum Tù Mói Càn Thay", "GPE.COM Xin Chào", "GPE.COM")
 End If
 DC = InputBox("F: Dau" & Chr(10) & "L: Cuói", "Ban Càn Xóa Dàu Hay Cuói Tù?", "L")
 DC = UCase$(DC)
 If InStr("FL", DC) < 1 Then
    MsgBox "Only 'F', or 'L'"
    Exit Sub
 End If
 SKT = InputBox("Só Tù Ban Càn Thay/Xóa", "GPE.COM Xin Hoi Ban:", "3")
 STu = CByte(SKT)
 For Each Cls In Rng
    If Hoi = "X" Then
        If DC = "F" Then
            Cls.Value = Mid(Cls.Value, STu + 1, Len(Cls.Value))
        Else
            Cls.Value = Left(Cls.Value, Len(Cls.Value) - STu)
        End If
    ElseIf Hoi = "T" Then
 
    Else
    
    End If
 Next Cls
Err_: Exit Sub
LoiCT:
    If Err = 1004 Then
        Resume Err_
    Else
        MsgBox Err
    End If
End Sub

 

[alibaba2209]

Ví dụ chọn 3 ô để xử; nhưng trong đó có 2 ô giống nhau 3 số đuôi

 

[SA_DQ]

Bạn chưa trả lời là 'Thay' hay 'Replace' , ví dụ 3 kí tự cuối trong 3 trường hợp sau

123 GPE.COM 123
215 GPE.COM 123
212 GPE.COM 321

????????????????????????????

 

[alibaba2209]

Bạn chưa trả lời là 'Thay' hay 'Replace' , ví dụ 3 kí tự cuối trong 3 trường hợp sau

123 GPE.COM 123
215 GPE.COM 123
212 GPE.COM 321

????????????????????????????

trường hợp này bạn! cho là "Thay" cho mình nhé!
bạn update dùm trường thêm kí tự nhé, và khi không chọn ok thì chương trình sẽ kết thúc: vd mình chọn thiếu muốn chọn lại phải chọn hết các mục mới làm lại được từ đầu

 

[alibaba2209]

Bạn chưa trả lời là 'Thay' hay 'Replace' , ví dụ 3 kí tự cuối trong 3 trường hợp sau

123 GPE.COM 123
215 GPE.COM 123
212 GPE.COM 321

????????????????????????????

bạn ơi! đâu rồi giúp mình nốt đi