Đỗ Đức Tuấn
Thành viên mới

- Tham gia
- 14/4/18
- Bài viết
- 12
- Được thích
- 1
- Giới tính
- Nam
Chào cả nhà.
Mình đang gặp chục chặc 1 chút về đọc code VBA
đó là:
Có 1 số đoạn code như sau:
có đoạn code viết sau đó thêm dấu ":" mình không hiểu rõ lắm về ý nghĩa của dấu 2 chấm này.
mong các Cao thủ chỉ giáo
Code:
Dim lb_file, cur_file, tg, func As String
Dim check As Boolean 'bien xac nhan tim thay ma trong bang tong hop
Dim Filename As String
Dim PathName As String
Dim sHostName As String
If Range("A8") = "" Then GoTo empty_data
Call Backup_data
sHostName = Environ$("computername")
With Sheets("Barcode list")
For i = 1 To .Range("Z100").End(xlUp).Row
If sHostName = .Cells(i, 26) Then
PathName = .Cells(i, 27).Value & "\" 'thay doi path tai day
GoTo out_path
End If
Next i
out_path: ( ý nghĩa của dấu":".......... )
End With
If PathName = "" Then GoTo missing_Link
..........
Mình đang gặp chục chặc 1 chút về đọc code VBA
đó là:
Có 1 số đoạn code như sau:
có đoạn code viết sau đó thêm dấu ":" mình không hiểu rõ lắm về ý nghĩa của dấu 2 chấm này.
mong các Cao thủ chỉ giáo
Code:
Dim lb_file, cur_file, tg, func As String
Dim check As Boolean 'bien xac nhan tim thay ma trong bang tong hop
Dim Filename As String
Dim PathName As String
Dim sHostName As String
If Range("A8") = "" Then GoTo empty_data
Call Backup_data
sHostName = Environ$("computername")
With Sheets("Barcode list")
For i = 1 To .Range("Z100").End(xlUp).Row
If sHostName = .Cells(i, 26) Then
PathName = .Cells(i, 27).Value & "\" 'thay doi path tai day
GoTo out_path
End If
Next i
out_path: ( ý nghĩa của dấu":".......... )
End With
If PathName = "" Then GoTo missing_Link
..........