Excelに名前って便利な機能があるんですけど、その名前（以下、生餌）が腐ってるシートだと、シートの編集時などにやれ「生餌が重複してます」だの、やれ「生餌が見つからない」だの言ってくる訳ですよ。生餌の分際で、まったく。
ということで、腐りきった生餌を容赦なく、ガツーンと消滅させるマクロを。
※ちなみに、要不要に拘わらず問答無用で一切の断りもなく、セルの生餌及びセル範囲の生餌が消滅します。
このマクロの実行により、プロジェクトリーダーから怒られたりしても私は一切の責任を負わないものとします。
Sub delnamae()
'変数宣言
Dim namae As Name '生餌
Dim namae_del As String '消滅した生餌リスト
namae_del = ""
'生餌消滅
For Each namae In ActiveWorkbook.Names
namae_del = namae_del & vbCrLf & namae.Name
namae.Delete
Next
'結果報告
If Len(namae_del) = 0 Then
MsgBox "生餌が見つかりません。" & vbCrLf _
& "よって、あなたは無駄な作業をした事なります。"
Else
MsgBox "以下の生餌を消滅させました。" & namae_del _
& vbCrLf _
& "以上、よろしくお願いします。"
End If
End Sub
※ちなみに、要不要に拘わらず問答無用で一切の断りもなく、セルの生餌及びセル範囲の生餌が消滅します。
このマクロの実行により、プロジェクトリーダーから怒られたりしても私は一切の責任を負わないものとします。
コメントする