[[20070623142444]]　『名前の定義の削除ができない』（カモのハシ）　ページの最後に飛ぶ

『名前の定義の削除ができない』（カモのハシ）

時々参考にさせてもらってます。
会社で使うエクセルファイルの名前の定義(複数)をVBAで削除したいのですが、
エラーが出て削除できずに残ってしまいます。
これを強制的に削除できないものでしょうか？　お願いします。

　　On Error Resume Next

     With ActiveWorkbook
         For i = .Names.Count To 1 Step -1
             .Names(i).Delete
         Next i
     End With

ちなみに.RefersTo　でもエラーになります。

ファイルをコピーして使用していたため、ファイルはたくさんあり作り直すのも
大変なので何とか削除したいのですが。

エクセル：２００２，ＯＳ：ＸＰ

    With ActiveWorkbook
    Dim obj As Object
         For Each obj In .Names
             obj.Delete
         Next
    End With

 でどうですか。
 (Mook)

Mookさん

試してみましたが駄目でした。

（カモのハシ）

 こう？
     With ActiveWorkbook
         For i = .Names.Count To 1 Step -1
             .Names(.Names(i).Name).Delete
         Next i
     End With
　
(みやほりん)(-_∂)b

みやほりんさん、Mookさん

ありがとうございます。
もうちょっといろいろ試してみます。
　消せないのが後4つあって　そのうち.RefersTo　で参照できるものは
あれこれしてるうちに消せました。

Ｐ２２２４　と　Ｐ２２２３が残りました。

 な、なんという名前の付け方...
 セルアドレスでしょう。
 (seiya)

 それが原因かもしれまへんなぁ。
       With ActiveWorkbook
         For i = .Names.Count To 1 Step -1
             .Names(i).Delete
         Next i
     End With
 当方では↑で全て削除しまっせ。無論みやほ大明神のもですヨ。
     　　（弥太郎）2000 XP
 追伸
 ついでやからValueと書いたらアカンケース
 A列の日付をマッチさせようと
 get_row = Application.Match(Target.Value, Range("a:a"), 0)
 と書くとエラーがでますワ。
 Valueを取り除くとOKでんな。

 弥太郎さん、
 その件に付きましては、明日でも（今日は落ちないといけませんので）
 やはりValue はDefault property　ですね...
 関数の方で、判別しているのだと思います。
 (seiya)

 日付の場合、シリアル値で比較しないと・・・。
 CDbl(Target.Value)
 か
 Target.Value2
 BJ

皆様いろいろありがとうございます。

何とかなりそうです。（カモのハシ）

コメント返信：

[ 一覧(最新更新順) ]

[[20070623142444]] 『名前の定義の削除ができない』（カモのハシ） ページの最後に飛ぶ

[[20070623142444]]　『名前の定義の削除ができない』（カモのハシ）　ページの最後に飛ぶ