Question

我正在尝试为Excel 2010编写一个宏，该宏将用户选择一个单元格或一系列合并单元格并解开注释并添加一个模式。

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.com门线上，但我似乎无法弄清楚原因。我正在通过快捷键Ctrl + Shift + A运行它。任何建议将不胜感激。

此致沙

Answer 1

我不明白为什么它会挂起......除了事实上如果单元格中没有注释，它将引发错误。此外，如果这是一个新工作簿，并且您只是保存它，它将发出警告，说这是一个excel文件，而不是一个启用宏的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

宏未选择Excel中的注释更改范围

1 个答案: