Excel2013,macroのcopy
Excel2013でマクロ実行するのですが、最後のstepの「条件付き書式」のcopyが上手く行きません。どなたかご教授お願いします。
A~J列x約4000行(1行~5行まではTytle行)のsheetです。
A列は日付で、過去からの日付となって居ます。
このsheetを見易くする為にA6行に
「条件付き書式」 =mod(month(A6),2)=0
を設定し、下記のmacro式でA6~J4000にCOPYするのですが、結果は上手く行きません。
※1:偶数月行のA列のみ正確に書式設定されるが、全列(A~J)にならない。
※2:奇数月のところどころ(列)に書式が設定される。
の不具合が生じます。
考えられる原因は何でしょうか?、ご教授願えませんでしょうか?。
与えたmacro
Range("A6").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=MOD(MONTH(A6),2)=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 11200714
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A6").Select
End Sub
お礼
回答有難うございます PowerPivot for Excel2010、調べてみます! 不安定の原因はメモリが足りないからと思ったのですが 別の質問してみます!