| |
▼ウッシ さん：
おはようございます。
お返事遅くなり、すみません。
下記も試したのですが、うまく起動しませんでした。
VBA素人のため下記URLのコードの内容もよく理解できず、
それをいじって作り変えることもできません。。。。。
>こんにちは
>
>://alphafocus.cocolog-nifty.com/blog/2011/05/tips-excel-14b4.html
>
>に掲載されているコードとかは使えないですか？
>
>コピー元の申請書シートのあるブックで動かせば名前定義が消えるのかと思います。
>そのきれいになった状態の申請書シートをコピーするのなら
>【同じ名前があります、使用しますか？】的な状態にならないのでは？
>
>では
>
>▼こばねこ さん：
>>▼ウッシ さん：
>>
>>こんにちは
>>ご回答ありがとうございます。
>>いろいろ調べたのですが、文字化けを削除する方法が
>>いまひとつわからない状況です。
>>
>>そうですよね。動作確認のしようがないですよね。
>>私も、どうしたらこの現象が起こるかもわからないので。。。
>>
>>現象が起こる原因がわかれば、対処のしようもあるかと思うのですが。。。
>>３シートまでは何も起こらないのに、４シート目をコピーすると
>>突然現れたりします。
>>
>>
>>>こんにちは
>>>
>>>excel 名前定義 削除 とかでWEB検索すると参考になるサイトが見つかります。
>>>
>>>でも、それで解決するのかどうか動作確認出来ないので分かりません。
>>>
>>>では。
>>>
>>>▼こばねこ さん：
>>>>お世話になります。
>>>>
>>>>エクセルで申請書を作成して、各人でコピーして使用するように
>>>>していますが、【同じ名前があります、使用しますか？】的なインフォメーションが出て、何十回とOKをし続けないといけない現象に悩まされいます。
>>>>
>>>>名前の定義をした覚えがないのに、いつのまにか勝手にたくさんの名前がついています。
>>>>
>>>>下記コードにてある程度の名前は削除できるのですが、
>>>>文字化けしているものは削除できません。
>>>>
>>>>いい方法がございましたら、ご教授よろしくお願い致します。
>>>>
>>>>Sub Check_NM_1()
>>>> Dim NM As Name
>>>> Debug.Print ActiveWorkbook.Name & vbCrLf & ActiveWorkbook.Names.Count
>>>> For Each NM In ActiveWorkbook.Names
>>>> On Error Resume Next
>>>> Debug.Print "Del : " & NM.Name
>>>> NM.Delete
>>>> On Error GoTo 0
>>>> Next
>>>>End Sub
|
|
こばねこ
- 13/8/26(月) 9:33 -
