| ページ一覧 | ブログ | twitter |  書式 | 書式(表) |

MyMemoWiki

Excel 表示されない名前定義を削除する

提供: MyMemoWiki
ナビゲーションに移動 検索に移動

Excel 表示されない名前定義を削除する

Excel |

対処法

  • マクロを実行後、「挿入」→「名前」→「定義」を選択し、名前の定義ダイアログを表示
  • 不要なものは削除
Public Sub DeleteNames()
    Dim wName As Object
    Dim wCnt As Long

    For Each wName In Names
        If wName.Visible = False Then
            wName.Visible = True
            wCnt = wCnt + 1
        End If
    Next
    If wCnt <> 0 Then
        MsgBox wCnt & "個の名前定義が見つかりました。",vbInformation
    Else
       MsgBox "非表示の名前定義はありません。",vbExclamation
    End If
End Sub