Excel VBA質問箱 IV

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

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


7258 / 13644 ツリー ←次へ | 前へ→

【40275】カーソル範囲について まさおみ 06/7/10(月) 15:00 質問[未読]
【40277】Re:カーソル範囲について ひげくま 06/7/10(月) 15:20 回答[未読]
【40283】Re:カーソル範囲について まさおみ 06/7/10(月) 16:25 お礼[未読]
【40285】Re:カーソル範囲について Jaka 06/7/10(月) 16:34 回答[未読]
【40287】Re:カーソル範囲について まさおみ 06/7/10(月) 16:39 お礼[未読]
【40289】Re:カーソル範囲について ひげくま 06/7/10(月) 16:40 発言[未読]

【40275】カーソル範囲について
質問  まさおみ  - 06/7/10(月) 15:00 -

引用なし
パスワード
   すみません 教えてください

シートに入力範囲が決まっていてその範囲にカーソルがあるか確認したいのですが…

【40277】Re:カーソル範囲について
回答  ひげくま  - 06/7/10(月) 15:20 -

引用なし
パスワード
   ▼まさおみ さん:
こんにちは。

>シートに入力範囲が決まっていてその範囲にカーソルがあるか確認したいのですが…

Activecell.Row でカーソルの縦方向の位置が、Activecell.Column でカーソルの横方向の位置が判ります。
それを利用して判断してみてはいかがでしょうか。

【40283】Re:カーソル範囲について
お礼  まさおみ  - 06/7/10(月) 16:25 -

引用なし
パスワード
   ▼ひげくま さん:
こんにちは
有難うございます

>Activecell.Row でカーソルの縦方向の位置が、Activecell.Column でカーソルの横方向の位置が判ります。
>それを利用して判断してみてはいかがでしょうか。

で現在のカーソルの位置は分かるのですがそれが入力範囲として指定した範囲に入ってるかを判断させたいのです
たとえば 入力範囲[C12:R25]でボタンを押した時にカーソルが[F10]に在った時はマクロを実行してカーソルが[B3]にあったら「入力出来ません」っとメッセージを表示したいのです
説明不足ですみませんがよろしくお願いします

【40285】Re:カーソル範囲について
回答  Jaka  - 06/7/10(月) 16:34 -

引用なし
パスワード
   範囲の場合は考慮してません。

If Application.Intersect(ActiveCell, Range("B5:C10")) Is Nothing Then
 MsgBox "NG"
Else
 MsgBox "OK"
End If

【40287】Re:カーソル範囲について
お礼  まさおみ  - 06/7/10(月) 16:39 -

引用なし
パスワード
   ▼Jaka さん:
>範囲の場合は考慮してません。
>
>If Application.Intersect(ActiveCell, Range("B5:C10")) Is Nothing Then
> MsgBox "NG"
>Else
> MsgBox "OK"
>End If

有難うございます
大変参考になりました
また何かありましたら宜しくお願いします

【40289】Re:カーソル範囲について
発言  ひげくま  - 06/7/10(月) 16:40 -

引用なし
パスワード
   ▼まさおみ さん:
こんにちは

>で現在のカーソルの位置は分かるのですがそれが入力範囲として指定した範囲に入ってるかを判断させたいのです

入力範囲は決まっているんですよね?
入力範囲が決まっていて、カーソルの位置が判るのであれば、カーソルが入力範囲内にあるかどうかは判断できると思うのですが………

>たとえば 入力範囲[C12:R25]でボタンを押した時にカーソルが[F10]に在った時はマクロを実行してカーソルが[B3]にあったら「入力出来ません」っとメッセージを表示したいのです

この場合、Activecell.Row の値が12〜25に入っているかどうか、Activecell.Column の値が3〜18に入っているかどうか、を判断すれば良いだけですよ。

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