Excel VBA質問箱 IV

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

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


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

36377 / 76732

←次へ　｜　前へ→


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

ラーメンズ - 06/12/30(土) 12:29 -


	引用なし

	パスワード

ナイスプログラムさんありがとうございます。
おかげで、やろうとしていた事ができました。改良しつつ使っていこうと思います。

▼ナイスプログラムさん：
>　今晩は。
>
>　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
>
> 　これでどうでしょうか。長いコードですが、これでうまく行けば、もっと整理出来るかも知れません。
>
>
>

0 hits

▼

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