Excel VBA質問箱 IV

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

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


8631 / 13644 ツリー ←次へ | 前へ→

【32167】セルまたは文字に色をつける MAM 05/12/7(水) 21:53 質問[未読]
【32170】Re:セルまたは文字に色をつける ponpon 05/12/8(木) 1:00 発言[未読]
【32180】Re:セルまたは文字に色をつける MAM 05/12/8(木) 12:00 お礼[未読]

【32167】セルまたは文字に色をつける
質問  MAM E-MAIL  - 05/12/7(水) 21:53 -

引用なし
パスワード
   質問です
シート1
   A    B 
1 名前1.  名前5.
2 名前2.  名前6.
3 名前3.  名前7.
4 名前4.  名前8.
とあったとき
範囲A1〜B4で条件にあてはまるものに色をつけたい
ただし その条件が複数のとき
たとえば男であるまたは1組であるとか。
もちろんその情報は別のシートに入力しています。
シート2
   A   B  C
1  男  2組 名前
2  女  1組 名前
3  男  3組 名前
のようにです。

よろしくお願いします。

【32170】Re:セルまたは文字に色をつける
発言  ponpon  - 05/12/8(木) 1:00 -

引用なし
パスワード
   こんばんは。
今日は、常連さんの参加が少ないですね。

>たとえば男であるまたは1組であるとか。
ここの条件が具体的でないので、よくわかりませんが・・・

もっと良い方法があるかもしれませんが、
こんな感じでは、どうでしょう?
1組、2組・・の数字は全角です。
また、色は適当です。

Sub test()
  Dim SH1 As Worksheet
  Dim SH2 As Worksheet
  Dim myR As Range
  Dim r As Range
  Dim FR As Variant
  Dim myNO As Integer
  
  Application.ScreenUpdating = False
  Set SH1 = Worksheets("Sheet1")
  Set SH2 = Worksheets("Sheet2")
  
  Set myR = SH1.Range("A1:B4")
    myR.Interior.ColorIndex = xlNone
  For Each r In myR
   FR = Application.Match(r.Value, SH2.Range("C:C"), 0)
   If IsError(FR) = False Then
    Select Case True
     Case SH2.Cells(FR, 1) = "男" And SH2.Cells(FR, 2) = "1組"
       myNO = 3
     Case SH2.Cells(FR, 1) = "男" And SH2.Cells(FR, 2) = "2組"
       myNO = 6
     Case SH2.Cells(FR, 1) = "男" And SH2.Cells(FR, 2) = "3組"
       myNO = 4
     Case SH2.Cells(FR, 1) = "女" And SH2.Cells(FR, 2) = "1組"
       myNO = 15
     Case SH2.Cells(FR, 1) = "女" And SH2.Cells(FR, 2) = "2組"
       myNO = 24
     Case SH2.Cells(FR, 1) = "女" And SH2.Cells(FR, 2) = "3組"
       myNO = 38
    End Select
    r.Interior.ColorIndex = myNO
   Else
    MsgBox "この人の名前はありません。" & vbCrLf _
    & "セル番号:" & r.Address(0, 0)
   End If
  Next
  Application.ScreenUpdating = True
  Set myR = Nothing: Set SH1 = Nothing: Set SH2 = Nothing

End Sub

【32180】Re:セルまたは文字に色をつける
お礼  MAM  - 05/12/8(木) 12:00 -

引用なし
パスワード
   >>たとえば男であるまたは1組であるとか。
>ここの条件が具体的でないので、よくわかりませんが・・・

ここの意味は1組である生徒または1組以外でも男である生徒という意味です。

難しそうな構文ですが頑張ってやってみます。
ありがとうございます。

>

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