Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5708 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【49076】数式、ワークシートに勝手に名前が付いてしまう momo 07/5/22(火) 15:41 質問[未読]
【49077】Re:数式、ワークシートに勝手に名前が付い... EIN 07/5/22(火) 16:01 回答[未読]
【49080】Re:数式、ワークシートに勝手に名前が付い... momo 07/5/22(火) 16:13 質問[未読]
【49081】Re:数式、ワークシートに勝手に名前が付い... Kein 07/5/22(火) 16:26 回答[未読]
【49083】Re:数式、ワークシートに勝手に名前が付い... momo 07/5/22(火) 16:40 質問[未読]
【49096】Re:数式、ワークシートに勝手に名前が付い... Kein 07/5/22(火) 22:06 発言[未読]
【49103】Re:数式、ワークシートに勝手に名前が付い... momo 07/5/23(水) 9:53 発言[未読]
【49273】このツリーの内容わかる方いらっしゃいませ... momo 07/5/30(水) 9:28 質問[未読]
【49274】Re:このツリーの内容わかる方いらっしゃい... ウッシ 07/5/30(水) 11:38 発言[未読]
【49275】Re:このツリーの内容わかる方いらっしゃい... momo 07/5/30(水) 12:12 発言[未読]
【49281】Re:このツリーの内容わかる方いらっしゃい... ウッシ 07/5/30(水) 15:55 発言[未読]
【49283】Re:このツリーの内容わかる方いらっしゃい... momo 07/5/30(水) 16:23 発言[未読]
【49285】Re:このツリーの内容わかる方いらっしゃい... ウッシ 07/5/30(水) 16:41 発言[未読]
【49293】Re:このツリーの内容わかる方いらっしゃい... momo 07/5/30(水) 17:15 発言[未読]
【49294】Re:このツリーの内容わかる方いらっしゃい... ウッシ 07/5/30(水) 17:25 発言[未読]
【49329】Re:このツリーの内容わかる方いらっしゃい... momo 07/5/31(木) 13:25 発言[未読]
【49331】Re:このツリーの内容わかる方いらっしゃい... ウッシ 07/5/31(木) 13:40 発言[未読]
【49337】Re:このツリーの内容わかる方いらっしゃい... momo 07/5/31(木) 14:20 発言[未読]
【49340】Re:このツリーの内容わかる方いらっしゃい... ウッシ 07/5/31(木) 14:53 発言[未読]
【49342】Re:このツリーの内容わかる方いらっしゃい... momo 07/5/31(木) 15:08 発言[未読]
【49344】Re:このツリーの内容わかる方いらっしゃい... momo 07/5/31(木) 15:24 発言[未読]
【49346】Re:このツリーの内容わかる方いらっしゃい... ウッシ 07/5/31(木) 15:29 発言[未読]
【49348】Re:このツリーの内容わかる方いらっしゃい... momo 07/5/31(木) 15:34 お礼[未読]
【49076】数式、ワークシートに勝手に名前が付いて...
質問  momo  - 07/5/22(火) 15:41 -
引用なし
パスワード
   こんにちわ。
お世話になっています。
何故だか分からないのですが、
シートをコピーする際に

【移動またはコピーする数式またはシートには、移動またはコピー先のワークシートに既にある名前'aaa'が含まれています。
この名前を使用しますか？
・コピーまたは移動先のシートに定義されている名前を使用する場合は、[はい]をクリックします。
・数式またはワークシートで参照する範囲の名前を変更する場合は、[いいえ]をクリックし、[名前の重複]ダイアログボックスに新しい名前を入力します。】

と度々言われます。
名前をつけた覚えもないのに
大量に名前が付いていたりして、かなり鬱陶しいんです。
原因、対策お分かりの方がいらっしゃいましたら、
よろしくお願いします。
【49077】Re:数式、ワークシートに勝手に名前が付...
回答  EIN  - 07/5/22(火) 16:01 -
引用なし
パスワード
   名前の定義が設定されています
挿入−名前　で定義が　でてきます
いらないなら削除すればよいのでは？
【49080】Re:数式、ワークシートに勝手に名前が付...
質問  momo  - 07/5/22(火) 16:13 -
引用なし
パスワード
   EIN さん
こんにちわ。
さっそくのご返事ありがとうございます。
名前の定義って、一括で削除する方法ってないんですよね？？
しらない間に、ほんとひどい数ついているので
ひとつひとつ消すのは大変で・・・。
あと、定義に名前が付いていても普通にコピーできるものもあって
まったく意味不明なんです；；
名前が勝手につく理由がわかれば、対処できると思うのですが・・・・。
ご存知でしたら、お教え願います；；

とくに数式を使ったとかもなく、ただ画像を貼り付けただけ
とかなんです。
【49081】Re:数式、ワークシートに勝手に名前が付...
回答  Kein  - 07/5/22(火) 16:26 -
引用なし
パスワード
   >ひどい数ついている ひとつひとつ消すのは大変
Webクエリーを使うと、テーブルに意味不明の名前が定義されるようです。
Webクエリーをよく使うなら、ブックを閉じる際に一括して削除するように
イベントマクロを組むと良いでしょう。
こんなコードをThisWorkbookモジュールに入れて下さい。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　 Dim NM As Name

　 With ThisWorkbook
　　　If .Names.Count > 0 Then
　　　　 For Each NM In .Names
　　　　　　NM.Delete
　　　　 Next
　　　End If
　　　.Save
　 End With
End Sub
【49083】Re:数式、ワークシートに勝手に名前が付...
質問  momo  - 07/5/22(火) 16:40 -
引用なし
パスワード
   Kein さん

ご返答ありがとうございます！
Webクエリーってなんですか＠＠？
ｗｅｂ上の画像ってことですか？？

さっそくやってみたんですが
NM.Deleteのところで
【実行エラー”1004”　その名前は正しくありません。】
とデバッグがかかります。
どうしたらいいんでしょうか？？
ど素人なんですみません・・・。


>Private Sub Workbook_BeforeClose(Cancel As Boolean)
>　 Dim NM As Name
>
>　 With ThisWorkbook
>　　　If .Names.Count > 0 Then
>　　　　 For Each NM In .Names
　　　　　　　NM.Delete
>　　　　 Next
>　　　End If
>　　　.Save
>　 End With
>End Sub
【49096】Re:数式、ワークシートに勝手に名前が付...
発言  Kein  - 07/5/22(火) 22:06 -
引用なし
パスワード
   Sub Check_NM()
　 Dim NM As Name
　 Dim i As Long
　
　 MsgBox ThisWorkbook.Names.Count
　 For Each NM In ThisWorkbook.Names
　　　i = i + 1
　　　On Error Resume Next
　　　Cells(i, 1).Value = NM.Name
　　　NM.Delete
　　　Cells(i, 2).Value = "Del"
　　　If Err.Number = 1004 Then Exit For
　　　On Error GoTo 0　　　
　 Next
End Sub

空白シートを開いて↑のマクロを実行し、MsgBox の値と
A:B列の最終入力行と、そこに表示されている値を報告して下さい。
【49103】Re:数式、ワークシートに勝手に名前が付...
発言  momo  - 07/5/23(水) 9:53 -
引用なし
パスワード
   keinさん
おはようございます。

>空白シートを開いて↑のマクロを実行し、MsgBox の値と
>A:B列の最終入力行と、そこに表示されている値を報告して下さい。

３Bookあり、試してみました。

１：mgbox　1450　1行　　[Module1 見積JANから].NTW商品DBF検索　　　　Del

２：mgbox　4724　１行　[Module1 見積].NTW商品DBF検索　　　　Del

３：mgbox　4300　１行です。[Module1 見積].NTW商品DBF検索　　　　Del

よろしくお願いします。
【49273】このツリーの内容わかる方いらっしゃいま...
質問  momo  - 07/5/30(水) 9:28 -
引用なし
パスワード
   こんにちわ。
以前ツリータイトルで投稿させていただきました。
色々教えていただいていたんですが、
keinさんがお忙しいらしく行き詰っています・・・。
お分かりになる方がいらっしゃいまいしたら
お教え願えませんか？
よろしくお願いします。
【49274】Re:このツリーの内容わかる方いらっしゃ...
発言  ウッシ  - 07/5/30(水) 11:38 -
引用なし
パスワード
   こんにちは

シートのコピーを繰り返したとかでは？

新規ブックにデータやモジュールをコピーして作り直してみてはどうですか？

シートのコピーを繰り返すマクロがあるようでしたら、コード見直した方がいいのですが・・・
【49275】Re:このツリーの内容わかる方いらっしゃ...
発言  momo  - 07/5/30(水) 12:12 -
引用なし
パスワード
   ウッシ さん

こんにちは。
早々の返信ありがとうございます。

画像が貼ってあるからか、新規で作っても
いつのまにか名前が付いてしまうんです。
一回目コピーしたときは大丈夫だったのに、
二回目したらだめだったり・・・。
このファイルは数ＢＯＯＫあって、シート数も多い上に
使用者が複数いて、使用方法の統一もなかなかできないのが現状なんです。
もし、名前を一発で消せる方法があるなら、最高なのですが・・・。
【49281】Re:このツリーの内容わかる方いらっしゃ...
発言  ウッシ  - 07/5/30(水) 15:55 -
引用なし
パスワード
   こんにちは

>いつのまにか名前が付いてしまう
事がおかしいと思いますので、そちらの原因を探ったほうがいいと思います。
【49283】Re:このツリーの内容わかる方いらっしゃ...
発言  momo  - 07/5/30(水) 16:23 -
引用なし
パスワード
   ウッシ さん


自分でつけない限り名前は付かないものなのでしょうか？？
【49285】Re:このツリーの内容わかる方いらっしゃ...
発言  ウッシ  - 07/5/30(水) 16:41 -
引用なし
パスワード
   こんにちは

良く分からないんです。

名前定義にある名前は自分で付けるものと思っていました。
写真や図形を挿入しても、そのオブジェクトそのもに付く名前とは別物かと。

なので、勝手に名前定義が増えていくというのは不思議です。

エラーの内容も名前定義に関するもののようなので、「勝手に名前定義が増えていく」
という現象を探った方がいいかと。
【49293】Re:このツリーの内容わかる方いらっしゃ...
発言  momo  - 07/5/30(水) 17:15 -
引用なし
パスワード
   ウッシ さん

ありがとうございます。
うﾞうﾞ〜ん。。。
検索で見たのですが、
関数とか使っていると勝手に名前が付くことがあるとか・・・。
対策は書いていませんでした・・・。
名前も"aaaaaaaa"とか"fffffffff"とかありえない名前なんです。
困った〜・・・。

keinさんがつくってくださったﾏｸﾛなんですが、
いくつかの、名前がついたシートがあるＢＯＯＫで試したところ、
出来るものと出来ないものがありました。
違いがわかりません・・・。

あきらめるしかないのでしょうか・・・・。
【49294】Re:このツリーの内容わかる方いらっしゃ...
発言  ウッシ  - 07/5/30(水) 17:25 -
引用なし
パスワード
   こんにちは

>関数とか使っていると勝手に名前が付くことがあるとか・・・。
その情報の載っていたサイトのURLの//以降のアドレスを教えて下さい。

関数をVBAに差し替えてみるのはダメでしょうか？
【49329】Re:このツリーの内容わかる方いらっしゃ...
発言  momo  - 07/5/31(木) 13:25 -
引用なし
パスワード
   ウッシ さん

こんにちわ。
昨日みていたところ探したのですが、わからなくなってしまいました・・・。
どんくさくてすみません；；
VLOOKUPがどうとか書いていたと思うんですが・・・。
でも、このファイルで関数使ってないんです（どないやねん！）
すみません。

名前と参照場所なんですが
例で２つ挙げてみます。

名前　　【[Module1 見積JANから].NTW商品DBF検索】
参照場所【\\Sig71030\企画書関連\WINDOWS\Temporary Internet Files\Content.IE5
　　　　　\VNTR3XSW\02 週別7･8月\A週別5月.xls'!'[Module1 見積JANから].NTW商品
　　　　　DBF検索'】
名前　　【uhiuygtytfty】
参照場所【WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\[12最終受注書.XLS]#REF'!R1:R5】

URLの入力の禁止にあたってしまいました。
参照場所を少しだけいじりました。

こんな感じなんです。
【49331】Re:このツリーの内容わかる方いらっしゃ...
発言  ウッシ  - 07/5/31(木) 13:40 -
引用なし
パスワード
   こんにちは

多分、私には解決出来ないですが他の方の回答の参考になるように、

>名前　　【[Module1 見積JANから].NTW商品DBF検索】
>参照場所【\\Sig71030\企画書関連\WINDOWS\Temporary Internet Files\Content.IE5
>　　　　　\VNTR3XSW\02 週別7･8月\A週別5月.xls'!'[Module1 見積JANから].NTW商品
>　　　　　DBF検索'】
>名前　　【uhiuygtytfty】
>参照場所【WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\[12最終受注書.XLS]#REF'!R1:R5】

なにもしなくても、この名前が勝手に出来ているのですか？

「Temporary Internet Files」の中のファイルを参照してますし、
「[12最終受注書.XLS]#REF'!」はシート名が無いみたいですし、

新規ブックでもダメという事でしたけど、新規ブックにどこにある画像を貼り付けてある
シートをコピーしたのでしょうか？

