Chạy code, kết quả là ký tự số
Sub ABC()
Dim sArr(), Res() As String, Res2() As String
Dim sRow&, i&, tk$
With Sheet1
i = .Range("M" & Rows.Count).End(xlUp).Row
If i < 2 Then MsgBox ("Khong co du lieu"): Exit Sub
sArr = .Range("F2:N" & i).Value
sRow = UBound(sArr)
ReDim Res(1 To sRow, 1 To 1)
ReDim Res2(1 To sRow, 1 To 2)
For i = 1 To sRow
If sArr(i, 1) Like "T?I KHO?N*" Then
tk = Right(sArr(i, 1), 4)
ElseIf sArr(i, 9) <> Empty Then
Res2(i, 2) = Right(sArr(i, 9), 4)
End If
Res(i, 1) = tk
If sArr(i, 5) <> Empty Then
j = InStr(1, sArr(i, 5), "]")
If j > 0 Then Res2(i, 1) = Mid(sArr(i, 5), 2, j - 2)
End If
Next i
.Range("A2").Resize(sRow) = Res
.Range("C2").Resize(sRow, 2) = Res2
End With
End SubXem ghi chú trong code
Sub ABC()
Dim sArr()
Dim Res() As String, Res2() As String 'Mang ket qua là chuoi
Dim sRow&, i&, tk$
With Sheet1
i = .Range("M" & Rows.Count).End(xlUp).Row 'Dòng cuoi cot M
If i < 2 Then MsgBox ("Khong co du lieu"): Exit Sub
sArr = .Range("F2:N" & i).Value 'Gan mang du lieu sArr
sRow = UBound(sArr) ' So dong cua mang du lieu
ReDim Res(1 To sRow, 1 To 1) 'Ket qua cot TK
ReDim Res2(1 To sRow, 1 To 2) 'Ket qua 2 cot MSTDN, NDKT
For i = 1 To sRow
If sArr(i, 1) Like "T?I KHO?N*" Then 'Neu cot "F" có tu dau là "T?I KHO?N" thì
tk = Right(sArr(i, 1), 4) 'So hieu TK
ElseIf sArr(i, 9) <> Empty Then 'Neu khong dung và cot "N" khac Empty thì
Res2(i, 2) = Right(sArr(i, 9), 4) 'Gan ket qua cot "MSTDN"
End If
Res(i, 1) = tk 'Gan ket qua cot "TK"
If sArr(i, 5) <> Empty Then 'Neu cot "J" khac Empty thì
j = InStr(1, sArr(i, 5), "]") 'tìm vi tri ky tu "]"
If j > 0 Then Res2(i, 1) = Mid(sArr(i, 5), 2, j - 2) 'Neu có "]" gan ket qua cot "NDKT"
End If
Next i
.Range("A2").Resize(sRow) = Res 'Gan Res vao sheet1
.Range("C2").Resize(sRow, 2) = Res2 'Gan Res2 vao sheet1 theo 2 cot
End With
End Sub"Dim i as long" thay bằng "Dim i&"
Thói quen của mình, cũng chỉ một mình mình đọc hiểu. Còn chuyện tường minh "String, Long, Double..." vạn người hiểu sao làm biếng gõ?
Thực ra $, %, ... cũng không hẳn là không tường minh. Đọc quen rồi thì cũng dễ hiểu.
Nếu muốn viết theo kiểu vắn tắt thì đáng lẽ phải là:
Hết đát như tôi mà vẫn nhớ như in $ là String và % Integer.Nếu bộ nhớ hết date thì "không tường minh" do không nạp vào được
