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