EXCELのシートをコピーしたら名前の定義がうんぬんで怒られた場合

  • このフォーラムに新しいトピックを立てることはできません
  • このフォーラムではゲスト投稿が禁止されています

投稿ツリー


前の投稿 - 次の投稿 | 親投稿 - 子投稿.1 | 投稿日時 2013/7/10 14:16 | 最終変更
kawa  長老   投稿数: 232
①→②の順で試してみることをお勧めします。

①名前を消してみる。
 数式>名前の管理
 の一覧から削除する。

これで再現しなくなったらよいのですが、
一覧にないのに「_regression_x」とか、作った覚えのない名前で怒られる場合は②も実施します。

②一旦全部消す!
※必要な名前があったとしたら、それも含めて全部消えちゃうから要注意だ!

VBエディタを起動し、イミディエイトウインドウから以下の一行を実行する。
 for i=1 to ActiveWorkbook.Names.Count :ActiveWorkBook.Names(1): Next i

・イミディエイトとウインドウがどこにあるかわからない場合。
①VisualBasicエディタを起動
②表示>イミディエイト
 または
 [CTRL]+[G]

・ビジュアルベーシックエディタがどこにあるかわからない。
 →ご自分でお調べなさい。
投票数:4 平均点:5.00
前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2015/8/11 11:04 | 最終変更
kawa  長老   投稿数: 232
Excel2013で_FilterDatabaseとかでこのページに飛んでくる人が増えたので追記。

個人用マクロに以下を登録しておいて、コピーでエラーが出るようになったら実行するといいかもしれない。

確認しながらけせる。

Public Sub ClearNameByConfirm()
    Dim wbCur As Workbook
    Dim curName As Name
    
    Set wbCur = ActiveWorkbook
    
    Dim curNames As Names
    Set curNames = wbCur.Names
    
    For Each curName In curNames
        Dim ret As VbMsgBoxResult
        
        ret = MsgBox("[" & curName.Name & "]を削除します", vbYesNo, "[確認]")
        If (ret = vbYes) Then
            wbCur.Names(curName.Name).Delete
        End If
        
    Next curName

End Sub
投票数:5 平均点:8.00
  条件検索へ

メインメニュー

ログイン

ユーザー名:


パスワード:





パスワード紛失