Excel VBA質問箱 IV

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

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


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

22752 / 76738

←次へ　｜　前へ→


	【59363】Re:入力日の自動セット

Jaka - 08/12/8(月) 15:21 -


	引用なし

	パスワード

あっ、
>If Target.count = 1 Then Exit sub
　　↓
>If Target.count > 1 Then Exit sub
すみません。

>⇒コピペされた範囲を取得する方法を教えていただけますか？
>　範囲取得できればループで処理できそうですが、範囲取得の方法が
>　調べているのですが見つからず･･･
範囲って、Targetが全てです。

msgbox Target.Address

ってやってみればわかります。
こうもできるし
For Each xx in Target

next

コピペの場合、コピー元のセルが離れていても
コピー先のセルではくっつきます。

また、複数セルを選択して、
Ctrlを押しながら確定した場合は、全てのセルの中身は同じになります。

だから、
Target.Areas の１つ目のセルの値が範囲にいくつあるかを数えて
セルの個数と同じならば、コピペでなく複数同時入力したものと考えられます。
（コピペでも全て同じ値なら、同じような結果になります。）
個数が違うなら、間違いなくコピペです。

0 hits

▼

【59355】入力日の自動セット MM 08/12/8(月) 12:42