Hỏi Về Replace Trong VBA ? | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Hỏi về Replace trong VBA ?

• Thread starter TrungChinhs
• Ngày gửi 14/11/12

TrungChinhs

Thành viên tích cực

Tham gia 18/2/08 Bài viết 1,475 Được thích 2,469 Nghề nghiệp Công chức Các bạn cho mình hỏi: sự khác nhau giữa 2 câu lệnh này trong VBA ? Tôi Test thì cho kết quả như sau: Selection.Replace "* ", "" cho kết quả là 1 chuỗi con cuối cùng trong chuỗi gốc (đã xóa tất cả các ký tự đứng trước chuối cuối). Replace(Selection, "* ", "") cho kết quả vẫn là 1 chuỗi lớn (tại sao vẫn y nguyên như chuỗi gốc). Sắp xếp theo thời gian sắp xếp theo bầu chọn

Quang_Hải

Thành viên gạo cội

Tham gia 21/2/09 Bài viết 6,069 Được thích 7,992 Nghề nghiệp Làm đủ thứ

TrungChinhs đã viết: Các bạn cho mình hỏi: sự khác nhau giữa 2 câu lệnh này trong VBA ? Tôi Test thì cho kết quả như sau: Selection.Replace "* ", "" cho kết quả là 1 chuỗi con cuối cùng trong chuỗi gốc (đã xóa tất cả các ký tự đứng trước chuối cuối). Replace(Selection, "* ", "") cho kết quả vẫn là 1 chuỗi lớn (tại sao vẫn y nguyên như chuỗi gốc). Nhấp chuột vào đây để mở rộng...

Hình như 2 cái này khác nhau mà anh. 1. Object.Replace >>> Cái này là phương thức 2. Variant = Replace(Chuỗi, "abc", "def") >>> Cái này là hàm của VBA Mã:Sao chép. Sub test1() [A1].Value = "abcabcabc" [A1].Replace "b", "" MsgBox [A1] End Sub Mã:Sao chép. Sub test2() Dim chuoi chuoi = "abcabcabc" chuoi = Replace(chuoi, "b", "") MsgBox chuoi End Sub PS: Nếu không đúng thì các anh chị khác giải thích lại nhé Upvote 0

TrungChinhs

Thành viên tích cực

Tham gia 18/2/08 Bài viết 1,475 Được thích 2,469 Nghề nghiệp Công chức Hình như hàm Relace của VBA nó không chấp nhận ký tự đại diện "*" Upvote 0

Quang_Hải

Thành viên gạo cội

Tham gia 21/2/09 Bài viết 6,069 Được thích 7,992 Nghề nghiệp Làm đủ thứ

TrungChinhs đã viết: Hình như hàm Relace của VBA nó không chấp nhận ký tự đại diện "*" Nhấp chuột vào đây để mở rộng...

Nếu để xử lý chuỗi em nghĩ anh nên xài Regexp hay hơn nhiều Anh xem qua code này xem Mã:Sao chép. Sub thaythe() Dim kq, chuoi chuoi = "abcabcabc" With CreateObject("vbscript.regexp") .Global = True .Pattern = "b.*" kq = .Replace(chuoi, "") MsgBox kq End With End Sub Upvote 0

TrungChinhs

Thành viên tích cực

Tham gia 18/2/08 Bài viết 1,475 Được thích 2,469 Nghề nghiệp Công chức

quanghai1969 đã viết: Nếu để xử lý chuỗi em nghĩ anh nên xài Regexp hay hơn nhiều Anh xem qua code này xem Mã:Sao chép. Sub thaythe() Dim kq, chuoi chuoi = "abcabcabc" With CreateObject("vbscript.regexp") .Global = True .Pattern = "b.*" kq = .Replace(chuoi, "") MsgBox kq End With End Sub Nhấp chuột vào đây để mở rộng...

Mình chưa biết sử dụng món này. QuangHai viết lại với ví dụ sau để mình nghiên cứu. Thanks! Mã:Sao chép. Sub test() tmp = "Phan Duc Chinh" MsgBox Split(tmp, " ")(UBound(Split(tmp, " "))) End Sub Upvote 0

Quang_Hải

Thành viên gạo cội

Tham gia 21/2/09 Bài viết 6,069 Được thích 7,992 Nghề nghiệp Làm đủ thứ

TrungChinhs đã viết: Mình chưa biết sử dụng món này. QuangHai viết lại với ví dụ sau để mình nghiên cứu. Thanks! Mã:Sao chép. Sub test() tmp = "Phan Duc Chinh" MsgBox Split(tmp, " ")(UBound(Split(tmp, " "))) End Sub Nhấp chuột vào đây để mở rộng...

