Excel VBA質問箱 IV

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

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


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

6893 / 76735

←次へ　｜　前へ→


	【75438】Re:値の貼り付け方法（上位３位までのセルに色付け）

りんご - 14/3/26(水) 6:15 -


	引用なし

	パスワード

ありがとうございました。感激です。利用させていただきます。
追加の質問になりますが、
　　　抽出データにより作成された　Ｎ７：Ｒ31のデータに対し
　　　項目（key1=N6、key2=O6、key3=p6,、ey4=R6）の各列の第３位までのセルに　　　色をつける場合（できれば、colorindex3、33、36複雑になるときは１色）
各列に対し３個のlage式が必要ですか？それとも、データセルが３個以上の場合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

1 hits

▼

【75411】値の貼り付け方法 りんご 14/3/21(金) 16:21