4

Excel でいくつかのコメントを操作する短いマクロを作成しています。アクティブなワークシートでコメントのセル アドレス/場所を見つける方法があると便利です。Excel のコメント オブジェクトでこれを行う方法はありますか? または、それに失敗した場合、同じ結果が得られる巧妙な回避策はありますか?

私が達成しようとしていることのいくつかの例示的な擬似コード:

dim wb as Workbook
dim ws as worksheet
dim cmt as Comment

set wb = ActiveWorkbook

for each ws in wb.sheets
    for each cmt in ws.comments
        debug.print cmt.address ' Pseudo code
    next cmt
next ws
4

1 に答える 1

5

試す:

Dim wb As Workbook
Dim ws As Worksheet
Dim cmt As Comment

Set wb = ActiveWorkbook

For Each ws In wb.Sheets
    For Each cmt In ws.Comments
        'Debug.Print cmt.Address ' Pseudo code
        Debug.Print cmt.Parent.Address
    Next cmt
Next ws

情報: .parent は、コメント オブジェクトの親オブジェクト (この場合はセル) を返します。

于 2013-11-02T22:12:41.563 に答える