要使評論與Excel中的過濾表格中的單元格移動VBA

Question

我有一個表格，其中包含使用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 

Answer 1

我不能找到一種方法，都同時做，因爲我一直在尋找...所以我剛寫的循環，它的工作原理，但是...

'// Change each comment to "move and size with cells" 
For Each cellComment In ActiveSheet.Comments 
    cellComment.Shape.Placement = xlMoveAndSize 
Next cellComment 

這可能是有用的人..

Answer 2

使用SpecialCells範圍對象還曾FO我只遍歷包含註釋的單元格。

Sub Test2() 
Dim rng As Range 
Dim cl As Range 

Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments) 
For Each cl In rng.Cells 
    cl.Comment.Shape.Placement = xlMoveAndSize 
Next 
End Sub