Có phải thế này không anh? Mã:Sao chép. Sub test() Dim tmp As String tmp = "Phan Duc Chinh" With CreateObject("vbscript.regexp") .Pattern = ".* " MsgBox .Replace(tmp, "") End With End Sub Upvote 0

TrungChinhs

Thành viên tích cực

Tham gia 18/2/08 Bài viết 1,475 Được thích 2,469 Nghề nghiệp Công chức

quanghai1969 đã viết: Có phải thế này không anh? Mã:Sao chép. Sub test() Dim tmp As String tmp = "Phan Duc Chinh" With CreateObject("vbscript.regexp") .Pattern = ".* " MsgBox .Replace(tmp, "") End With End Sub Nhấp chuột vào đây để mở rộng...

Cảm ơn quangHai ! Đúng rồi. Mình test là "*. " nên không ra. Upvote 0 M

meomeo192

Thành viên mới

Tham gia 8/12/10 Bài viết 20 Được thích 1 File dữ liệu em xuất ra có cột ngày/tháng/năm nhưng lại có 1 khoảng trắng ở đầu, ví dụ:" 01/10/2015" em muốn xoá khoảng trắng đó trong cột này, nếu dùng Replace bằng Ctrl+H thì thứ tự ngày/tháng/năm không thay đổi, nhưng Record Macro ra đoạn code dưới đây, nếu em chạy đoạn code này thì những ngày <=12 sẽ bị hiểu thành tháng, và thứ tự thay đổi. Mong mọi người chỉ em cách Replace bằng VBA mà không bị thay đổi thứ tự ngày, tháng. Em cảm ơn nhiêù ạ. Code khi Record Macro:

Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Nhấp chuột vào đây để mở rộng...

Lần chỉnh sửa cuối: 2/11/15 Upvote 0

Cá ngừ F1

( ͡° ͜ʖ ͡°)

Thành viên BQT Moderator Tham gia 1/1/08 Bài viết 2,579 Được thích 3,722 Donate (Momo) Giới tính Nam Nghề nghiệp Quan hệ.. và quan hệ..

meomeo192 đã viết: File dữ liệu em xuất ra có cột ngày/tháng/năm nhưng lại có 1 khoảng trắng ở đầu, ví dụ:" 01/10/2015" em muốn xoá khoảng trắng đó trong cột này, nếu dùng Replace bằng Ctrl+H thì thứ tự ngày/tháng/năm không thay đổi, nhưng Record Macro ra đoạn code dưới đây, nếu em chạy đoạn code này thì những ngày <=12 sẽ bị hiểu thành tháng, và thứ tự thay đổi. Mong mọi người chỉ em cách Replace bằng VBA mà không bị thay đổi thứ tự ngày, tháng. Em cảm ơn nhiêù ạ. Code khi Record Macro: Nhấp chuột vào đây để mở rộng...

Bạn thử gửi File xem sao. Có thể rút gọn code thành: Mã:Sao chép. Selection.Replace " ", "", xlPart Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

B

• Question

Windows Form Làm thế nào để định vị cột và dòng nhập dữ liệu

• binhtv69
• Thứ sáu lúc 09:01
• Lập Trình với Excel

2 Trả lời 32 Đọc 687 Hôm nay lúc 04:13 SA_DQ J Hàm tách dữ liệu ra nhiều cột

• jusend
• Hôm qua, lúc 16:43
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 3 Đọc 67 Hôm qua, lúc 22:49 vanthinh3101

• Question

Xóa dòng trùng.

• DMQ
• Hôm qua, lúc 21:16
• Lập Trình với Excel

Trả lời 2 Đọc 45 Hôm qua, lúc 22:24 HUONGHCKT H

• Question

Chọn các số trong dãy số để ra 1 số tổng cho trước

• MinhKhai
• 20/8/13
• Lập Trình với Excel

2 Trả lời 28 Đọc 16K Hôm qua, lúc 20:28 tienhuy832011 T T

• Question

Tìm các dòng có chứa giá trị cộng tổng sấp xỉ bằng số cho trước

• tienhuy832011
• Thứ ba lúc 20:07
• Lập Trình với Excel

Trả lời 17 Đọc 223 Hôm qua, lúc 20:20 tienhuy832011 T N Tìm công thức sắp xếp lại vị trí

• Ngocminh19
• Hôm qua, lúc 18:56
• Hàm và công thức Excel

Trả lời 0 Đọc 45 Hôm qua, lúc 18:56 Ngocminh19 N A Nhờ mọi người làm giúp công thức Thống kê đếm ngày

• acrox84
• Hôm qua, lúc 11:03
• Làm việc với ngày tháng và thời gian

Trả lời 5 Đọc 109 Hôm qua, lúc 18:54 hoangtuaotrang_hp_vn H

• Question

Hỗ trợ khắc phục lỗi Copy cùng 1 bảng tính sang nhiều vị trí trên Word bị lỗi Clipboard

