如何在vba编辑器中自动填充行号? [英] How to auto populate line number in vba editor?
问题描述
你不想要行号。 / h2>
不是为了调试原因,不是任何东西。行号已被弃用,原因如下:它们是程序之前的古代遗物,而 GOTO
是获取任何地方的唯一途径。
如 Documentation.SO , Erl
只返回错误发生之前的最后遇到的行号。这可能意味着误导日志,如果您记录错误:
Sub DoSomething()
10 On Error GoTo 50
Debug.Print 42/0
30退出子
50 Debug.Print在线上出现错误& Erl'返回10
End Sub
此外,行号只有整数
分辨率(一个VBA模块最多可以有65,535行,这是分辨率的两倍),如果您不记住这一点,将会默默地失败并高兴地报告错误的行号: p>
Sub DoSomething()
99997 On Error GoTo 99999
99998 Debug.Print 42/0
99999
Debug.Print Erl'打印34462 - 哪一行是?
End Sub
任何严重的VBA应用程序都将使用结构化错误处理
编写小而专门的程序(即编写符合现代最佳做法的代码),行号完全无意义。
行号是保持颈部的痛苦;他们混淆了代码,使其整体更难阅读(因此进行调试)。
说,IIRC MZ -Tools 3有这样的功能。
请记住,当行号是一件事时,BASIC看起来像这样:
10 GOSUB 100
20 GOSUB 1000
99 END
100 REM CLEAR SCREEN
110打印CHR $(147)
120返回
200 REM MODULO
210 LET MOD%= V%-INT(V%/ FB%)* FB%
220返回
1000 REM INIT VARIABLES
1010 LET FIZZ $ =FIZZ
1011 LET BUZZ $ =BUZZ
1020 LET FIZZ%= 3
1021 LET BUZZ%= 5
1030 LET MIN% = 1
1031 LET MAX%= 15
1100 PRINT FIZZ $ +:+ STR $(FIZZ%)
1101 PRINT BUZZ $ +:+ STR(BUZZ%)
1102 PRINT FIZZ $ + BUZZ $ +:+ STR $(FIZZ%* BUZZ%)
1105 PRINT
2000 REM ACTUAL FIZZBUZZ LOOP
2010 FOR X = MIN%TO MAX%
2015 LET RESULT $ = STR $(X)
2020 LET FB%= FIZZ%* BUZZ%
2021 LET V%= X
2024 GOSUB 200
2025 IF M OD%= 0 THEN LET RESULT $ = FIZZ $ + BUZZ $:GOTO 2050
2030 LET FB%= FIZZ%
2031 GOSUB 200
2035 IF MOD%= 0 THEN LET RESULT $ = FIZZ $:GOTO 2050
2040 LET FB%= BUZZ%
2041 GOSUB 200
2045 IF MOD%= 0 THEN LET RESULT $ = BUZZ $:GOTO 2050
2050打印结果$
2090 NEXT X
2099 RETURN
以上是一个工作的Commodore 64 BASIC 2.0 fizzbuzz program。 VBA具有出色的向后兼容性。只有轻微的修改,它运行在VBA中:
Sub Main()
10 GoSub 100
20 GoSub 1000
99 End
100 Rem CLEAR SCREEN
110'Debug.Print Chr $(147)'Chr $(147)是C64上的一个特殊字符
120返回
200 Rem MODULO
210让模数%= V% - Int(V%/ FB%)* FB%
220返回
1000 Rem INIT VARIABLES
1010让FIZZ $ =FIZZ
1011让BUZZ $ =BUZZ
1020让FZZ%= 3
1021让BZZ%= 5
1030让最小%= 1
1031让Max%= 15
1100 Debug.Print FIZZ $ +:+ Str $(FZZ%)
1101 Debug.Print BUZZ $ +:+ Str(BZZ%)
1102 Debug.Print FIZZ $ + BUZZ $ +:+ Str $(FZZ%* BZZ%)
1105 Debug.Print
2000 Rem实际FIZZBUZZ LOOP
2010对于X =最小%To Max%
2015让RESULT $ = Str $(X)
2020让FB%= FZZ%* BZZ%
2021让V%= X
2024 GoSub 200
2025如果模数%= 0然后让RESULT $ = FIZZ $ + BUZZ $:GoTo 2050
2030让FB%= FZZ%
2031 GoSub 200
2035如果模数%= 0然后让RESULT $ = FIZZ $:GoTo 2050
2040让FB%= BZZ%
2041 GoSub 200
2045如果模数%= 0然后让RESULT $ = BUZZ $:GoTo 2050
2050 Debug.Print RESULT $
2090下一个X
2099返回
结束子
不要写1980年代码,我们30年后。
Is there a macro that can auto populate the line number for a vba editor? I want to line number for debugging reasons as to know where the error occured.
You don't want line numbers.
Not for "debugging reasons", not for anything. Line numbers are deprecated for a reason: they're a relic of an ancient time before procedures even existed, and GOTO
the only way to get anywhere.
As shown in Documentation.SO, Erl
only returns the last encountered line number before an error was raised. This can mean misleading error logs, if you're logging errors:
Sub DoSomething()
10 On Error GoTo 50
Debug.Print 42 / 0
30 Exit Sub
50 Debug.Print "Error raised on line " & Erl 'returns 10
End Sub
Also, line numbers only have Integer
resolution (a VBA module can have up to 65,535 lines, which is twice that resolution), and will silently fail and happily report wrong line numbers if you don't keep that in mind:
Sub DoSomething()
99997 On Error GoTo 99999
99998 Debug.Print 42 / 0
99999
Debug.Print Erl 'Prints 34462 - and which line is that?
End Sub
Any serious VBA application will use structured error handling instead.
Write small, specialized procedures (i.e. write code that follows modern-day best practices), and the line number becomes utterly meaningless.
Line numbers are a pain in the neck to maintain; they clutter up the code and make it overall harder to read (and therefore to debug).
That said, IIRC MZ-Tools 3 had such a functionality.
Keep in mind, that BASIC looked like this when line numbers were a thing:
10 GOSUB 100
20 GOSUB 1000
99 END
100 REM CLEAR SCREEN
110 PRINT CHR$(147)
120 RETURN
200 REM MODULO
210 LET MOD% = V%-INT(V%/FB%)*FB%
220 RETURN
1000 REM INIT VARIABLES
1010 LET FIZZ$ = "FIZZ"
1011 LET BUZZ$ = "BUZZ"
1020 LET FIZZ% = 3
1021 LET BUZZ% = 5
1030 LET MIN% = 1
1031 LET MAX% = 15
1100 PRINT FIZZ$ + ":" + STR$(FIZZ%)
1101 PRINT BUZZ$ + ":" + STR(BUZZ%)
1102 PRINT FIZZ$ + BUZZ$ + ":" + STR$(FIZZ%*BUZZ%)
1105 PRINT
2000 REM ACTUAL FIZZBUZZ LOOP
2010 FOR X = MIN% TO MAX%
2015 LET RESULT$ = STR$(X)
2020 LET FB% = FIZZ%*BUZZ%
2021 LET V% = X
2024 GOSUB 200
2025 IF MOD%=0 THEN LET RESULT$=FIZZ$+BUZZ$ : GOTO 2050
2030 LET FB% = FIZZ%
2031 GOSUB 200
2035 IF MOD%=0 THEN LET RESULT$=FIZZ$ : GOTO 2050
2040 LET FB% = BUZZ%
2041 GOSUB 200
2045 IF MOD%=0 THEN LET RESULT$=BUZZ$ : GOTO 2050
2050 PRINT RESULT$
2090 NEXT X
2099 RETURN
The above is a working Commodore 64 BASIC 2.0 fizzbuzz program. VBA has fabulous backward-compatibility. With only slight modifications, it runs in VBA:
Sub Main()
10 GoSub 100
20 GoSub 1000
99 End
100 Rem CLEAR SCREEN
110 'Debug.Print Chr$(147) 'Chr$(147) was a special character on C64
120 Return
200 Rem MODULO
210 Let Modulo% = V% - Int(V% / FB%) * FB%
220 Return
1000 Rem INIT VARIABLES
1010 Let FIZZ$ = "FIZZ"
1011 Let BUZZ$ = "BUZZ"
1020 Let FZZ% = 3
1021 Let BZZ% = 5
1030 Let Min% = 1
1031 Let Max% = 15
1100 Debug.Print FIZZ$ + ":" + Str$(FZZ%)
1101 Debug.Print BUZZ$ + ":" + Str(BZZ%)
1102 Debug.Print FIZZ$ + BUZZ$ + ":" + Str$(FZZ% * BZZ%)
1105 Debug.Print
2000 Rem ACTUAL FIZZBUZZ LOOP
2010 For X = Min% To Max%
2015 Let RESULT$ = Str$(X)
2020 Let FB% = FZZ% * BZZ%
2021 Let V% = X
2024 GoSub 200
2025 If Modulo% = 0 Then Let RESULT$ = FIZZ$ + BUZZ$: GoTo 2050
2030 Let FB% = FZZ%
2031 GoSub 200
2035 If Modulo% = 0 Then Let RESULT$ = FIZZ$: GoTo 2050
2040 Let FB% = BZZ%
2041 GoSub 200
2045 If Modulo% = 0 Then Let RESULT$ = BUZZ$: GoTo 2050
2050 Debug.Print RESULT$
2090 Next X
2099 Return
End Sub
Don't write 1980's code, we're 30 years later.
这篇关于如何在vba编辑器中自动填充行号?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!