ここから本文です

EXCEL VBAで質問です。 1行目のどこかの列に▽が二つあり、その二つのセルとセル...

hel********さん

2019/5/1316:15:57

EXCEL VBAで質問です。

1行目のどこかの列に▽が二つあり、その二つのセルとセルの範囲を選択して、
セルの色を赤にします。
▽がない、または1つしかない場合は何もしません。

それを、セルの最終行まで行いたいのですが、うまくいきません。

教えていただけないでしょうか?

閲覧数:
37
回答数:
1

違反報告

ベストアンサーに選ばれた回答

chi********さん

2019/5/1322:08:27

最終行がシートの最終行まででいいのでしたら

Sub Test()
Dim i As Long
Dim F1Obj As Range, F2Obj As Range, FArea As Range

For i = 1 To Rows.Count
Set FArea = Range(Cells(i, "A"), Cells(i, Columns.Count))
Set F1Obj = FArea.Find("▽", LookAt:=xlWhole)
If Not F1Obj Is Nothing Then
Set F2Obj = FArea.FindNext(F1Obj)
If Not F2Obj Is Nothing Then
Range(Cells(i, F1Obj.Column), Cells(i, F2Obj.Column)).Interior.Color = vbRed
End If
End If
Next i
Set FArea = Nothing
End Sub

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この回答は投票によってベストアンサーに選ばれました!

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる