macros在Excel中未select注释更改范围

我正在尝试为Excel 2010编写一个macros，该macros将使用户select一个单元格或合并单元格的范围，并展开注释并添加一个模式。

Sub commentstripe() ' ' commentstripe Macro ' ' Dim myRange As Range Set myRange = Range(Selection.Address) myRange.Comment.Shape.TextFrame.Characters.Font.Bold = False With myRange.Interior .Pattern = xlLightUp .PatternColorIndex = xlAutomatic .PatternTintAndShade = 0 End With ActiveWorkbook.Save End Sub 

它似乎挂在myRange.comment线，但我似乎无法弄清楚为什么。 我从快捷键Ctrl + Shift + A运行它。 任何意见，将不胜感激。

问候，桑迪

Answer 1

我不明白为什么它会挂起…除了在单元格中没有注释的事实，它会抛出一个错误。 此外，如果这是一个新的工作簿，并且只保存它，它会发出警告，说这是一个Excel文件，而不是一个启用macros的Excel文件。 只是为了你知道。

我评论了保存线，一切都很完美。

编辑：看看这是否工作

 Sub commentstripe() Dim myRange As Range Set myRange = Selection myRange.Cells(1, 1).Comment.Shape.TextFrame.Characters.Font.Bold = False With myRange.Interior .Pattern = xlLightUp .PatternColorIndex = xlAutomatic .PatternTintAndShade = 0 End With ActiveWorkbook.Save End Sub