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 質問
【67047】補足です きりこ 10/10/28(木) 22:49 発言
【67048】Re:補足です kanabun 10/10/28(木) 23:05 発言
【67050】Re:補足です きりこ 10/10/28(木) 23:12 発言
【67049】Re:補足です 山猿 10/10/28(木) 23:06 発言
【67051】Re:補足です きりこ 10/10/28(木) 23:25 質問
【67052】Re:補足です 山猿 10/10/28(木) 23:44 発言
【67053】Re:補足です keisuke 10/10/29(金) 6:26 発言
【67054】Re:補足です keisuke 10/10/29(金) 6:59 回答
【67056】Re:条件付書式を使って、A列の言葉によって... きりこ 10/10/29(金) 20:37 お礼

15167 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free