Cách Xóa đoạn Code Cũ, Thay Thế Bằng 1 đoạn Code Mới Mà Không ...

Trang chủ » Cách Xóa Code Vba Trong Excel » 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

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 New 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
  • 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 đề Note 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
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. Cách xóa đoạn code cũ, thay thế bằng 1 đoạn code mới mà không mở file. (1 người xem)
  • Thread starter Thread starter Hai Lúa Miền Tây
  • Ngày gửi Ngày gửi 12/5/10
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) Hai Lúa Miền Tây

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆
Thành viên BQT Administrator Tham gia 18/3/08 Bài viết 8,313 Được thích 15,880 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. Sắp xếp theo thời gian sắp xếp theo bầu chọn ndu96081631

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,979
domfootwear đã 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

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 0 TrungChinhs

TrungChinhs

Thành viên tích cực
Tham gia 18/2/08 Bài viết 1,475 Được thích 2,470 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
Upvote 0 ndu96081631

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,979
Trung 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

TrungChinhs

Thành viên tích cực
Tham gia 18/2/08 Bài viết 1,475 Được thích 2,470 Nghề nghiệp Công chức
ndu96081631 đã 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

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,979
Trung 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

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆
Thành viên BQT Administrator Tham gia 18/3/08 Bài viết 8,313 Được thích 15,880 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

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,979
domfootwear đã 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

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆
Thành viên BQT Administrator Tham gia 18/3/08 Bài viết 8,313 Được thích 15,880 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

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,979
domfootwear đã 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

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆
Thành viên BQT Administrator Tham gia 18/3/08 Bài viết 8,313 Được thích 15,880 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

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,979
domfootwear đã 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

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆
Thành viên BQT Administrator Tham gia 18/3/08 Bài viết 8,313 Được thích 15,880 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 0 Ngoai Thanh

Ngoai Thanh

Cánh Diều xanh
Tham gia 14/6/12 Bài viết 823 Được thích 906
ndu96081631 đã 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

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,979
Ngoai 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

Ngoai Thanh

Cánh Diều xanh
Tham gia 14/6/12 Bài viết 823 Được thích 906
ndu96081631 đã 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
Lần chỉnh sửa cuối: 17/8/13 Upvote 0 ndu96081631

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,979
Ngoai 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

Ngoai Thanh

Cánh Diều xanh
Tham gia 14/6/12 Bài viết 823 Được thích 906
ndu96081631 đã 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
Lần chỉnh sửa cuối: 18/8/13 Upvote 0 ndu96081631

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,979
Ngoai 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 Auto_Open 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 Ngoai Thanh

Ngoai Thanh

Cánh Diều xanh
Tham gia 14/6/12 Bài viết 823 Được thích 906
ndu96081631 đã viết: 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 Auto_Open 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 ------------------------ Hoàn toàn không hiểu vấn đề này nghĩa là sao nữa Nhấp chuột vào đây để mở rộng...
Cám ơn thày, nhưng sao nhà em copy code trên vào modunle nó không câp nhật vào thisWorkbook ạ ? chắc nhà em sai chỗ nào nhỉ ?

File đính kèm

  • Book1b.xls Book1b.xls 27 KB · Đọc: 25
Upvote 0 ndu96081631

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,979
Ngoai Thanh đã viết: Cám ơn thày, nhưng sao nhà em copy code trên vào modunle nó không câp nhật vào thisWorkbook ạ ? chắc nhà em sai chỗ nào nhỉ ? Nhấp chuột vào đây để mở rộng...
Sao không có chứ Untitled.jpg Upvote 0 Ngoai Thanh

Ngoai Thanh

Cánh Diều xanh
Tham gia 14/6/12 Bài viết 823 Được thích 906
ndu96081631 đã viết: Sao không có chứ View attachment 107632 Nhấp chuột vào đây để mở rộng...
Cám ơn thày,mải xem robocon quá . để nhà em xem lại tại sao máy nhà em nó không cập nhật

File đính kèm

  • anh.rar anh.rar 362.7 KB · Đọc: 21
Lần chỉnh sửa cuối: 18/8/13 Upvote 0 ndu96081631

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,979
Ngoai Thanh đã viết: Cám ơn thày,mải xem robocon quá . để nhà em xem lại tại sao máy nhà em nó không cập nhật Nhấp chuột vào đây để mở rộng...
Nếu bạn chỉ copy code cho vào thôi thì nó làm gì mà "cập" với "nhật" Bạn phải lưu và đóng file. Xong mở file lần nữa thì sẽ thấy code trong Thisworkbook Upvote 0 S