どんな作業をしたのか、その内容は分かりますでしょうか？
【49337】Re:このツリーの内容わかる方いらっしゃ...
発言  momo  - 07/5/31(木) 14:20 -
引用なし
パスワード
   ウッシ さん

こんにちわ。
返信ありがとうござます。

やっぱり画像に問題あるんでしょうか・・・。
画像の貼り付けは私がやっているわけでないんです。
多数の人が商品を紹介するためのPOPを作成して、それを私に投げてくるんですが、
新規で作っても、その画像はもらったファイルからコピーして貼り付けています。
たぶん、web上の画像を引っ張ってきているんだと思います。

keinさんに作っていただいたﾏｸﾛです。
これもど素人の私にはよく分からなくって・・・。
これでわかる値でなにが分かるのでしょうか・・・？

Sub Check_NM()
　 Dim NM As Name
　 Dim i As Long
　
　 MsgBox ThisWorkbook.Names.Count
　 For Each NM In ThisWorkbook.Names
　　　i = i + 1
　　　On Error Resume Next
　　　Cells(i, 1).Value = NM.Name
　　　NM.Delete
　　　Cells(i, 2).Value = "Del"
　　　If Err.Number = 1004 Then Exit For
　　　On Error GoTo 0　　　
　 Next
End Sub


このマクロを実行した結果です。

BOOK1：mgbox　1450/　1行目　　[Module1 見積JANから].NTW商品DBF検索　　　　Del

BOOK2:mgbox　4724/　１行目　　[Module1 見積].NTW商品DBF検索　　　　Del

BOOK3：mgbox　4300/　１行目　　[Module1 見積].NTW商品DBF検索　　　　Del

なんだか面倒な事にお付き合い下さいまして、本当に感謝です。
【49340】Re:このツリーの内容わかる方いらっしゃ...
発言  ウッシ  - 07/5/31(木) 14:53 -
引用なし
パスワード
   こんにちは

>このマクロを実行した結果です。

>BOOK1：mgbox　1450/　1行目　　[Module1 見積JANから].NTW商品DBF検索　　　　Del
>
>BOOK2:mgbox　4724/　１行目　　[Module1 見積].NTW商品DBF検索　　　　Del
>
>BOOK3：mgbox　4300/　１行目　　[Module1 見積].NTW商品DBF検索　　　　De

>これでわかる値でなにが分かるのでしょうか・・・？

名前が「1450」「4724」「4300」個、それぞれのブックに有るという事です。

>　　If Err.Number = 1004 Then Exit For
1個消した時点で終了してるかも。

Sub Check_NM_1()
　 Dim NM As Name
　 Debug.Print ThisWorkbook.Name & vbCrLf & ThisWorkbook.Names.Count
　 For Each NM In ThisWorkbook.Names
　　　On Error Resume Next
　　　Debug.Print "Del : " & NM.Name
　　　NM.Delete
　　　On Error GoTo 0
　 Next
End Sub

一つのブックでいいのでイミディエイトウィンドウの結果見て下さい。
1000以上あると全部は見られないですけど。
【49342】Re:このツリーの内容わかる方いらっしゃ...
発言  momo  - 07/5/31(木) 15:08 -
引用なし
パスワード
   ウッシ さん

>一つのブックでいいのでイミディエイトウィンドウの結果見て下さい。

すみません。
イミディエイトウィンドウってなんですか？？
【49344】Re:このツリーの内容わかる方いらっしゃ...
発言  momo  - 07/5/31(木) 15:24 -
引用なし
パスワード
   ウッシ さん

いま、モジュール追加して、さっき作っていただいた
マクロを実行してみたんですが、名前が消えました！
コピーもスムーズに出来ます！！
いったいどんな内容なんですか？？
すごい〜！！
【49346】Re:このツリーの内容わかる方いらっしゃ...
発言  ウッシ  - 07/5/31(木) 15:29 -
引用なし
パスワード
   こんにちは

>>　　If Err.Number = 1004 Then Exit For
>1個消した時点で終了してるかも。

確認用のマクロだったんでしょうね、多分。
「Exit For」せずに全部消したので、名前も消えてコピーもスムーズに出来たのかと。

良かったですね。
【49348】Re:このツリーの内容わかる方いらっしゃ...
お礼  momo  - 07/5/31(木) 15:34 -
引用なし
パスワード
   ウッシ さん

ありがとうございます！
目の前にいらっしゃったら思いっきりハグしたいくらい
うれしいです！
本当にお世話になりました！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5708 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free