Đặt tên Module theo danh mục ngoài bảng tính ?

[TrungChinhs]

Chào các bạn: Tôi muốn đặt tên Module theo tên từ một danh mục ngoài bảng tính để tiên cho việc quản lý, sử dụng.
ví dụ tại ô B5 tôi đặt tên Module_TinhTong thì làm thế nào để gán được tên này vào tên của Modules trong VBE ?
Bạn nào biết giúp tôi với. Thanks !

 

[dat2007]

Sub RnModule()
  ActiveWorkbook.VBProject.VBComponents("Module1").Name = Cells(5, 2)
End Sub

Chọn: Trust access to the VBA ... trong MacroSettings

 

[TrungChinhs]

Vậy làm thế nào lấy được tên của Macro hoặc Sub hoặc Function trong Module. Rất mong Dat2007 và các bạn giúp đỡ. Thanks !

 

[ndu96081631]

Vậy làm thế nào lấy được tên của Macro hoặc Sub hoặc Function trong Module. Rất mong Dat2007 và các bạn giúp đỡ. Thanks !

Anh xem bài viết của paulsteigel tại webketoan nhé:
http://webketoan.com/forum/showthread.php?t=7875&page=4
Chú ý đoạn này:

Liệt kê tất cả các thủ tục trong một Module
Sau đây là một ví dụ trong đó tất cả các thủ tục trong Module "MyModule" thuộc ThisWorkbook sẽ được liệt kê ra.

Sub ListProcs()
   Dim VBCodeMod As CodeModule
   Dim StartLine As Long
   Dim Msg As String
   Dim ProcName As String
   Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("MyModule").Co  deModule
   With VBCodeMod
     StartLine = .CountOfDeclarationLines + 1
     Do Until StartLine >= .CountOfLines
       Msg = Msg & .ProcOfLine(StartLine, vbext_pk_Proc) & vbCrlf
       StartLine = StartLine + .ProcCountLines(.ProcOfLine(StartLine, vbext_pk_Proc), vbext_pk_Proc)
     Loop
   End With
   MsgBox Msg
End Sub

Chú ý thêm đoạn này nữa:

Trong màn hình soạn thảo VBA, chọn Tools, chọn mục Reference và chọn thư viện "Microsoft Visual Basic For Applications Extensibility" qua hộp kiểm bên cạnh. Công việc này sẽ cho phép VBA tìm ra những định nghĩa cần thiết của các đối tượng thuộc VBA như Module, Component...

Đây cũng chỉ là cách liệt kê tất cả thủ tục có trong 1 module --> Còn việc đổi tên nó thì thật sự em không biết