Excel VBA質問箱 IV

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

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


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

72412 / 76815

←次へ　｜　前へ→


	【8887】Re:グラフの色を変えるには？

Jaka - 03/11/7(金) 13:10 -


	引用なし

	パスワード

Sub vivi()
　　Dim LastRow As Long, i As Long, Acad As String
　　LastRow = 5
　　Application.ScreenUpdating = False
　　Acad = ActiveCell.Address
　　ActiveSheet.ChartObjects("グラフ 1").Activate
　　For i = 1 To LastRow
　　　 With ActiveChart.SeriesCollection(1).Points(i).Interior
　　　　　 If Range("A" & i).Value >= 30 Then
　　　　　　　.ColorIndex = 3
　　　　　 ElseIf Range("A" & i).Value >= 20 Then
　　　　　　　.ColorIndex = 6
　　　　　 Else
　　　　　　　.ColorIndex = 17
　　　　　 End If
　　　 End With
　　Next
　　Range(Acad).Select
　　Application.ScreenUpdating = True
End Sub

0 hits

▼

【8876】グラフの色を変えるには？ 24syan 03/11/7(金) 0:13