12/12/2018, 09:19
Hàm Replace() trong VBA
Toán tử trong VBA Hàm Replace() trong VBA thay thế một phần được chỉ định của chuỗi bằng một chuỗi cụ thể, với số lần được chỉ định. Cú pháp: Replace(string,find,replacewith[,start[,count[,compare]]]) Mô tả các tham số: String : Tham số bắt buộc. Chuỗi ...
Toán tử trong VBA
Hàm Replace() trong VBA thay thế một phần được chỉ định của chuỗi bằng một chuỗi cụ thể, với số lần được chỉ định.
Cú pháp:
Replace(string,find,replacewith[,start[,count[,compare]]])
Mô tả các tham số:
- String: Tham số bắt buộc. Chuỗi đầu vào sẽ được tìm kiếm để thay thế.
- Find: Tham số bắt buộc. Một phần của chuỗi sẽ được thay thế.
- Replacewith: Tham số bắt buộc. Chuỗi thay thế, sẽ được thay thế so với tham số find.
- Start: Tham số tùy chọn. Chỉ định vị trí bắt đầu từ nơi chuỗi phải được tìm kiếm và thay thế. Giá trị mặc định là 1.
- Count: Tham số tùy chọn. Chỉ định số lần thay thế phải được thực hiện.
-
Compare: Tham số tùy chọn. Chỉ định phương pháp so sánh sẽ được sử dụng. Giá trị mặc định là 0.
0 = vbBinaryCompare – Thực hiện so sánh nhị phân (mặc định).
1 = vbTextCompare – Thực hiện so sánh kiểu văn bản.
Ví dụ sử dụng hàm Replace() trong VBA
Sub vidu_ham_Replace()
Dim var As Variant
var = "This is VBScript Programming"
'VBScript duoc thay the boi MS VBScript
Cells(1, 1) = ("Line 1: " & Replace(var, "VBScript", "MS VBScript"))
'VB duoc thay the boi vb
Cells(2, 1) = ("Line 2: " & Replace(var, "VB", "vb"))
'is' duoc thay the boi ##
Cells(3, 1) = ("Line 3: " & Replace(var, "is", "##"))
'is' duoc thay the boi ## bo qua cac ky tu truoc lan dau tien xay ra
Cells(4, 1) = ("Line 4: " & Replace(var, "is", "##", 5))
's' duoc thay the boi ## cho 2 lan xuat hien tiep theo
Cells(5, 1) = ("Line 5: " & Replace(var, "s", "##", 1, 2))
'r' duoc thay the boi ## cho tat ca cac lan xuat hien so sanh van ban
Cells(6, 1) = ("Line 6: " & Replace(var, "r", "##", 1, -1, 1))
't' duoc thay the boi ## cho tat ca cac lan xuat hien so sanh nhi phan
Cells(7, 1) = ("Line 7: " & Replace(var, "t", "##", 1, -1, 0))
End Sub
Kết quả:
Line 1: This is MS VBScript Programming Line 2: This is vbScript Programming Line 3: Th## ## VBScript Programming Line 4: ## VBScript Programming Line 5: Thi## i## VBScript Programming Line 6: This is VBSc##ipt P##og##amming Line 7: This is VBScrip## Programming
Toán tử trong VBA
