[[20230305103821]] 『VBEのコードウィンドウに行番号』(はる) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『VBEのコードウィンドウに行番号』(はる)

お世話になります。

Visual Basic Editor のコードウィンドウにエラー発生時に行番号を表示したいのですが
コードウィンドウに行番号を表示させる方法はありますでしょうか。
宜しくお願い致します。

< 使用 Excel:Excel2019、使用 OS:Windows10 >


アドインしか方法はないと思います。
検索すればすぐヒットするので、知ってるかもしれませんが。
https://ichinosenanami.com/tec/2020/02/19/post-28/
(フォーキー) 2023/03/05(日) 10:57:27

フォーキーさん

 以前にAddLineNumbers(addlinenumbers141.zip)はコードウィンドウ外に
 行番号が表示されますがエラー時には反映されませんでした。

 >アドインしか方法はないと思います。
 勉強になりました。

 ありがとうございました。

(はる) 2023/03/05(日) 11:21:02


私は、MZ-Toolsと言うアドインを利用しています。

https://www.wordvbalab.com/code/3032/

このアドインの機能の中にコードに行番号を付加する機能があります。

      行番号を追加/削除する (VB)

      メソッド、クラス、ファイル、プロジェクトなどのソース コードに行番号を追加または削除して、
      ドキュメント化されていない VB の Erl 関数をエラー ハンドラーで使用できます 
      (On Error GoTo ステートメントを使用)。
      これにより、エラーの原因となった正確な行番号を知ることができます。

以下参考

Sub test()

          Dim rng As Range, i As Long, j As Long
          Dim cnt As Long, endR As Long, endC As Long
          Dim r, c
10        Set rng = ActiveCell.CurrentRegion
20        r = rng
30        c = WorksheetFunction.Transpose(r)
40        On Error GoTo myerror
50        For i = UBound(r) To 1 Step -1
60            cnt = 0
70            For j = UBound(c) To 1 Step -1
80                Select Case r(i, j)
                      Case "", " ", " ": cnt = cnt + 1
90                End Select
100           Next
110           If cnt = UBound(c) Then endR = i
120       Next
130       For i = UBound(c) To 1 Step -1
140           cnt = 0
150           For j = UBound(r) To 1 Step -1
160               Select Case c(i, j)
                      Case "", " ", " ": cnt = cnt + 1
170               End Select
180           Next
190           If cnt = UBound(r) Then endC = i
200       Next
210       rng.Resize(endR - 1, endC - 1).Select
myerror:
End Sub

(諸子頑鉄) 2023/03/05(日) 11:26:24


 諸子頑鉄 さん

 MZ-Tools 8.0をご提供下さいまして、ありがとうございました。
 間違っていなければMZ-Tools8.0は30日間は無料で試用とありました。
 30日間が過ぎた場合はAdd Line Numbers(行番号追加)は使用できなくなりますでしょうか。
 確認できますと幸いであります。

(はる) 2023/03/05(日) 11:51:28


確認できますと幸いであります。

私は、ライセンスユーザーなので30日経過後にどうなるかは判りません。

ご自身でシステムの時計を進める等で確認下さい。
(諸子頑鉄) 2023/03/05(日) 12:18:30


以下も参考になるかも ?

http://accessdb.jugem.jp/?eid=19
(諸子頑鉄) 2023/03/05(日) 12:24:32


 諸子頑鉄 さん

 度重ね、ご返答下さいまして、ありがとうございます。

 >以下も参考になるかも ?
 [すべてのモジュールのソースコードに行番号を採番する]
 これから、試してみます。

 心より感謝申し上げます。

(はる) 2023/03/05(日) 12:40:28


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.