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.
Nội dung 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