siwtom

Thành viên gắn bó
Tham gia 19/3/08 Bài viết 2,127 Được thích 4,211
Ngoai Thanh đã viết: Cám ơn thày, nhưng sao nhà em copy code trên vào modunle nó không câp nhật vào thisWorkbook ạ ? chắc nhà em sai chỗ nào nhỉ ? Nhấp chuột vào đây để mở rộng...
Tôi không hiểu cái lô gíc của bạn. Bạn dán vào module code của Auto_Open mà trong nó có toàn bộ code dành cho ThisWorkbook. Rồi phải save --> close --> open rồi mới thấy cập nhật. Chưa nói gì tới cập nhật. Nhưng tôi không hiểu sao bạn lại phải đi vòng vèo thế? Thay vì dán code "dài dài" Auto_Open thì bạn dán code "ngắn ngắn hơn" vào luôn ThisWorkbook. Ai cấm làm thế hả bạn? Thật là khó hiểu quá Upvote 0 Ngoai Thanh

Ngoai Thanh

Cánh Diều xanh
Tham gia 14/6/12 Bài viết 823 Được thích 906
siwtom đã viết: Tôi không hiểu cái lô gíc của bạn. Bạn dán vào module code của Auto_Open mà trong nó có toàn bộ code dành cho ThisWorkbook. Rồi phải save --> close --> open rồi mới thấy cập nhật. Chưa nói gì tới cập nhật. Nhưng tôi không hiểu sao bạn lại phải đi vòng vèo thế? Thay vì dán code "dài dài" Auto_Open thì bạn dán code "ngắn ngắn hơn" vào luôn ThisWorkbook. Ai cấm làm thế hả bạn? Thật là khó hiểu quá Nhấp chuột vào đây để mở rộng...
Trời ơi ! phiền cả thày NDU và thày Siwtom rồi . Nếu là làm thủ công thì nhà em làm được rồi . Nhưng nhân tiện xem tiêu đề tự động copy code vào tập tin nên nhà em hỏi và đúng ra là đã đạt yêu cầu rồi . Chỉ có điều không hiểu sao code trên không tự động cập nhật vào thisWorkbook .Tất nhiên là nhà em save và kể cả saves sau đó mới mở lại . Vẫn không được , hay office của nhà em bị lỗi nên không được . Xem code, đúng ra toàn bộ phần có dấu " của code phải vào thisWorkbook thì mới đúng, điều kỳ lạ là ...Có lẽ không dám phiền các thày nữa .Quan điểm nhà em là cố mà học, cố mà làm, cố mà hiểu, để từng chút tích lũy kinh nghiệm, tích lũy kiến thức thôi mà thày . Xin cám ơn các thày ! Lần chỉnh sửa cuối: 18/8/13 Upvote 0 S

siwtom

Thành viên gắn bó
Tham gia 19/3/08 Bài viết 2,127 Được thích 4,211
Ngoai Thanh đã viết: Trời ơi ! phiền cả thày NDU và thày Siwtom rồi . Nếu là làm thủ công thì nhà em làm được rồi . Nhưng nhân tiện xem tiêu đề tự động copy code vào tập tin nên nhà em hỏi và đúng ra là đã đạt yêu cầu rồi . Chỉ có điều không hiểu sao code trên không tự động cập nhật vào thisWorkbook .Tất nhiên là nhà em save và kể cả saves sau đó mới mở lại . Vẫn không được , hay office của nhà em bị lỗi nên không được . Xem code, đúng ra toàn bộ phần có dấu " của code phải vào thisWorkbook thì mới đúng, điều kỳ lạ là ...Có lẽ không dám phiền các thày nữa .Quan điểm nhà em là cố mà học, cố mà làm, cố mà hiểu, để từng chút tích lũy kinh nghiệm, tích lũy kiến thức thôi mà thày . Xin cám ơn các thày ! Nhấp chuột vào đây để mở rộng...
Bạn không hiểu ý tôi. Tôi không quan tâm tới chuyện có cập nhật hay không. Tôi chỉ không hiểu cái bạn định làm. Thay vì bạn dán vào module code Auto_Open để nó dán code của SUB vào ThisWorkbook thì sao bạn không dán luôn vào ThisWorkbook code của SUB? Tôi lấy ví dụ về việc làm hơi khác mà tôi lại hiểu. Một ngày đẹp trời bạn muốn thêm vào hàng loạt tập tin (chúng có cùng đặc điểm gì đó?) một code nào đó. Bạn có thể mở từng tập tin rồi dán code vào sau đó save. Nhưng bạn nghĩ: Thế trong tương lai lại có tình huống như thế thì chả nhẽ lại làm bằng tay? Thế là bạn viết 1 code: mở cửa sổ chọn các tập tin Excel --> chọn tập tin TXT chứa code --> mở từng tập tin --> thêm code từ tập tin trên đĩa --> save --> close --> mở tập tin mới. Code dùng nhiều lần, mãi mãi. Việc trên thì tôi hiểu nhưng việc bạn làm tôi không hiểu - không có tí lô gíc nào cả. Hoặc tôi chưa hiểu. Vì thế nên tôi hỏi. Upvote 0 Ngoai Thanh

