Cách xóa đoạn code cũ, thay thế bằng 1 đoạn code mới mà không mở file. (1 người xem)

Hai Lúa Miền Tây · 12/5/10

Xin các anh chị vui lòng hướng dẫn em Cách xóa đoạn code cũ, thay thế bằng 1 đoạn code mới mà không mở file (Có Pass ở VBA).

Do em có nhiều file Excel có code, bây giờ muốn cập nhật code mới nhưng mở từ file, mở từng pass (Có 1 pass duy nhất) rồi xóa code cũ, thay thế code cũ = code mới.

Em xin cám ơn trước.

ndu96081631 · 12/5/10

domfootwear đã viết:
Xin các anh chị vui lòng hướng dẫn em Cách xóa đoạn code cũ, thay thế bằng 1 đoạn code mới mà không mở file (Có Pass ở VBA).
Do em có nhiều file Excel có code, bây giờ muốn cập nhật code mới nhưng mở từ file, mở từng pass (Có 1 pass duy nhất) rồi xóa code cũ, thay thế code cũ = code mới.
Em xin cám ơn trước.

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:

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:

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

nam2806 · 12/5/10

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

TrungChinhs · 12/5/10

@ 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 !

ndu96081631 · 12/5/10

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 !

Anh phải cho em xem luôn file CodeMau.txt em mới biết lỗi gì chứ

TrungChinhs · 12/5/10

ndu96081631 đã viết:
Anh phải cho em xem luôn file CodeMau.txt em mới biết lỗi gì chứ

@ 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.

ndu96081631 · 12/5/10

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.

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!

Hai Lúa Miền Tây · 13/5/10

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!

Em đang "Vật lộn" với cái đường dẫn chết tuyệt của cái file text đó, làm sao cho nó linh hoạt hơn, mong Thầy chỉ tiếp giú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

Cái này thì mình vẫn làm, làm bằng tay, phải mở Pass, rất mất thời gian.
Còn nếu như dùng code thì file nào có Pass VBA thì thua, nó không cho chèn code vào.

ndu96081631 · 13/5/10

domfootwear đã viết:
Em đang "Vật lộn" với cái đường dẫn chết tuyệt của cái file text đó, làm sao cho nó linh hoạt hơn, mong Thầy chỉ tiếp giúp.

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:

