ここから本文です

エクセルのVBAで教えて下さい。 C10~E20の範囲に小数の数字が記入されています...

アバター

ID非公開さん

2018/8/2220:45:00

エクセルのVBAで教えて下さい。

C10~E20の範囲に小数の数字が記入されています。
セルは基本的に紫色ですが、部分的に橙色のセルになる場合があります。

全て紫色の列の数字をコピーするマクロを下記の流れで組みたいのですが、
調べても全くわかりません。

C10~C20に橙色のセルが無かったらC10~C20の数字をコピー。
あった場合はD10~D20に橙色のセルがないか検索し、なかったらD10~D20の数字をコピー。
あった場合はE10~E20に橙色のセルがないか検索し、なかったらE10~E20の数字をコピー。

お手数ですが、宜しくお願いします。

閲覧数:
16
回答数:
1
お礼:
25枚

違反報告

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

chi********さん

2018/8/2221:32:28

橙色のコードはマクロの記録で実際の色を指定して確認してください。
COPYしたあとどうするのか不明なのでCOPYだけです。

Sub Example()
Dim c As Range
Dim flg As Boolean

flg = False
For Each c In Range("C10:C20")
If c.Interior.Color = 49407 Then '= 橙色のコード
flg = True
Exit For
End If
Next
If flg = False Then
Range("C10:C20").Copy
Else
flg = False
For Each c In Range("D10:D20")
If c.Interior.Color = 49407 Then ' 橙色のコード
flg = True
Exit For
End If
Next
If flg = False Then
Range("D10:D20").Copy
Else
flg = False
For Each c In Range("E10:E20")
If c.Interior.Color = 49407 Then ' = 橙色のコード
flg = True
Exit For
End If
Next
If flg = False Then
Range("E10:E20").Copy
End If
End If
End If
End Sub

  • アバター

    質問者

    ID非公開さん

    2018/8/2420:01:53

    ありがとうございます!
    欲しい結果が得られました。
    お忙しいところ有難うございました。

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

  • 取り消す
  • キャンセル

この質問につけられたタグ

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

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

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

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

閉じる

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

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

閉じる