Hỏi cách lấy tên các biến đã khai báo vào ô Cell

[hung2412]

Xin chào các bạn GPE!
Tôi có khai báo các biến như thế này:

Public i As Long
Public rng As Range
Public Tam
Public Dic As Object
Public k As String

Làm thế nào để lấy tên các biến đã khai báo vào ô Cell như thế này?

Mong các bạn chỉ giúp
Xin cảm ơn!

 

[bebo021999]

Test thử cái này
Bạn dùng 1 trong 2 dòng này:

Nếu chỉ lấy "Public"
If line Like "Public *" Then
Nếu muốn lấy hết phần khai báo biến (trong sub):
If line Like "Public *" Or line Like "Dim *" Or line Like "Conts *" Then

Code chính:

Option Explicit
Public i As Long
Public rng As Range
Public Tam
Public Dic As Object
Public k As String
Sub Hoi_cach_Module1_da_khai_bao_vao_o_Cell()
Dim code As String, lines, line
code = ThisWorkbook.VBProject.VBComponents("Lay_ten_bien").CodeModule.lines(1, _
        ThisWorkbook.VBProject.VBComponents("Lay_ten_bien").CodeModule.CountOfLines)
lines = Split(code, vbCrLf)
For Each line In lines
    'If line Like "Public *" Then
    If line Like "Public *" Or line Like "Dim *" Or line Like "Conts *" Then
        Range("B1000").End(xlUp).Offset(1, 0).Value = line
    End If
Next
End Sub

 

[hung2412]

code = ThisWorkbook.VBProject.VBComponents("Lay_ten_bien").CodeModule.lines(1, _
ThisWorkbook.VBProject.VBComponents("Lay_ten_bien").CodeModule.CountOfLines)

Cảm ơn bạn.
Cái từ "Lay_ten_bien" tôi không thấy bạn khai báo. Tôi có khai báo nó và tôi chạy thử thì nó báo là

Không hiểu vì sao, mong bạn chỉ giúp với

 

[huhumalu]

Sub InThongTinBienTrongDuAns()
    Dim vbProj As Object
    Dim vbComp As Object
    Dim vbModule As Object
    Dim lineNum As Long
    Dim codeLine As String

    Set vbProj = Application.VBE.ActiveVBProject

    For Each vbComp In vbProj.VBComponents
        If vbComp.CodeModule.CountOfLines > 0 Then
            Set vbModule = vbComp.CodeModule
            
            For lineNum = 1 To vbModule.CountOfLines
                codeLine = vbModule.lines(lineNum, 1)
                If Left(codeLine, Len("Public")) = "Public" Then
                    Debug.Print codeLine
                End If
            Next lineNum
        End If
    Next vbComp
End Sub

Bạn tự chế biến để in xuống sheets.

 

[bebo021999]

Cảm ơn bạn.
Cái từ "Lay_ten_bien" tôi không thấy bạn khai báo. Tôi có khai báo nó và tôi chạy thử thì nó báo là

"Lay_ten_bien" là tên của module chứa code mà muốn kết xuất chuỗi Text ra nhé

 

[truongvu317]

Sub InThongTinBienTrongDuAns()
    Dim vbProj As Object
    Dim vbComp As Object
    Dim vbModule As Object
    Dim lineNum As Long
    Dim codeLine As String

    Set vbProj = Application.VBE.ActiveVBProject

    For Each vbComp In vbProj.VBComponents
        If vbComp.CodeModule.CountOfLines > 0 Then
            Set vbModule = vbComp.CodeModule
           
            For lineNum = 1 To vbModule.CountOfLines
                codeLine = vbModule.lines(lineNum, 1)
                If Left(codeLine, Len("Public")) = "Public" Then
                    Debug.Print codeLine
                End If
            Next lineNum
        End If
    Next vbComp
End Sub

Bạn tự chế biến để in xuống sheets.

tôi chạy thì được như này, chủ thớt hông rõ có cần liệt kê biến local hông nhỉ?

 

[hung2412]

View attachment 297161



tôi chạy thì được như này, chủ thớt hông rõ có cần liệt kê biến local hông nhỉ?

Không bạn ơi. (Gõ cho thêm ký tự)

 

[HeSanbi]

Khi truy cập mã VBA của dự án, điều kiện tiên quyết là cần đánh dấu tích xác nhận trong cài đặt Trust Center.