Câu hỏi
25/05/2013 15:37
Máy mình bị ẩn chữ trong Excell?
Mình gõ vào cell A1=15a20215113,15a20215114....... thì trong ô lúc này chỉ còn hiện ra là 15113 có cách nào ẩn đi thành phần của chuổi 15a202, có ai biết chỉ giùm em với, nhưng khi kiểm tra lại thì A1=15a20215113
thanhngan909
25/05/2013 15:37
Danh sách câu trả lời (1)
Đầu tiên bạn Define name cho vùng cần tách là DS (ví dụ từ A5:A100)
Sau khi đã có dử liệu trong vùng này thì chạy code:
PHP Code:
Sub TACH()
Dim Er As Integer
Dim Tach1 As String, Tach2 As String
Dim Clls As Range
On Error Resume Next
For Each Clls In Range("DS")
If Clls = "" Then
Cells(Clls.Row, Clls.Column + 1) = ""
Else:
VT = Application.WorksheetFunction.Find(" ", Clls, 1)
Tach1 = Right(Clls, Len(Clls) - VT)
Tach2 = Left(Clls, VT - 1)
Clls.Value = Tach1
Cells(Clls.Row, Clls.Column + 1).Value = Tach2
End If
Next
End Sub
Mai này bạn có thể đặt vùng nhập liệu bất cứ đâu (miễn sao Define name nó tên là DS) thì mã sẽ dc tách ra nằm ở cột cạnh bên
Sau khi đã có dử liệu trong vùng này thì chạy code:
PHP Code:
Sub TACH()
Dim Er As Integer
Dim Tach1 As String, Tach2 As String
Dim Clls As Range
On Error Resume Next
For Each Clls In Range("DS")
If Clls = "" Then
Cells(Clls.Row, Clls.Column + 1) = ""
Else:
VT = Application.WorksheetFunction.Find(" ", Clls, 1)
Tach1 = Right(Clls, Len(Clls) - VT)
Tach2 = Left(Clls, VT - 1)
Clls.Value = Tach1
Cells(Clls.Row, Clls.Column + 1).Value = Tach2
End If
Next
End Sub
Mai này bạn có thể đặt vùng nhập liệu bất cứ đâu (miễn sao Define name nó tên là DS) thì mã sẽ dc tách ra nằm ở cột cạnh bên
Trả lời câu hỏi
Câu hỏi lĩnh vực Máy vi tính
Rao vặt Siêu Vip