Excel VBA質問箱 IV

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

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


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

36378 / 76732

←次へ　｜　前へ→


	【45536】Re:コピー時に判定する事はできるのでしょうか。

ナイスプログラム - 06/12/29(金) 23:39 -


	引用なし

	パスワード

　今晩は。

　Interior.PatternとInterior.PatternColorIndexは、両方ともlong型です。
Interior.ColorIndexは、variant型のようです。全て値の取得も設定も可能だそうです。(ヘルプより。)

　使い方としては、たとえば,テストはしていませんが、

dim lp as long,lpc as long
dim vci as variant
　
with worksheets("sheet1").range("a1")
　　lp=.Interior.Pattern
　　lpc=.Interior.PatternColorIndex
　　vci=.Interior.ColorIndex
end with

with worksheets("sheet2").range("a1")
　　 if .Interior.Pattern=lp then
　　 if .Interior.Pattern.ColorIndex=lpc then
　　 if .Interior.ColorIndex=vci then
　　　　　.value="※"
　　 end if
　　 end if
　　 end if
end with

　これでどうでしょうか。長いコードですが、これでうまく行けば、もっと整理出来るかも知れません。

　

1 hits

▼

【45419】コピー時に判定する事はできるのでしょうか。 ラーメンズ 06/12/22(金) 23:07