Ngoai Thanh

Cánh Diều xanh
Tham gia 14/6/12 Bài viết 823 Được thích 906
siwtom đã viết: Bạn không hiểu ý tôi. Tôi không quan tâm tới chuyện có cập nhật hay không. Tôi chỉ không hiểu cái bạn định làm. Thay vì bạn dán vào module code Auto_Open để nó dán code của SUB vào ThisWorkbook thì sao bạn không dán luôn vào ThisWorkbook code của SUB? Tôi lấy ví dụ về việc làm hơi khác mà tôi lại hiểu. Một ngày đẹp trời bạn muốn thêm vào hàng loạt tập tin (chúng có cùng đặc điểm gì đó?) một code nào đó. Bạn có thể mở từng tập tin rồi dán code vào sau đó save. Nhưng bạn nghĩ: Thế trong tương lai lại có tình huống như thế thì chả nhẽ lại làm bằng tay? Thế là bạn viết 1 code: mở cửa sổ chọn các tập tin Excel --> chọn tập tin TXT chứa code --> mở từng tập tin --> thêm code từ tập tin trên đĩa --> save --> close --> mở tập tin mới. Code dùng nhiều lần, mãi mãi. Việc trên thì tôi hiểu nhưng việc bạn làm tôi không hiểu - không có tí lô gíc nào cả. Hoặc tôi chưa hiểu. Vì thế nên tôi hỏi. Nhấp chuột vào đây để mở rộng...
Thực ra nhà em có ý định ghi tập tin đó dưới dạng có đuôi .xla để khi cần thì chỉ cần gọi ADD-in để nó nạp Code trên vào ThisWorkbook ( không phải mở tập tin khác để copy code vào thisWookbook ). Thực ra cũng là một cách trải nghiệm xem liệu mình làm được gì không . Cũng như đi tàu, nhà em muốn thò cổ ra ngoài xem gì có khác không thôi mà . Cám ơn và xin chào thày . Upvote 0 ndu96081631

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,979
Ngoai Thanh đã viết: Chỉ có điều không hiểu sao code trên không tự động cập nhật vào thisWorkbook .Tất nhiên là nhà em save và kể cả saves sau đó mới mở lại . Vẫn không được , hay office của nhà em bị lỗi nên không được . Xem code, đúng ra toàn bộ phần có dấu " của code phải vào thisWorkbook thì mới đúng, điều kỳ lạ là ...Có lẽ không dám phiền các thày nữa .Quan điểm nhà em là cố mà học, cố mà làm, cố mà hiểu, để từng chút tích lũy kinh nghiệm, tích lũy kiến thức thôi mà thày . Xin cám ơn các thày ! Nhấp chuột vào đây để mở rộng...
Thế thì thí nghiệm tiếp: bấm Alt + F8, chọn Auto_Open rồi bấm Run thì nó có chạy không? Nếu nó vẫn không chèn được code vào Thisworkbook thì tôi hiểu vấn đề ở đâu rồi: - Nếu bạn dùng Excel 2003 thì vào menu Tools\Macro\Security ---> Chuyển sang tab Trusted Publishers và check vào mục Trust access to Visual Basic Project - Nếu bạn dùng Excel 2007 hoặc 2010, bấm tổ hợp phím Alt + T + M + S để vào phần Macro Settings và check vào mục Trust access to the VBA project object model Xong chạy lại code ---> Hy vọng đã đúng.. thuốc Ẹc... Ẹc... Lần chỉnh sửa cuối: 18/8/13 Upvote 0 Ngoai Thanh

Ngoai Thanh