Sub ImportModule()
  Dim Txtfile As String
  Txtfile = "gì gì đó"
  ExecuteExcel4Macro ("VBA.INSERT.FILE(""" & Txtfile & """)")
End Sub

Hai Lúa Miền Tây · 13/5/10

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)

Là em đang tìm cách thay thế đường dẫn dẩn đến file text bằng Dialog, nhưng chưa được.

ndu96081631 · 13/5/10

domfootwear đã viết:
Là em đang tìm cách thay thế đường dẫn dẩn đến file text bằng Dialog, nhưng chưa được.

Sao lại không được nhỉ?

PHP:

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

Hai Lúa Miền Tây · 13/5/10

ndu96081631 đã viết:
Sao lại không được nhỉ?

PHP:

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

Vấn đề nằm ở chổ là mấy cái dấu """, em chưa hiểu chổ đó, thường thì Text nằm trong "" trong trường hợp này nó "vật" em hôm qua đến nay.

ndu96081631 · 13/5/10

domfootwear đã viết:
Vấn đề nằm ở chổ là mấy cái dấu """, em chưa hiểu chổ đó, thường thì Text nằm trong "" trong trường hợp này nó "vật" em hôm qua đến nay.

Cách đơn giản nhất là THÍ NGHIỆM
Tôi sẽ làm thế này:

PHP:

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:

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:

 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

Hai Lúa Miền Tây · 13/5/10

Đúng là khi ra kết quả mới thấy nó đơn giản.
Hôm qua đến giờ em chỉ đến trường hợp 1+2

Ngoai Thanh · 17/8/13

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:

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:

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

xin hỏi thày NDU nếu ta copy code vào Thisworkbook thì code trên sửa thế thế nào ạ ?

ndu96081631 · 17/8/13

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 ạ ?

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ứ

Ngoai Thanh · 17/8/13

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à 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á .

ndu96081631 · 17/8/13

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á .

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

Ngoai Thanh · 18/8/13

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

"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 .

ndu96081631 · 18/8/13

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 .

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ã:

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 Aut

pen 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

Hoàn toàn không hiểu vấn đề này nghĩa là sao nữa

Ngoai Thanh · 18/8/13

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ã:

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

Hoàn toàn không hiểu vấn đề này nghĩa là sao nữa

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ỉ ?

ndu96081631 · 18/8/13

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ỉ ?

Sao không có chứ

Ngoai Thanh · 18/8/13

ndu96081631 đã viết:
Sao không có chứ

View attachment 107632

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

ndu96081631 · 18/8/13

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

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

siwtom · 18/8/13

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ỉ ?

Tôi không hiểu cái lô gíc của bạn.
Bạn dán vào module code của Aut

pen mà trong nó có toàn bộ code dành cho ThisWorkbook. Rồi phải save --> close --> open rồi mới thấy cập nhật. Chưa nói gì tới cập nhật. Nhưng tôi không hiểu sao bạn lại phải đi vòng vèo thế? Thay vì dán code "dài dài" Aut

pen thì bạn dán code "ngắn ngắn hơn" vào luôn ThisWorkbook. Ai cấm làm thế hả bạn?
Thật là khó hiểu quá

Ngoai Thanh · 18/8/13

siwtom đã viết:
Tôi không hiểu cái lô gíc của bạn.
Bạn dán vào module code của Autpen mà trong nó có toàn bộ code dành cho ThisWorkbook. Rồi phải save --> close --> open rồi mới thấy cập nhật. Chưa nói gì tới cập nhật. Nhưng tôi không hiểu sao bạn lại phải đi vòng vèo thế? Thay vì dán code "dài dài" Autpen thì bạn dán code "ngắn ngắn hơn" vào luôn ThisWorkbook. Ai cấm làm thế hả bạn?
Thật là khó hiểu quá

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 !

siwtom · 18/8/13

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 !

Bạn không hiểu ý tôi. Tôi không quan tâm tới chuyện có cập nhật hay không. Tôi chỉ không hiểu cái bạn định làm. Thay vì bạn dán vào module code Aut

pen để nó dán code của SUB vào ThisWorkbook thì sao bạn không dán luôn vào ThisWorkbook code của SUB?

Tôi lấy ví dụ về việc làm hơi khác mà tôi lại hiểu.

Một ngày đẹp trời bạn muốn thêm vào hàng loạt tập tin (chúng có cùng đặc điểm gì đó?) một code nào đó. Bạn có thể mở từng tập tin rồi dán code vào sau đó save. Nhưng bạn nghĩ: Thế trong tương lai lại có tình huống như thế thì chả nhẽ lại làm bằng tay? Thế là bạn viết 1 code: mở cửa sổ chọn các tập tin Excel --> chọn tập tin TXT chứa code --> mở từng tập tin --> thêm code từ tập tin trên đĩa --> save --> close --> mở tập tin mới.

Code dùng nhiều lần, mãi mãi.

Việc trên thì tôi hiểu nhưng việc bạn làm tôi không hiểu - không có tí lô gíc nào cả. Hoặc tôi chưa hiểu. Vì thế nên tôi hỏi.

Ngoai Thanh · 18/8/13

siwtom đã viết:
Bạn không hiểu ý tôi. Tôi không quan tâm tới chuyện có cập nhật hay không. Tôi chỉ không hiểu cái bạn định làm. Thay vì bạn dán vào module code Autpen để nó dán code của SUB vào ThisWorkbook thì sao bạn không dán luôn vào ThisWorkbook code của SUB?

Tôi lấy ví dụ về việc làm hơi khác mà tôi lại hiểu.

Một ngày đẹp trời bạn muốn thêm vào hàng loạt tập tin (chúng có cùng đặc điểm gì đó?) một code nào đó. Bạn có thể mở từng tập tin rồi dán code vào sau đó save. Nhưng bạn nghĩ: Thế trong tương lai lại có tình huống như thế thì chả nhẽ lại làm bằng tay? Thế là bạn viết 1 code: mở cửa sổ chọn các tập tin Excel --> chọn tập tin TXT chứa code --> mở từng tập tin --> thêm code từ tập tin trên đĩa --> save --> close --> mở tập tin mới.

Code dùng nhiều lần, mãi mãi.

Việc trên thì tôi hiểu nhưng việc bạn làm tôi không hiểu - không có tí lô gíc nào cả. Hoặc tôi chưa hiểu. Vì thế nên tôi hỏi.

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 .

ndu96081631 · 18/8/13

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 !

Thế thì thí nghiệm tiếp: bấm Alt + F8, chọn Autpen 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...

Ngoai Thanh · 18/8/13

ndu96081631 đã viết:
Thế thì thí nghiệm tiếp: bấm Alt + F8, chọn Autpen 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...

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 .

Ngoai Thanh · 23/8/13

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ã:

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

Hoàn toàn không hiểu vấn đề này nghĩa là sao nữa

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 ...

ndu96081631 · 24/8/13

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 ...

Cho toàn bộ code dưới đây vào 1 Module

Mã:

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

Ngoai Thanh · 24/8/13

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 .

dlc · 9/8/16

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

tuankt007 · 30/5/17

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

tuankt007 · 30/5/17

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

qthangvphaui · 29/9/21

Em muốn xóa bỏ code trong sheet mà không cần mở file thầy

ndu96081631

giúp em với ạ.

Cách xóa đoạn code cũ, thay thế bằng 1 đoạn code mới mà không mở file. (1 người xem)

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

❆❆❆❆❆❆❆❆

Huyền thoại GPE

Thành viên hoạt động

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

File đính kèm

Huyền thoại GPE

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

Huyền thoại GPE

❆❆❆❆❆❆❆❆

Huyền thoại GPE

❆❆❆❆❆❆❆❆

Huyền thoại GPE

❆❆❆❆❆❆❆❆

Huyền thoại GPE

❆❆❆❆❆❆❆❆

Cánh Diều xanh

Huyền thoại GPE

Cánh Diều xanh

File đính kèm

Huyền thoại GPE

Cánh Diều xanh

File đính kèm

Huyền thoại GPE

Cánh Diều xanh

File đính kèm

Huyền thoại GPE

Cánh Diều xanh

File đính kèm

Huyền thoại GPE

Thành viên gắn bó

Cánh Diều xanh

Thành viên gắn bó

Cánh Diều xanh

Huyền thoại GPE

Cánh Diều xanh

Cánh Diều xanh

Huyền thoại GPE

Cánh Diều xanh

Thành viên mới

File đính kèm

Thành viên mới

Thành viên mới

Thành viên mới

ndu96081631​

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

ndu96081631