Ｐａｇｅ 461 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼アクティブセルが名前付きセル範囲内にあるかどうか koji 02/12/16(月) 17:19 ┗Re:アクティブセルが名前付きセル範囲内にあるかどうか ポンタ 02/12/16(月) 17:35 ┗Re:アクティブセルが名前付きセル範囲内にあるかどうか koji 02/12/16(月) 17:47 ─────────────────────────────────────── ■題名 ： アクティブセルが名前付きセル範囲内にあるかどうか ■名前 ： koji ■日付 ： 02/12/16(月) 17:19 -------------------------------------------------------------------------
| アクティブセルが、ある名前付きセル範囲内にあるかどうかの判定を するにはどうすればいいかご教授ください。 例えば、A3からA10までのセル範囲に「テスト」という名前をつけた状態で、 アクティブセルがその範囲内にあるかどうかを知りたいです。 何卒よろしくお願いします。 |
| こんな感じでいかがでしょう？ Sub test() Dim 名前 As Name Dim MyRange As Range For Each 名前 In ThisWorkbook.Names Set MyRange = Range(名前) If Not Intersect(ActiveCell, MyRange) Is Nothing Then MsgBox ("アクティブセルは「" & 名前.Name & "」の範囲内です") End If Next End Sub |
| ポンタさん、早速の回答ありがとうございます！完璧です！ 本当にありがとうございました！ |