Cánh Diều xanh
Tham gia 14/6/12 Bài viết 823 Được thích 906
ndu96081631 đã viết: Thế thì thí nghiệm tiếp: bấm Alt + F8, chọn Auto_Open rồi bấm Run thì nó có chạy không? Nếu nó vẫn không chèn được code vào Thisworkbook thì tôi hiểu vấn đề ở đâu rồi: - Nếu bạn dùng Excel 2003 thì vào menu Tools\Macro\Security ---> Chuyển sang tab Trusted Publishers và check vào mục Trust access to Visual Basic Project - Nếu bạn dùng Excel 2007 hoặc 2010, bấm tổ hợp phím Alt + T + M + S để vào phần Macro Settings và check vào mục Trust access to the VBA project object model Xong chạy lại code ---> Hy vọng đã đúng.. thuốc Ẹc... Ẹc... Nhấp chuột vào đây để mở rộng...
Thực ra nhà em mở hẳn mỗi thư mục mang tên một thày để lưu code hoặc công thức hay, nhà em không tin là code của thày không chạy . Nên chắc chắn do mình hoặc máy của nhà em có vấn đề . Tưởng thày chán "tên" học trò hay gây rắc rối, đang định vào thông báo và xin lỗi thày là đúng tên "Trust access to the VBA project object model" đã không được kích hoạt . Đúng thuốc rồi thày ạ !xin cám ơn sự tận tình giúp đỡ của thày . Lần chỉnh sửa cuối: 18/8/13 Upvote 0 Ngoai Thanh

Ngoai Thanh

Cánh Diều xanh
Tham gia 14/6/12 Bài viết 823 Được thích 906
ndu96081631 đã viết: 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 Auto_Open 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 ------------------------ Hoàn toàn không hiểu vấn đề này nghĩa là sao nữa Nhấp chuột vào đây để mở rộng...
Nhà em mạn phép hỏi thày Ndu thêm một chút . Tất cả ý tưởng thực hiện công việc nhà em đã hoàn tất . Nhưng sau khi hoàn tất lại thấy có vẻ không hợp lý lắm . Để thực hiện thay vì code đã được file .xla được gọi từ ADD-ins đã có code trên , lại phải impost nó từ ngoài vào . Vì vậy nhà em muốn thày giúp impost code trên sang thisWorkbook của bất kỳ file nào nếu đang mở song song cùng với tập tin có code này . Không biết có phiền thày không nữa ? Và cám ơn các thày đã không nặng lời khi thấy cái ý tưởng có vẻ dở hơi ... Upvote 0 ndu96081631

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,979
Ngoai Thanh đã viết: Nhà em mạn phép hỏi thày Ndu thêm một chút . Tất cả ý tưởng thực hiện công việc nhà em đã hoàn tất . Nhưng sau khi hoàn tất lại thấy có vẻ không hợp lý lắm . Để thực hiện thay vì code đã được file .xla được gọi từ ADD-ins đã có code trên , lại phải impost nó từ ngoài vào . Vì vậy nhà em muốn thày giúp impost code trên sang thisWorkbook của bất kỳ file nào nếu đang mở song song cùng với tập tin có code này . Không biết có phiền thày không nữa ? Và cám ơn các thày đã không nặng lời khi thấy cái ý tưởng có vẻ dở hơi ... Nhấp chuột vào đây để mở rộng...
Cho toàn bộ code dưới đây vào 1 Module Mã: Sao chép. Sub Auto_Open() With Application.CommandBars(1) .Reset With .Controls.Add(1, , , 1) .Caption = "Inset code" .OnAction = "InsertCode" .FaceId = 44 End With End With End Sub Sub Auto_Close() Application.CommandBars(1).Reset End Sub Sub InsertCode() On Error Resume Next With ActiveWorkbook.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 If Err.Number = 0 Then MsgBox "successfully inserted code into 'Thisworkbook'" End With End Sub Save File thành AddIn Gọi AddIn lên, bạn sẽ nhìn thấy 1 menu mới được tạo ra trên thanh menu (với tên là Insert code). Bấm vào nút Insert code rồi kiểm tra xem code đã được chèn vào file hiện hành chưa Upvote 0 Ngoai Thanh

Ngoai Thanh

