Cách Xóa đoạn Code Cũ, Thay Thế Bằng 1 đoạn Code Mới Mà Không ...
Có thể bạn quan tâm
- 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 Featured content 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
- Đóng góp
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 đề Note Tìm kiếm Tìm nâng cao…- Tìm bài viết mới
- Tìm theo chuyên mục
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
- Thread starter Thread starter Hai Lúa Miền Tây
- Ngày gửi Ngày gửi 12/5/10
Hai Lúa Miền Tây
❆❆❆❆❆❆❆❆
Thành viên BQT Administrator Tham gia 18/3/08 Bài viết 8,308 Được thích 15,863 Giới tính Nam Nghề nghiệp Làm ruộng. Xin các anh chị vui lòng hướng dẫn em Cách xóa đoạn code cũ, thay thế bằng 1 đoạn code mới mà không mở file (Có Pass ở VBA). Do em có nhiều file Excel có code, bây giờ muốn cập nhật code mới nhưng mở từ file, mở từng pass (Có 1 pass duy nhất) rồi xóa code cũ, thay thế code cũ = code mới. Em xin cám ơn trước.- 1
- 2
Go to page
Tiếp tục Tiếp Last Sắp xếp theo thời gian sắp xếp theo bầu chọnndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,950domfootwear đã viết: Xin các anh chị vui lòng hướng dẫn em Cách xóa đoạn code cũ, thay thế bằng 1 đoạn code mới mà không mở file (Có Pass ở VBA). Do em có nhiều file Excel có code, bây giờ muốn cập nhật code mới nhưng mở từ file, mở từng pass (Có 1 pass duy nhất) rồi xóa code cũ, thay thế code cũ = code mới. Em xin cám ơn trước. Nhấp chuột vào đây để mở rộng...Làm việc này mà không cần mở file thì tôi chẳng biết dùng cách gì. Tuy nhiên cũng có vài gợi ý: - Mở từng Workbook - Active Workbook vừa mở - Xóa Module cũ - Chèn Module mới --------------------- Việc xóa Module, trên GPE đã có nói rồi... Tôi chỉ xin góp giải pháp chèn module - Giả sử bạn có đoạn code: PHP:Sao chép. Sub ThiNghiem() MsgBox "Hello" End Sub - Hãy cho code này vào 1 file TXT (ví dụ code cho vào file Test.txt nằm tại ổ D) - Active Workbook mà bạn cần chèn code rồi chạy sub dưới đây: PHP:Sao chép. Sub ImportModule() ExecuteExcel4Macro ("VBA.INSERT.FILE(""D:\Test.txt"")") End Sub Đây là hàm Macro 4 khá hay, tôi đã từng gữi vào mục đố vui nhưng chẳng thấy ai trả lời! Nhân tiện bạn hỏi nên gữi cho bạn tham khảo Upvote 0
nam2806
Thành viên hoạt động
Tham gia 4/12/07 Bài viết 187 Được thích 183 Không biết đúng ý các bạn không, nhưng tôi hay dùng Import file và Export file (.bas) để thực hiện việc này Upvote 0TrungChinhs
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 @ Ndu: Tôi đã làm theo cách của bạn, Impos được code nhưng lỗi tùm lum bạn xem giúp nhé. Thanks !File đính kèm
- ImpotCode.xls ImpotCode.xls 29.5 KB · Đọc: 79
ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,950Trung Chinh đã viết: @ Ndu: Tôi đã làm theo cách của bạn, Impos được code nhưng lỗi tùm lum bạn xem giúp nhé. Thanks ! Nhấp chuột vào đây để mở rộng...Anh phải cho em xem luôn file CodeMau.txt em mới biết lỗi gì chứ 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ứcndu96081631 đã viết: Anh phải cho em xem luôn file CodeMau.txt em mới biết lỗi gì chứ Nhấp chuột vào đây để mở rộng...@ Ndu: Tôi làm được rồi (phải mở File Notepad và Paste code vào), lỗi lần trước là do tôi đổi duôi File .xls -> .txt nên bị lỗi code ngay từ file nguồn. Upvote 0
ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,950Trung Chinh đã viết: @ Ndu: Tôi làm được rồi (phải mở File Notepad và Paste code vào), lỗi lần trước là do tôi đổi duôi File .xls -> .txt nên bị lỗi code ngay từ file nguồn. Nhấp chuột vào đây để mở rộng...Em nói thêm 1 chút: - Code dùng hàm Macro 4 này còn có 1 độc chiêu, đó là cho dù file của anh có pass bảo vệ VBA thì nó vẫn insert code được như thường ---> Thế mới siêu! Upvote 0
Hai Lúa Miền Tây
❆❆❆❆❆❆❆❆
Thành viên BQT Administrator Tham gia 18/3/08 Bài viết 8,308 Được thích 15,863 Giới tính Nam Nghề nghiệp Làm ruộng.ndu96081631 đã viết: Em nói thêm 1 chút: - Code dùng hàm Macro 4 này còn có 1 độc chiêu, đó là cho dù file của anh có pass bảo vệ VBA thì nó vẫn insert code được như thường ---> Thế mới siêu! Nhấp chuột vào đây để mở rộng...Em đang "Vật lộn" với cái đường dẫn chết tuyệt của cái file text đó, làm sao cho nó linh hoạt hơn, mong Thầy chỉ tiếp giúp.
nam2806 đã viết: Không biết đúng ý các bạn không, nhưng tôi hay dùng Import file và Export file (.bas) để thực hiện việc này Nhấp chuột vào đây để mở rộng...Cái này thì mình vẫn làm, làm bằng tay, phải mở Pass, rất mất thời gian. Còn nếu như dùng code thì file nào có Pass VBA thì thua, nó không cho chèn code vào. Upvote 0
ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,950domfootwear đã viết: Em đang "Vật lộn" với cái đường dẫn chết tuyệt của cái file text đó, làm sao cho nó linh hoạt hơn, mong Thầy chỉ tiếp giúp. Nhấp chuột vào đây để mở rộng...Là sao ta? Tôi chưa hiểu lắm! Nói rõ chút đi (về cái vụ LINH HOẠT ấy) Hay là bạn muốn đặt biến cho đường dẩn này... kiểu: PHP:Sao chép. Sub ImportModule() Dim Txtfile As String Txtfile = "gì gì đó" ExecuteExcel4Macro ("VBA.INSERT.FILE(""" & Txtfile & """)") End Sub Lần chỉnh sửa cuối: 13/5/10 Upvote 0
Hai Lúa Miền Tây
❆❆❆❆❆❆❆❆
Thành viên BQT Administrator Tham gia 18/3/08 Bài viết 8,308 Được thích 15,863 Giới tính Nam Nghề nghiệp Làm ruộng.ndu96081631 đã viết: Là sao ta? Tôi chưa hiểu lắm! Nói rõ chút đi (về cái vụ LINH HOẠT ấy) Nhấp chuột vào đây để mở rộng...Là em đang tìm cách thay thế đường dẫn dẩn đến file text bằng Dialog, nhưng chưa được. Upvote 0
ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,950domfootwear đã viết: Là em đang tìm cách thay thế đường dẫn dẩn đến file text bằng Dialog, nhưng chưa được. Nhấp chuột vào đây để mở rộng...Sao lại không được nhỉ? PHP:Sao chép. Sub ImportModule() Dim Txtfile As String With Application.FileDialog(3) .Show: .AllowMultiSelect = False Txtfile = .SelectedItems(1) End With ExecuteExcel4Macro ("VBA.INSERT.FILE(""" & Txtfile & """)") End Sub Upvote 0
Hai Lúa Miền Tây
❆❆❆❆❆❆❆❆
Thành viên BQT Administrator Tham gia 18/3/08 Bài viết 8,308 Được thích 15,863 Giới tính Nam Nghề nghiệp Làm ruộng.ndu96081631 đã viết: Sao lại không được nhỉ? PHP:Sao chép. Sub ImportModule() Dim Txtfile As String With Application.FileDialog(3) .Show: .AllowMultiSelect = False Txtfile = .SelectedItems(1) End With ExecuteExcel4Macro ("VBA.INSERT.FILE(""" & Txtfile & """)") End Sub Nhấp chuột vào đây để mở rộng...Vấn đề nằm ở chổ là mấy cái dấu """, em chưa hiểu chổ đó, thường thì Text nằm trong "" trong trường hợp này nó "vật" em hôm qua đến nay. Upvote 0
ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,950domfootwear đã viết: Vấn đề nằm ở chổ là mấy cái dấu """, em chưa hiểu chổ đó, thường thì Text nằm trong "" trong trường hợp này nó "vật" em hôm qua đến nay. Nhấp chuột vào đây để mở rộng...Cách đơn giản nhất là THÍ NGHIỆM Tôi sẽ làm thế này: PHP:Sao chép. Sub Test() Dim Txtfile As String Txtfile = "D:\Test.xls" MsgBox "VBA.INSERT.FILE(" & Txtfile & ")" End Sub Kết quả của MsgBox là VBA.INSERT.FILE(D:\Test.xls) Thử thêm 1 dấu nháy đôi vào 2 đâu PHP:Sao chép. Sub Test() Dim Txtfile As String Txtfile = "D:\Test.xls" MsgBox "VBA.INSERT.FILE("" & Txtfile & "")" End Sub Ta có kết quả MsgBox là VBA.INSERT.FILE(" & Txtfile & ") Thêm tiếp 1 dấu nháy nữa PHP:Sao chép. Sub Test() Dim Txtfile As String Txtfile = "D:\Test.xls" MsgBox "VBA.INSERT.FILE(""" & Txtfile & """)" End Sub Kết quả là: VBA.INSERT.FILE("D:\Test.xls") Đúng như mong đợi Lần chỉnh sửa cuối: 13/5/10 Upvote 0
Hai Lúa Miền Tây
❆❆❆❆❆❆❆❆
Thành viên BQT Administrator Tham gia 18/3/08 Bài viết 8,308 Được thích 15,863 Giới tính Nam Nghề nghiệp Làm ruộng. Đúng là khi ra kết quả mới thấy nó đơn giản. Hôm qua đến giờ em chỉ đến trường hợp 1+2 Upvote 0Ngoai Thanh
Cánh Diều xanh
Tham gia 14/6/12 Bài viết 823 Được thích 906ndu96081631 đã viết: Làm việc này mà không cần mở file thì tôi chẳng biết dùng cách gì. Tuy nhiên cũng có vài gợi ý: - Mở từng Workbook - Active Workbook vừa mở - Xóa Module cũ - Chèn Module mới --------------------- Việc xóa Module, trên GPE đã có nói rồi... Tôi chỉ xin góp giải pháp chèn module - Giả sử bạn có đoạn code: PHP:Sao chép. Sub ThiNghiem() MsgBox "Hello" End Sub - Hãy cho code này vào 1 file TXT (ví dụ code cho vào file Test.txt nằm tại ổ D) - Active Workbook mà bạn cần chèn code rồi chạy sub dưới đây: PHP:Sao chép. Sub ImportModule() ExecuteExcel4Macro ("VBA.INSERT.FILE(""D:\Test.txt"")") End Sub Đây là hàm Macro 4 khá hay, tôi đã từng gữi vào mục đố vui nhưng chẳng thấy ai trả lời! Nhân tiện bạn hỏi nên gữi cho bạn tham khảo Nhấp chuột vào đây để mở rộng...xin hỏi thày NDU nếu ta copy code vào Thisworkbook thì code trên sửa thế thế nào ạ ? Upvote 0
ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,950Ngoai Thanh đã viết: xin hỏi thày NDU nếu ta copy code vào Thisworkbook thì code trên sửa thế thế nào ạ ? Nhấp chuột vào đây để mở rộng...Cái thằng Macro 4 ấy chỉ chèn code vào Module thôi bạn à. Muốn chèn vào Sheet hoặc Workbook thì dùng cách khác ------------- Dù gì bạn cứ thử cho tôi đoạn code Thisworkbook tôi xem thế nào rồi mới tính được chứ Upvote 0
Ngoai Thanh
Cánh Diều xanh
Tham gia 14/6/12 Bài viết 823 Được thích 906ndu96081631 đã viết: Cái thằng Macro 4 ấy chỉ chèn code vào Module thôi bạn à. Muốn chèn vào Sheet hoặc Workbook thì dùng cách khác ------------- Dù gì bạn cứ thử cho tôi đoạn code Thisworkbook tôi xem thế nào rồi mới tính được chứ Nhấp chuột vào đây để mở rộng...Nhà em tưởng nó đơn giản là thày chỉ thay đổi chút xíu . Té ra không đơn giản, hèn chi nhà em mò mãi nó chẳng nghe . Cám ơn thày quan tâm !code này nhà em cũng down của GPE về ứng dụng mà còn lúng túng quá .
File đính kèm
- tomau.txt tomau.txt 455 bytes · Đọc: 15
ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,950Ngoai Thanh đã viết: Nhà em tưởng nó đơn giản là thày chỉ thay đổi chút xíu . Té ra không đơn giản, hèn chi nhà em mò mãi nó chẳng nghe . Cám ơn thày quan tâm !code này nhà em cũng down của GPE về ứng dụng mà còn lúng túng quá . Nhấp chuột vào đây để mở rộng...Hỏi lần nữa cho chắc: File mà bạn định chèn code vào ấy đã có "thứ gì" trong đó chưa? Tức "thứ gì" mà tôi muốn nói là CODE ấy ---> Nó đã có code nào đó chưa hay chỉ là 1 file chứa dữ liệu thôi Upvote 0
Ngoai Thanh
Cánh Diều xanh
Tham gia 14/6/12 Bài viết 823 Được thích 906ndu96081631 đã viết: Hỏi lần nữa cho chắc: File mà bạn định chèn code vào ấy đã có "thứ gì" trong đó chưa? Tức "thứ gì" mà tôi muốn nói là CODE ấy ---> Nó đã có code nào đó chưa hay chỉ là 1 file chứa dữ liệu thôi Nhấp chuột vào đây để mở rộng..."Hà nội đêm trở gió", nó không chỉ trở gió mà "chở" cả "sét" lằng nhằng nên nhà em sợ tắt máy không dám ngồi , và lại thấy khuya tưởng thày cũng nghỉ nên không vào mạng nữa . Xin lỗi thày ! Code đi kèm thì nó chạy rồi nhưng riêng code trong thisworkbook nó không tự động cập nhật được nên mỗi lần muốn chạy nó cứ phải mở toang ra rồi copy dán vào nó mới chạy . Sợ các thày nghĩ "không chịu lao động" chỉ "há miệng chờ sung" nên nhà em chỉ hỏi phần còn vướng . Thầy nói vậy thì nhà em gửi cả file để thày giúp cho hoàn chỉnh hơn .
File đính kèm
- TomauTR.xls TomauTR.xls 39.5 KB · Đọc: 23
ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,950Ngoai Thanh đã viết: "Hà nội đêm trở gió", nó không chỉ trở gió mà "chở" cả "sét" lằng nhằng nên nhà em sợ tắt máy không dám ngồi , và lại thấy khuya tưởng thày cũng nghỉ nên không vào mạng nữa . Xin lỗi thày ! Code đi kèm thì nó chạy rồi nhưng riêng code trong thisworkbook nó không tự động cập nhật được nên mỗi lần muốn chạy nó cứ phải mở toang ra rồi copy dán vào nó mới chạy . Sợ các thày nghĩ "không chịu lao động" chỉ "há miệng chờ sung" nên nhà em chỉ hỏi phần còn vướng . Thầy nói vậy thì nhà em gửi cả file để thày giúp cho hoàn chỉnh hơn . Nhấp chuột vào đây để mở rộng...Hơi khó hiểu chút Tôi nghĩ trường hợp như bạn chỉ cần chạy code này là được rồi: Mã:Sao chép. Sub Auto_Open() On Error Resume Next With ThisWorkbook.VBProject With .VBComponents("ThisWorkbook") .CodeModule.DeleteLines 1, .CodeModule.CountOfLines .CodeModule.InsertLines 1, _ "Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)" & vbLf & _ " Application.ScreenUpdating = False" & vbLf & _ " On Error Resume Next" & vbLf & _ " Dim cond As FormatCondition" & vbLf & _ " If Target.Cells(1, 1).FormatConditions.Count > 0 Then" & vbLf & _ " Set cond = Target.Cells(1, 1).FormatConditions(1)" & vbLf & _ " If cond.Formula1 = ""=ROW()=CELL(""""ROW"""")"" Then" & vbLf & _ " Target.Calculate" & vbLf & _ " End If" & vbLf & _ " Set cond = Nothing" & vbLf & _ " End If" & vbLf & _ " Application.ScreenUpdating = True" & vbLf & _ "End Sub" End With End With End Sub Thậm chí cũng chả cần chạy vì Sub Autpen sẽ tự chạy khi bạn khởi động file và nó sẽ tự chèn code vào Thisworkbook theo ý của bạn ------------------------
Ngoai Thanh đã viết: "Code đi kèm thì nó chạy rồi nhưng riêng code trong thisworkbook nó không tự động cập nhật được nên mỗi lần muốn chạy nó cứ phải mở toang ra rồi copy dán vào nó mới chạy Nhấp chuột vào đây để mở rộng...Hoàn toàn không hiểu vấn đề này nghĩa là sao nữa Upvote 0
- 1
- 2
Go to page
Tiếp tục Tiếp Last 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
T- Question Question
- Thanh Binh111
- Thứ sáu lúc 16:40
- Lập Trình với Excel
- OverAC
- Thứ năm lúc 22:13
- Thông tin về diễn đàn
- acrox84
- 15/12/24
- Xử lý chuỗi ký tự
- Question Question
- vuasutu08
- Thứ sáu lúc 16:03
- Lập Trình với Excel
- Question Question
- ductoan.0703
- Thứ tư lúc 14:49
- Lập Trình với Excel
- likosin
- Thứ sáu lúc 08:59
- Giải thích, gỡ rối, xử lý lỗi công thức
- likosin
- Thứ sáu lúc 09:53
- Lọc và sắp xếp dữ liệu
- Cuong001
- Thứ năm lúc 09:28
- Hỏi đáp những vấn đề khác
- Question Question
- ongke0711
- 6/10/24
- Lập Trình với Excel
- Đã giải quyết
- HeSanbi
- 18/4/21
- Lập Trình với Excel
- Huy@@*
- Thứ tư lúc 09:05
- Những vấn đề chung
- hieuchi89
- 28/8/24
- Hàm và công thức Excel
- pqdowntailieu3
- Thứ năm lúc 16:59
- Google Spreadsheets
- LINHCM
- 15/12/24
- Tìm kiếm, dò tìm và tham chiếu
- pqdowntailieu3
- 5/9/24
- Google Spreadsheets
- aduc
- 27/10/13
- Excel và Kỹ Thuật
- martin chen
- Thứ năm lúc 13:23
- Hướng dẫn sử dụng các hàm trong Excel
- tuyennhnobk
- Thứ tư lúc 22:51
- Hàm và công thức Excel
- babyrock2009
- Thứ năm lúc 11:13
- Hàm và công thức Excel
- ngatran08
- Thứ năm lúc 11:17
- Hàm và công thức Excel
Đếm ngược thời gian
000 Ngày 00 Giờ 00 phút 00 giây Chúc mừng năm mới Chúc mừng năm mớiThành viên có số lượng bài viết cao nhất tháng
- Hoàng Tuấn 868 29
- HeSanbi 26
- LINHCM 25
- ptm0412 22
- hoangtuaotrang_hp_vn 21
- HieuCD 18
- qtm1987 17
- ongke0711 17
- SA_DQ 17
- huuthang_bd 16
- DeTong 15
- hoangminhtien 13
- hvnhpro 13
- HUONGHCKT 12
- BuiQuangThuan 12
- Duy Tùng 9x 10
- Nguyễn Duy Tuân 9
- GPE-Trợ Lý 9
- befaint 8
- SteveNguyen1991 8
Thành viên có điểm tương tác cao nhất tháng
- HieuCD 50
- huuthang_bd 34
- Hoàng Tuấn 868 31
- hoangtuaotrang_hp_vn 28
- hoangminhtien 24
- SA_DQ 24
- HeSanbi 23
- HUONGHCKT 22
- DeTong 22
- ptm0412 21
- GPE-Trợ Lý 20
- ongke0711 15
- befaint 13
- longtay1111 12
- Phuocam 12
- NT Ngoc Yen 12
- Nguyễn Duy Tuân 11
- Hai Lúa Miền Tây 11
- qtm1987 9
- Duy Tùng 9x 8
- 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.…
Từ khóa » Cách Xóa Code Vba Trong Excel
-
Cách Bật, Tắt, Xóa Macro Trong Excel - Thủ Thuật Phần Mềm
-
Làm Cách Nào để Loại Bỏ Tất Cả Các Macro Trong Excel? - ExtendOffice
-
Cách để Xóa Macro Trong Excel - WikiHow
-
Cách Cài đặt Và Gỡ Cài đặt Tập Tin VBA Add-in Cho Microsoft Office
-
Hướng Dẫn Xóa Dữ Liệu Excel Trong Bảng Danh Sách Bằng Lệnh VBA
-
Cách Xóa Các Hàng Trống Trong Excel Với Macro
-
Cách Xóa Macro Khỏi Tệp Excel - Guidlings
-
05 Hướng Dẫn Loại Bỏ Code VBA Trong Excel - YouTube
-
05 Hướng Dẫn Loại Bỏ Code VBA Trong Excel - Office
-
Hướng Dẫn Tôi Cách Gỡ Bỏ Macro | Giải Pháp Excel
-
Làm Cách Nào Để Loại Bỏ Tất Cả Các Macro Trong Excel
-
Tất Tần Tật Về VBA Trong Excel (Phần 1) - Thủ Thuật
-
Cách Xóa Link, Hyperlink Trong Excel Cực đơn Giản, Nhanh Chóng
-
Xóa Vba Trong Excel / TOP #10 Xem Nhiều Nhất & Mới Nhất 7/2022 ...