Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2004 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【70619】名前の削除と登録 りんご 11/12/7(水) 16:33 質問[未読]
【70620】Re:名前の削除と登録 Jaka 11/12/7(水) 17:05 発言[未読]
【70627】Re:名前の削除と登録 りんご 11/12/8(木) 17:31 お礼[未読]
【70619】名前の削除と登録
質問  りんご  - 11/12/7(水) 16:33 -
引用なし
パスワード
   【70609】名前定義とシートインデックスについての関連です。
よろしくお願い致します。

マクロのキー記録で、名前（メニューの挿入->名前->定義）の登録と削除を行いました。
この名前と範囲の部分を変数にしてマクロを作成しましたが、削除の部分で


　「アプリケーション定義またはオブジェクトの定義エラーです。」


のエラーが発生しました。
（名前の定義まで進んでないので、定義の部分も怪しい。）

ネットで調べたところ、名前の一括削除ばかりで任意の名前を削除するというマクロを探せませんでした。


名前削除のマクロについて、正常に動作する記述を教えて下さい。


＜作成マクロ＞
strWork = "S2R24C12"
ActiveWorkbook.Names(strWork).Delete


＜キー記録＞
Sub Macro2()

　　ActiveWorkbook.Names("S1R24C12").Delete

　　ActiveWorkbook.Names.add Name:="S2R24C12", RefersToR1C1:= _
　　　　"=Sheet1!R24C12"
　　　　

End Sub
【70620】Re:名前の削除と登録
発言  Jaka  - 11/12/7(水) 17:05 -
引用なし
パスワード
   >＜作成マクロ＞
>strWork = "S2R24C12"
>ActiveWorkbook.Names(strWork).Delete

これで消せませんか？
ただ、名前は、A1、C1、とか、R1C2　とかのセルのアドレスに似たものはやめたほうが良いです。
エラーになるのは、その辺じゃないかと？

こんな風にまわしてもいいし。

For Each Nm In ActiveWorkbook.Names
　 Nm.Delete
Next
【70627】Re:名前の削除と登録
お礼  りんご  - 11/12/8(木) 17:31 -
引用なし
パスワード
   アドバイスありがとうございます。

私がやりたいのは、指定した名前を削除したいのです。
ネットで調べると、全部の名前を削除するマクロはあるのですが・・・

任意の名前の削除が無いのと、キー記録のマクロを変更して動かなかったので質問させて頂きました。

ものすごく初歩的なミスだったのですが、RefersToR1C1−＞RefersTo　に変更で削除できました。


お気持ちに感謝です。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2004 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free