Cánh Diều xanh
Tham gia 14/6/12 Bài viết 823 Được thích 906 Save File thành AddIn Gọi AddIn lên, bạn sẽ nhìn thấy 1 menu mới được tạo ra trên thanh menu (với tên là Insert code). Bấm vào nút Insert code rồi kiểm tra xem code đã được chèn vào file hiện hành chưa[/QUOTE] Cám ơn thày NDU! code chạy tốt rồi ạ ? GPE dạo này "chật quá" chen mãi không vào được, mà có vẻ "đỏng đảnh" nữa, lúc chạy rầm rầm lúc lại ì ra như bị "bó phanh", sốt cả ruột. Bấm nút cảm ơn không thì nhà em cảm thấy vẫn chưa an tâm, nếu ở gần nhà em phải đến tận nơi để cám ơn thày . Lần chỉnh sửa cuối: 24/8/13 Upvote 0 D

dlc

Thành viên mới
Tham gia 9/8/16 Bài viết 2 Được thích 0 hiện tại em đang làm 1 file excel thống kê thép, e muốn file tự động cập nhật hình dạng thép khi thay đổi mã hiệu thép, em đã thử dùng nhiều cách làm nhưng không đạt hiệu quả. Em gửi file lên mọi người giúp em nhé!!. Em cám ơn

File đính kèm

  • Book2.xlsx Book2.xlsx 33.7 KB · Đọc: 2
Upvote 0 tuankt007

tuankt007

Thành viên mới
Tham gia 24/5/08 Bài viết 15 Được thích 0 mong các bạn giúp tôi muốn chép code vào sheet khác đang mở thì làm sào? tks các bạn Upvote 0 tuankt007

tuankt007

Thành viên mới
Tham gia 24/5/08 Bài viết 15 Được thích 0 Tôi có đoạn code này muốn gán vào sheet : Dim rng As Range Dim FindString As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next n = Sheet1.Range("A65536").End(xlUp).Row i = Target.Row If Target.Address = "$A$1" Then Application.ScreenUpdating = False Sheet1.Cells.EntireRow.Hidden = False Sheet1.Range("A" & n + 2 & ":B65536").EntireRow.Hidden = True Sheet1.AutoFilterMode = False If Sheet1.Range("J6").Value = "PHI" & ChrW(7870) & "U CHI" Then ...... Else ............... End If Application.ScreenUpdating = True End If End Sub Upvote 0 Q

qthangvphaui

Thành viên mới
Tham gia 14/1/16 Bài viết 13 Được thích 0 Em muốn xóa bỏ code trong sheet mà không cần mở file thầy

ndu96081631​

giúp em với ạ. 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

L nhờ hoàn thiện file dò xổ số (5 người xem)
  • levovantoan
  • 22 phút trước
  • Giải thích, gỡ rối, xử lý lỗi công thức
Trả lời 0 Đọc 7 22 phút trước levovantoan L K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ...
  • kaoehtkid
  • Thứ hai lúc 19:04
  • Những vấn đề chung
Trả lời 13 Đọc 269 Hôm nay lúc 19:07 ongke0711 ongke0711 HeSanbi Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự
    • Thích
  • HeSanbi
  • Thứ bảy lúc 15:41
  • Xử lý chuỗi ký tự
Trả lời 2 Đọc 212 Hôm nay lúc 17:38 HeSanbi HeSanbi huuthang_bd Cùng xây dựng file Gia Phả
    • Thích
  • huuthang_bd
  • 30/12/13
  • Xây dựng ứng dụng.
Trả lời 43 Đọc 21K Hôm nay lúc 15:48 Maika8008 Maika8008 Nguyenkhang2404 Tính định mức sản phẩm (5 người xem)
    • Chấp nhận
  • Nguyenkhang2404
  • 24/7/25
  • Hàm và công thức Excel
Trả lời 11 Đọc 914 Hôm nay lúc 14:27 nguyenanhtruong2409 N T Lọc dự liệu với hai điều kiện
  • tiny1010
  • 16/3/10
  • Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu
Trả lời 18 Đọc 7K Hôm nay lúc 14:11 nguyenanhtruong2409 N N Tổng hợp 2 sheet khác nhau (có 1 cột dữ liệu trùng) trong goole sheet (2 người xem)
  • Na7979
  • Hôm nay lúc 14:01
  • Google Sheets
Trả lời 0 Đọc 11 Hôm nay lúc 14:01 Na7979 N D
  • Question Question
Tách dòng tự động theo điều kiện bằng VBA
    • Cười
  • duongnhuxuyen
  • 12/12/25
  • Lập Trình với Excel
Trả lời 17 Đọc 400 Hôm nay lúc 12:04 ptm0412 ptm0412 P Lỗi hàm VBA phải add-in sau mỗi lần mở file
  • phamdinh.huy.aladin@gmail
  • Thứ hai lúc 10:18
  • Hàm và công thức Excel
