Excel VBA質問箱 IV

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

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


48125 / 76732 ←次へ | 前へ→

【33544】Re:名前付きセル範囲がなかったら?
回答  awu  - 06/1/14(土) 19:48 -

引用なし
パスワード
   アクティブシートの中にあるかの確認だと思いますので、こんな感じで如何でしょうか。

解析して必要部分を使用すれば良いと思いますが・・・。


Sub NameChk()
Dim N As Integer
Dim Msg As String
Const ChkName = "sazaea" '<--- チェックする名前を指定
With ActiveWorkbook.Names
  For N = 1 To .Count
    If .Item(N).Name = ChkName Then Exit For
  Next N
  If N <= .Count Then
    If InStr(Names(ChkName), "=" & ActiveSheet.Name & "!") = 1 Then
      Msg = ChkName & " は、このシートにあります。"
    Else
      Msg = ChkName & " は、このシートにありません。" & _
        String(2, vbLf) & Mid(Names(ChkName), 2, _
        InStr(Names(ChkName), "!") - 2) & " にあります。 "
    End If
  Else
    Msg = ChkName & " の名前は、この ブック には存在しません。"
  End If
End With
MsgBox Msg, vbInformation
End Sub
0 hits

【33538】名前付きセル範囲がなかったら? サザエ 06/1/14(土) 18:04 質問
【33540】Re:名前付きセル範囲がなかったら? かみちゃん 06/1/14(土) 18:16 回答
【33549】Re:名前付きセル範囲がなかったら? サザエ 06/1/14(土) 21:22 お礼
【33575】Re:名前付きセル範囲がなかったら? ichinose 06/1/16(月) 8:27 発言
【33544】Re:名前付きセル範囲がなかったら? awu 06/1/14(土) 19:48 回答
【33547】Re:名前付きセル範囲がなかったら? ichinose 06/1/14(土) 20:15 発言

48125 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free