「Excel 表示されない名前定義を削除する」の版間の差分
ナビゲーションに移動
検索に移動
(ページの作成:「==Excel 表示されない名前定義を削除する== [Excel] *[http://crazycat.jp/?p=31 Excelの見えない名前定義を削除する方法] ====対処法====…」) |
|||
| (同じ利用者による、間の2版が非表示) | |||
| 1行目: | 1行目: | ||
| − | ==Excel 表示されない名前定義を削除する== | + | ==[[Excel 表示されない名前定義を削除する]]== |
| − | [Excel] | + | [[Excel]] | |
*[http://crazycat.jp/?p=31 Excelの見えない名前定義を削除する方法] | *[http://crazycat.jp/?p=31 Excelの見えない名前定義を削除する方法] | ||
| 17行目: | 17行目: | ||
End If | End If | ||
Next | Next | ||
| − | If wCnt | + | If wCnt <> 0 Then |
MsgBox wCnt & "個の名前定義が見つかりました。",vbInformation | MsgBox wCnt & "個の名前定義が見つかりました。",vbInformation | ||
Else | Else | ||
2020年2月16日 (日) 04:25時点における最新版
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
© 2006 矢木浩人