Trả lời 7 Đọc 227 Hôm nay lúc 08:11 minhnghia123 M PhanTuHuong Nếu diễn đàn GPE đóng cửa?
    • Thích
    • Yêu thích
  • PhanTuHuong
  • Chủ nhật lúc 23:46
  • Thư giãn
Trả lời 18 Đọc 620 Hôm nay lúc 00:08 Gà Con yêu VBA Gà Con yêu VBA M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA
    • Buồn
  • Mr_Siro
  • Thứ tư lúc 10:57
  • Giải thích, gỡ rối, xử lý lỗi công thức
Trả lời 5 Đọc 146 Hôm qua, lúc 13:23 Mr_Siro M P Tìm giá trị tồn kho đầu ngày (2 người xem)
  • ptthuongtn
  • Thứ tư lúc 15:15
  • Hàm và công thức Excel
Trả lời 3 Đọc 149 Hôm qua, lúc 11:22 Duy Tùng 9x Duy Tùng 9x skygatevn Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu
  • skygatevn
  • Thứ tư lúc 11:59
  • Hướng dẫn sử dụng các hàm trong Excel
Trả lời 3 Đọc 109 Thứ tư lúc 13:52 skygatevn skygatevn PhanTuHuong Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!
    • Yêu thích
  • PhanTuHuong
  • 10/12/25
  • Câu lạc bộ hoạt động xã hội
Trả lời 5 Đọc 329 Thứ tư lúc 12:43 GPE-Trợ Lý GPE-Trợ Lý D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện
  • dieppk.nb92
  • Chủ nhật lúc 01:22
  • Hàm và công thức Excel
Trả lời 14 Đọc 431 Thứ tư lúc 10:20 dieppk.nb92 D GPE-Trợ Lý CHUNG TAY HƯỚNG VỀ MIỀN TRUNG NĂM 2025
    • Thích
  • GPE-Trợ Lý
  • 24/11/25
  • Câu lạc bộ hoạt động xã hội
Trả lời 12 Đọc 904 Thứ tư lúc 07:38 PhanTuHuong PhanTuHuong HeSanbi
  • Đã giải quyết
WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại) (1 người xem)
    • Thích
    • Yêu thích
  • HeSanbi
  • 30/5/20
  • Lập Trình với Excel
Trả lời 92 Đọc 27K Thứ ba lúc 19:57 Maika8008 Maika8008 ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
  • ongke0711
  • 6/10/24
  • Lập Trình với Excel
4 5 6 Trả lời 580 Đọc 83K Thứ ba lúc 08:39 pycckuu410 pycckuu410 E
  • Đã giải quyết
VBA code thay thế cho pivot-table lấy top 10, bottom 10
    • Thích
  • eagle12
  • 8/12/25
  • Lập Trình với Excel
Trả lời 24 Đọc 591 Thứ hai lúc 16:19 eagle12 E H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel
  • H_P
  • Thứ bảy lúc 14:23
  • Tìm kiếm, dò tìm và tham chiếu
Trả lời 2 Đọc 157 Thứ hai lúc 05:30 DeTong D Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn 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

  • Maika8008 37
  • thanthanhan 22
  • dungpham01 19
  • ongke0711 19
  • eagle12 16
  • ptm0412 16
  • nguyenanhtruong2409 16
  • Phan Thế Hiệp 13
  • HUONGHCKT 12
  • vic_it 11
  • nhhnam 10
  • pycckuu410 10
  • Vũ Hải Sơn 9
  • HeSanbi 9
  • dieppk.nb92 8
  • Gà Con yêu VBA 8
  • bsbnhh 7
  • duongnhuxuyen 7
  • Hana2610 6
  • kaoehtkid 6

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

  • Phan Thế Hiệp 64
  • Maika8008 31
  • thanthanhan 18
  • ongke0711 17
  • ptm0412 16
  • HeSanbi 14
  • dungpham01 11
  • HUONGHCKT 9
  • eagle12 9
  • Cúc Hr 8
  • dieppk.nb92 6
  • Mr.hieudoanxd 5
  • befaint 5
  • SA_DQ 5
  • pycckuu410 5
  • Phuocam 4
  • nguyenanhtruong2409 4
  • nhhnam 2
  • Mr_Siro 2
  • Gà Con yêu VBA 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025
  • Trang chủ
  • Diễn đàn
  • 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

Từ khóa » Cách Xóa Code Vba Trong Excel