No.1ベストアンサー
- 回答日時:
その1:エラー処理で対応
Sub Cells_Name4()
'エラートラップの設定
on error goto err1
'エラーが起こるかもしれない処理
Range("牛丼").Select
'エラートラップを解除
On Error GoTo 0
'エラーが起こらなかった場合の処理をして終了
msgbox("あります")
exit sub
'エラーが起こった場合の処理をして終了
err1:
msgbox("ありません")
End Sub
その2:名前を全部調べてフラグで判別
Sub Cells_Name()
Dim MyName As Name
Dim MyFlg As Boolen
MyFlg=False
'存在するかのチェック
For Each MyName In ActiveWorkbook.Names
if MyName="牛丼" then
MyFlg = True
Exit For
End If
Next
If Myflg = True Then
'存在する場合の処理
msgbox("あります")
else
'存在しない場合の処理
msgbox("ありません")
End If
End Sub
No.2
- 回答日時:
#1の補足
if MyName.name="牛丼" then
だと思います。
No.3
- 回答日時:
名前はシートにつくのでなく、Workbookに所属するようです。
だからSheetまで追求するのはSub test02()
Dim n
For Each n In ActiveWorkbook.Names
MsgBox n.Name
Next
End Sub
をやって見てください。名前定義分の名前が全部出てきますか。
その上で
Sub test03()
Dim n
For Each n In ActiveWorkbook.Names
If n.Name = "牛丼" Then
MsgBox "牛丼あり"
MsgBox n
p = InStr(n, "Sheet3!")
If p <> 0 Then
MsgBox "Sheet3にあり"
End If
Exit Sub
End If
Next
MsgBox "牛丼なし"
End Sub
をやって見てください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
都道府県穴埋めゲーム
都道府県の名前を1人1つずつ投稿してください。全ての都道府県が出たら締め切ります!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
excel vba 名前付きセルが存在しないとき
Excel(エクセル)
-
VBAでセル範囲の「名前の定義」の有無を取得
その他(Microsoft Office)
-
エクセルVBAでTargetのセルに設定された「名前の定義」の取得方法は?
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
6
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
7
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
8
エクセルで複数シートのセルに同じ名前の定義を
Excel(エクセル)
-
9
結合セルに名前をつけてマクロで取得は不可?
Visual Basic(VBA)
-
10
VBA2005 16進を2桁で表示したい。
Visual Basic(VBA)
-
11
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
12
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
13
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
14
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
15
ExcelVba 有効なセルかどうかを判定するには
Visual Basic(VBA)
-
16
コマンドボタンがあるかどうかを取得するには?
PowerPoint(パワーポイント)
-
17
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
18
オプションボタンの背景を透明にしたい
その他(Microsoft Office)
-
19
別ファイルを開かず、INDIRECT関数を使用せずに、別ファイルのデータを求めたい
Excel(エクセル)
-
20
斜め罫線の判定 ExcelVBA
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
どう増強すべきか
-
特定の名前のオートシェイプの...
-
「トランザクション処理」と「...
-
ExcelのVBAで、選択したファイ...
-
private subモジュールを他のモ...
-
Excel2003のVBAで開発をしてい...
-
COBOL OCCURSで指定したデータ...
-
複数個のTextBoxでいずれかの内...
-
【C#】Page_Loadさせない方法に...
-
分数の分母ゼロ問題
-
For ~ Next文
-
VB.NET SPRED(チェックボック...
-
シグナル 6(SIGABRT)とは?
-
VBA エラーハンドラーについて
-
図形オートシェイプ内のテキス...
-
バイナリ送信で出るエラーコー...
-
Excelのインストール状態を確認...
-
プログラミングの説明のしかた
-
IF文に時間(何時から何時ま...
-
フォーカスがどこか行ってしまう
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【C#/Java?】try-catchでcatch...
-
IF文に時間(何時から何時ま...
-
private subモジュールを他のモ...
-
vbaのエラー対応(実行時エラー...
-
シグナル 6(SIGABRT)とは?
-
マクロで、次のコードへ行く前...
-
どう増強すべきか
-
Excel VBA セルの名前があるか...
-
特定の名前のオートシェイプの...
-
どうやってもFor文を抜けてしま...
-
特定のファイルを他のプロセス...
-
ExcelのVBAで、選択したファイ...
-
VB6にてネットワーク上にある共...
-
VBA 複数の行を高速で削除する...
-
Word VBA。各マクロの間に待ち...
-
フォルダのアクセス権確認について
-
エクセル VBAで複数セル選択時...
-
VBA For Each 〜 複数条件について
-
【C#】Page_Loadさせない方法に...
-
StatusStripの表示が更新されな...
おすすめ情報