1

VBA を使用していくつかのコメントを付けて作成したフィルターを含むテーブルがあります。すべてのコメントは重要であり、膨大な量のデータがあります。フィルタが適用されたときのエラー メッセージを回避する方法を見つけようとしています。列全体をループ Comment.Shape.Placement = xlMoveAndSizeしてセルごとに設定すると機能するはずですが、このように範囲全体を選択する方法はありますか?

masterSheet.Columns(columnExtension).Comment.Shape.Placement = xlMoveAndSize

私もこのコンテキストで試しました:

'Final formating -----------------------------------------------

masterSheet.Activate
masterSheet.Columns(columnExtension).Font.Size = 12
masterSheet.Columns(columnExtension).Font.Bold = True
masterSheet.Columns(columnExtension).NumberFormat = "0"
masterSheet.Columns(columnExtension).HorizontalAlignment = xlCenter

ActiveSheet.UsedRange.SpecialCells _
(xlCellTypeComments).Comment.Shape.Placement = xlMoveAndSize

masterSheet.Columns.AutoFit
4

2 に答える 2