|
こんにちは
私はエクセルに詳しくないので、わかりませんが、
Jakaさんの意見がいいのだろうと思います。
>条件付書式は普段より使用しているのですが
>3つまでしか条件がつけれなかったと思います。
>今回は、10個〜20個の条件をつけたいので
>この方法では十分に対応できませんでした。
10〜20も条件があるのなら、
If文を自分で書けないと厳しいかと。
>Sheet3への書き出しもIFを使ってみようと試みましたが
>出来ませんでした。
>すみませんが、ある条件を満たすセルの書き出し方法を
>教えてもらえませんか?
あくまで一例ですが、べたべたに書くとこんな感じ。
これも、多分Jakaさんの言っているやり方でやれば、
もっといいのでしょう。
Sub IF文みたいな()
Dim i As Integer
Dim wS As Integer
Dim findValue As Integer
Dim nowRange As Integer
'ここに探したい数を入れる
findValue = 2
nowRange = 1
For wS = 1 To Worksheets.Count - 1
For i = 1 To 300
If Sheets(wS).Range("A" & i).Value = findValue Then
Sheets(wS).Range("A" & i).Font.Color = RGB(255, 0, 0)
'シート3に書き出し。
Sheets(Worksheets.Count - 1).Range("A" & nowRange) = _
Sheets(wS).Name & "A" & nowRange
Next i
End Sub
|
|