Notifications
Clear all

Editor VBA

16 Posts
3 Usuários
0 Reactions
2,236 Visualizações
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

Existe algum Editor de código VBA fora o próprio?
achei para outras linguagens, mas não para vba.

Explico,
minha macro apesar de ser simples tem um fluxo lógico meio complicado "sem falar das variáveis malucas que eu criei"
um bloco da macro que vai passar por vários seguimentos até chegar no bloco final "mesma macro"
então eu sou obrigado a ficar percorrendo a folha para fazer a macro.

sei que tem o marcador de posição mas não me dei muito bem com aquilo.
Até

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 22/04/2014 11:04 am
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

bem achei um que que tem as mesma coisas do outro mas parece que é mais completo e totalmente voltado para o BASIC

FbEdit FreeBASIC code editor
http://sourceforge.net/projects/fbedit/ ... ecommended

é pequeno e não precisa instalar.

como ele recolhe parte do código pode ajudar na edição de códigos extensos
identificou corretamente inicio e fim dos loops e dos if
isso:

If Vert_O = True Then
Dim OcqL As Long
        Dim Lig As Long
                    If OLinesC <> "" Then OcqL = OLinesC Else OcqL = Cq
             If OcqL < 1 Or OcqL > TLio Then MsgBox "Valo de quadrante  entre " & "1 " & TLio: GoTo Saida
             
        Lig = 1: Zig = 1
        OLic = OLf - (OcqL - 1): OLfc = OLf
        Loi = OLic - 1
        Cqo = Oci
        
        If Oinvert_Col = True Then Zig = -1: Oci = Ocf: Ocf = Cqo: Cqo = Oci '----( inverte ordem leitura coluna )
        If Invert_O = True Then Lig = -1: OLic = OLf: OLfc = OLf - (OcqL - 1): Loi = OLic + 1
        If Zigi = True Then OLfc = OLfc + Lig: OLic = OLic + (Lig * -1)

End If 'Vert_O
If Vert_D = True Then

        Dim Lag As Long
                    If DLinesC <> "" Then DcqL = DLinesC Else DcqL = Cq_O
             If DcqL < 1 Or DcqL > TLio Then MsgBox "Valo de quadrante  entre " & "1 " & TLio: GoTo Saida
             
        Lag = 1: Zag = 1
        DLic = OLf - (DcqL - 1): DLfc = OLf
        Ldi = DLic - 1
        Cqd = Dci
        
        If Dinvert_Col = True Then Zag = -1: Dci = Dcf: Dcf = Cqd: Cqd = Dci '----( inverte ordem leitura coluna )
        If Invert_D = True Then Lag = -1: DLic = OLf: DLfc = OLf - (DcqL - 1): Ldi = DLic + 1
        If Zagi = True Then DLfc = DLfc + Lag: DLic = DLic + (Lag * -1)

End If 'Vert_D

ficou assim:

If Vert_O = True Then
End If 'Vert_O
If Vert_D = True Then
End If 'Vert_D

tbm recolhe a macro inteira, ficando apenas a que se está trabalhando.

só achei o menu pequeno, numa tela de 32" tem que chegar pertinho para enxergar.
mas são parecidos com o do VBA
cria uma lista das macros em uma caixa separada, e dando duplo click dá para ir direto
em meu pc falhou a troca de cor de parte da macro

tbm senti falta do zoom com ctrl e a roda do mouse, mas como foi uma analise de apenas uns 2 minutos

Alguém mais experiente poderia analisar e vê se existe algum inconveniente em se usar para editar as macro?

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 25/04/2014 11:48 am
Página 2 / 2