2

ユーザーが「 MyMacro」を起動するたびに、現在の選択を解除したい。

私は次のコードを使用しています:

Sub MyMacro()

    If Not IsSheetExists("Memory") Then
        Worksheets.Add(After:=Worksheets(Worksheets.Count)).name = "Memory"
    End If

    Sheets("Memory").Visible = xlSheetVisible 'change to xlSheetVeryHidden
    ActiveWorkbook.Sheets("Sheet1").Activate

    ClearAllSheets

    '......
End Sub

Sub ClearAllSheets()
    For Each sh In ActiveWorkbook.Sheets
        sh.Cells.Clear
        sh.Buttons.Delete
        Selection.Clear
    Next sh
End Sub

現在の選択をSelection.Clear クリアしないのはなぜですか?

4

4 に答える 4

-3

代わりにこれを試してください

Selection.ClearContents
于 2015-04-22T16:47:01.070 に答える