Excel VBA質問箱 IV

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

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


48122 / 76732 ←次へ | 前へ→

【33547】Re:名前付きセル範囲がなかったら?
発言  ichinose  - 06/1/14(土) 20:15 -

引用なし
パスワード
   こんばんは。

'===========================================
Sub test()
  MsgBox exist_name("aaa", ActiveSheet)
End Sub
'==============================================================
Function exist_name(nm As String, sht As Worksheet) As Boolean
  '指定された名前が指定されたシートにあるかをチェックする
  'Input nm---名前  Sht---Worksheetオブジェクト
  'out-----true:存在する  False:存在しない
  Dim rng As Range
  On Error Resume Next
  exist_name = False
  Set rng = Application.Range(nm)
  If Err.Number = 0 Then
    If sht Is rng.Parent Then
     exist_name = True
     End If
    End If
  On Error GoTo 0
End Function

ポイントは Application.Range("aaa")
ApplicationのプロパティであるRangeです。

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 発言

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