Excel VBA質問箱 IV

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

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


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

15167 / 76738

←次へ　｜　前へ→


	【67054】Re:補足です

keisuke - 10/10/29(金) 6:59 -


	引用なし

	パスワード

時間がありましたので、作ってみました

Sub 色分け()

Dim GYO As Integer, X As Integer

'この部分はセルの値を並列に入れたほうが簡単
Dim A5(6) As String
A5(1) = "123ACB"
A5(2) = "234ACB"
A5(3) = "345ACB"
A5(4) = "456ACB"
A5(5) = "789ACB"
A5(6) = "13ACB"

For GYO = 2 To 15
　For X = 1 To 6
　 If Cells(GYO, 5) = A5(X) Then'A5(1,X)
　　 Cells(GYO, 1).Resize(1, 30).Interior.ColorIndex = X'A5(2,X)
　　 Exit For
　 End If
　Next X
Next GYO

End Sub

'別の方法　セルの値を並列に入れた（判定させる値を変更には便利）
A1～F1に"123ACB"などA2～F2に色番号を入れます。
Dim A5 As Variant
A5 = Cells(1, 1).Resize(2, 6).Value

For GYO = 2 To 15
　For X = 1 To 6
　 If Cells(GYO, 5) = A5(1,X) Then
　　 Cells(GYO, 1).Resize(1, 30).Interior.ColorIndex = A5(2,X)
　　 Exit For
　 End If
　Next X
Next GYO

End Sub

0 hits

▼

【67046】条件付書式を使って、A列の言葉によってその行の色を変えたい きりこ 10/10/28(木) 22:17