Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
64357 / 76732 ←次へ　｜　前へ→
【16956】Re:名前の定義の変更
質問  ポンタ  - 04/8/17(火) 11:52 -
引用なし
パスワード
   ▼IROC さん：

以下で流すと1004エラーになります。

>Sub xxx()
>Dim n As Name
>　　For Each n In ActiveWorkbook.Names
>　　　　n.RefersTo = "=" & Mid(n.Value, 54)
>　　Next n
>End Sub

少し工夫して、以下も試したのですが依然　""がついてきます。

Sub xxx()
Dim n As Name
　　For Each n In ActiveWorkbook.Names
　　　　n.RefersTo = Mid(n.Value, 55)
　　Next n
End Sub

>いらない名前の定義は、何を基準に判断するのでしょうか？

とりあえず50個ある名前の定義を全部削除できれば良いです。
（移した方で実際使っているのは数個なので）
0 hits
▼ 【16911】名前の定義の変更 ポンタ 04/8/16(月) 10:37 質問
【16913】Re:名前の定義の変更 IROC 04/8/16(月) 11:25 回答
【16929】Re:名前の定義の変更 ポンタ 04/8/16(月) 17:18 質問
【16932】Re:名前の定義の変更 IROC 04/8/16(月) 17:35 回答
【16933】Re:名前の定義の変更 ポンタ 04/8/16(月) 17:44 質問
【16935】Re:名前の定義の変更 IROC 04/8/16(月) 17:56 回答
【16936】Re:名前の定義の変更 ポンタ 04/8/16(月) 18:00 質問
【16937】Re:名前の定義の変更 IROC 04/8/16(月) 18:15 回答
【16938】Re:名前の定義の変更 IROC 04/8/16(月) 18:24 回答
【16939】Re:名前の定義の変更 IROC 04/8/16(月) 18:28 回答
【16954】Re:名前の定義の変更 ポンタ 04/8/17(火) 11:00 質問
【16955】Re:名前の定義の変更 IROC 04/8/17(火) 11:21 回答
【16956】Re:名前の定義の変更 ポンタ 04/8/17(火) 11:52 質問≪
【16957】Re:名前の定義の変更 IROC 04/8/17(火) 13:12 回答
【16958】Re:名前の定義の変更 IROC 04/8/17(火) 13:13 回答
【16959】削除は巧くいきました！！ ポンタ 04/8/17(火) 13:27 質問
【16960】Re:削除は巧くいきました！！ IROC 04/8/17(火) 13:56 回答
【16965】Re:削除は巧くいきました！！ ポンタ 04/8/17(火) 16:17 質問
【16966】Re:削除は巧くいきました！！ IROC 04/8/17(火) 16:23 回答
【16968】Re:削除は巧くいきました！！ ポンタ 04/8/17(火) 17:12 質問
【16969】Re:削除は巧くいきました！！ IROC 04/8/17(火) 17:25 回答
【16970】少し直して巧くいきました。 ポンタ 04/8/17(火) 18:30 お礼
【16971】Re:少し直して巧くいきました。 IROC 04/8/17(火) 18:37 回答
【16972】Re:少し直して巧くいきました。 ポンタ 04/8/17(火) 19:01 質問
【16973】Re:少し直して巧くいきました。 IROC 04/8/17(火) 19:50 回答
【16974】Re:少し直して巧くいきました。 ポンタ 04/8/17(火) 21:01 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
64357 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free