|
ありがとうございました。感激です。利用させていただきます。
追加の質問になりますが、
抽出データにより作成された N7:R31のデータに対し
項目(key1=N6、key2=O6、key3=p6,、ey4=R6)の各列の第3位までのセルに 色をつける場合(できれば、colorindex3、33、36複雑になるときは1色)
各列に対し3個のlage式が必要ですか?それとも、データセルが3個以上の場合sortして色をつけ再度 日にちをkeyに並べ替えると考えるのでしょうか?
なかなか、理解できない初心者です。よろしくお願いします
ちなみに前回のマクロはこのように
Sub 抽出当月()
'
Dim 終行 As Long
Application.ScreenUpdating = False
If WorksheetFunction.CountBlank(Range("H4:I4")) > 0 Then
MsgBox "抽出期間を設定して下さい"
Exit Sub
End If
Range("B7:R31").ClearContents
Range("T6:Z400").AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("GG1:GI2"), _
Unique:=True
Range("T6:Z400").Copy
Range("B6").PasteSpecial Paste:=xlPasteValues
ActiveSheet.ShowAllData
終行 = Range("b31").End(xlUp).Row
If 終行 = 6 Then
Range("b2").Select
MsgBox "何も抽出されませんでした"
Exit Sub
End If
Range("B6:H" & 終行).Sort _
Key1:=Range("B6"), _
Order1:=xlAscending, _
Header:=xlYes
Range("i7:i" & 終行).Formula = "=Sum(E7:H7)"
Range("n7:r" & 終行).FormulaR1C1 = "=IF(ISERROR(ROUNDDOWN(RC[-9]*1000/RC4,1)),0, ROUNDDOWN(RC[-9]*1000/RC4,1)) "
Range("b7", "d" & 終行).Copy
Range("k7").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("r4").Select
Application.ScreenUpdating = True
End Sub
|
|