How to comment and uncomment some lines using vba code

[alex gomes]

I want uncomment some line of codes(line no 5 to 10) in "abc" module and put a break point in one line(suppose line no 7) ,then i want to remove the break point from the line and comment the lines again.

How to achieve this by using vba code?

 

[NARAYANK991]

Hi ,

See if these links help :

http://www.mrexcel.com/forum/excel-...mment-out-line-visual-basic-applications.html

http://stackoverflow.com/questions/11634957/set-breakpoint-in-vba-code-programmatically

Narayan

 

[Debaser]

There is no programmatic access to breakpoints. Why do you need to do this?

 

[alex gomes]

Thank you for your reply,
Atleast can i comment and uncomment specific lines as described in question

 

[Debaser]

Yes - the basic code is:

Sub CommentLines1to5()
    Dim n As Long
    With ThisWorkbook.VBProject.VBComponents("abc").CodeModule
        For n = 1 To 5
            .ReplaceLine n, "'" & .Lines(n, 1)
        Next n
    End With
End Sub
Sub UncommentLines1to5()
    Dim n As Long
    With ThisWorkbook.VBProject.VBComponents("abc").CodeModule
        For n = 1 To 5
            .ReplaceLine n, Mid$(.Lines(n, 1), 2)
        Next n
    End With
End Sub

Note that:
- You must have trusted access to the Visual Basic Project in the Trust Center settings.
- You must supply the line numbers of the lines in the entire module, not in the procedure. You'd need quite a bit more code to make it procedure specific.
- Clicking the comment/uncomment buttons is as easy IMO.

 

[alex gomes]

Can I make it generic ,As I Have to call this multiple times with different line numbers.
Thanks

 

[Debaser]

Pass the line numbers as parameters:

Sub CommentLines1to5(lStart as Long, lStop as Long)
   Dim n As Long
   With ThisWorkbook.VBProject.VBComponents("abc").CodeModule
       For n = lStart To lStop
            .ReplaceLine n, "'" & .Lines(n, 1)
       Next n
   End With
End Sub
Sub UncommentLines1to5(lStart as Long, lStop as Long)
   Dim n As Long
   With ThisWorkbook.VBProject.VBComponents("abc").CodeModule
       For n = lStart To lStop
            .ReplaceLine n, Mid$(.Lines(n, 1), 2)
       Next n
   End With
End Sub

 

[alex gomes]

thanks a lot!!!

 

[Debaser]

Just note that I do not in any way mean to suggest that this is good practice.