| |
▼hama さん：
>セルの中に値がなく黄色あります。
>どうすればよいのでしょうか？
>"*"の部分を差し替えればよいのでしょうか？
ブランクセルを変数rbに覚えておいて、一時的に何かデータを入れ、
色塗りが済んだら、クリアしちゃいましょう
Sub FindYellowCell()
Dim r As Range, rr As Range, rb As Range
Dim c As Range
Application.FindFormat.Clear
Application.FindFormat.Interior.Color = vbYellow
Set rr = [A1].CurrentRegion.Resize(, 4)
On Error Resume Next
Set rb = rr.SpecialCells(xlBlanks)
On Error GoTo 0
If Not (rb Is Nothing) Then
rb.Formula = "=TRUE" 'ブランクセルを TRUE式に代える
End If
For Each r In rr.Rows
Set c = r.Find("*", SearchFormat:=True)
If Not c Is Nothing Then
r.Cells(1, r.Cells.Count + 1).Value = "○"
End If
Next
If Not (rb Is Nothing) Then
rb.ClearContents 'クリアして元のブランクセルに戻す
End If
End Sub
|
|
kanabun
- 13/11/15(金) 17:38 -
