Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50781 / 76738

←次へ　｜　前へ→


	【30841】Re:Aｄｄressの除外範囲の設定

MOON - 05/11/5(土) 21:54 -


	引用なし

	パスワード

▼ぽんかんさん：
こんにちは。
A1:A4を除外範囲に設定するには、
If ActiveCell.Address <> "$A$4" Then
の部分を
If Intersect(ActiveCell, Range("A1:A4")) Is Nothing Then
とすれば良いでしょう。

Address(0,0)はこの場合、
Range("B65536").End(xlUp).Offset(1)
が参照しているセルアドレスを返します。
Address(1,1)またはAddress(True,True)とすると、
$マークの付いた絶対参照で返します。
詳しくは、ヘルプでどうぞ。

0 hits

▼

【30839】Aｄｄressの除外範囲の設定 ぽんかん 05/11/5(土) 21:26