• Toanke063
• Thứ sáu lúc 12:11
• Lập Trình với Excel

Trả lời 8 Đọc 278 Hôm qua, lúc 18:49 Toanke063 Nhờ giúp: Nhận vùng giữ liệu theo số biên bản nghiệm thu

• Nguyễn Hậu LK
• Hôm qua, lúc 16:18
• Hỏi đáp những vấn đề khác

Trả lời 1 Đọc 42 Hôm qua, lúc 17:18 BuiQuangThuan B Em test đầu vào mà làm không được câu 5 và những hàm liên quan đến năm sinh ạk

• raygpt
• Thứ ba lúc 22:52
• Hàm và công thức Excel

Trả lời 6 Đọc 130 Hôm qua, lúc 17:15 hvnhpro H Phiên bản mới Add-in A-Tools v10 (2024)

• • 

• Nguyễn Duy Tuân
• 13/9/24
• BLUESOFTS: A-Excel, A-Tools

2 Trả lời 34 Đọc 2K Hôm qua, lúc 15:59 Nguyễn Duy Tuân L Chuyển 600 câu hỏi trắc nghiệm sang excel theo mẫu

• linhxinhthat
• Hôm qua, lúc 15:52
• Hàm và công thức Excel

Trả lời 0 Đọc 49 Hôm qua, lúc 15:52 linhxinhthat L Lọc dữ liệu cần tìm băng fillter nhưng không cho ra kết quả đầy đủ

• Thienquang1412
• Thứ ba lúc 14:59
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 4 Đọc 111 Hôm qua, lúc 14:41 Thienquang1412 N Định mức nguyên vật liệu

• nghiemcongdien
• 9/11/24
• Google Spreadsheets

2 Trả lời 33 Đọc 899 Hôm qua, lúc 14:19 yeudoi Tặng file quản lý vật tư - công nợ (nhập xuất kho hàng và công nợ khách hàng)

• • 
  • 
  • 

• Maika8008
• 26/8/20
• Excel và Kế Toán

4 5 6 Trả lời 114 Đọc 23K Hôm qua, lúc 14:12 Maika8008 LỄ KÝ KẾT HỢP TÁC CHIẾN LƯỢC GIỮA GPE VÀ HLCC

• • 
  • 

• GPE-Trợ Lý
• Hôm qua, lúc 13:44
• Thông tin về diễn đàn

Trả lời 0 Đọc 105 Hôm qua, lúc 13:44 GPE-Trợ Lý Addin mở rộng cho xây dựng

• • 

• dangvandang
• 28/10/23
• Các Add-ins cho excel

2 Trả lời 33 Đọc 3K Hôm qua, lúc 12:57 dangvandang E Excel và Dự Toán

• Exdt
• Hôm qua, lúc 12:06
• Xây dựng ứng dụng.

Trả lời 0 Đọc 63 Hôm qua, lúc 12:06 Exdt E Nhờ chuyển đổi dữ liệu

• vib1191
• Thứ ba lúc 11:47
• Hàm và công thức Excel

Trả lời 2 Đọc 90 Hôm qua, lúc 10:14 vib1191 Hàm BS_CLOUD lấy và gộp dữ liệu từ Google Sheets, Excel Online về Excel Add-in A-Tools v10

• • 

• Nguyễn Duy Tuân
• 30/9/24
• BLUESOFTS: A-Excel, A-Tools

Trả lời 3 Đọc 226 Hôm qua, lúc 10:03 Nguyễn Duy Tuân Xem thêm… Chia sẻ: Facebook X (Twitter) Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• Hoàng Tuấn 868 150
• ptm0412 75
• VetMini 45
• ongke0711 41
• HUONGHCKT 38
• hoangtuaotrang_hp_vn 33
• SA_DQ 33
• Tuấn Bụng Bự 31
• bebo021999 31
• befaint 30
• BuiQuangThuan 26
• HeSanbi 25
• huuthang_bd 19
• huhumalu 17
• DeTong 16
• CHAOQUAY 16
• HieuCD 16
• Nguyễn Diêu Hiền 15
• Manhhung90 13
• phuongnam366377 13

Thành viên có điểm tương tác cao nhất tháng

• Hoàng Tuấn 868 130
• ptm0412 73
• HUONGHCKT 68
• VetMini 63
• HeSanbi 63
• ongke0711 57
• SA_DQ 42
• HieuCD 40
• BuiQuangThuan 40
• befaint 38
• huuthang_bd 33
• bebo021999 30
• hoangtuaotrang_hp_vn 29
• Phuocam 19
• DeTong 16
• huhumalu 15
• GPE-Trợ Lý 14
• PhanTuHuong 12
• phuongnam366377 12
• CHAOQUAY 12

• Trang chủ
• Diễn đàn
• Lập Trình với Excel
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom