ここから本文です

VBAについて質問です。画像のようにA1,2、B1,2セルにE列に指定したようにそれぞれ...

アバター

ID非公開さん

2017/11/1423:16:28

VBAについて質問です。画像のようにA1,2、B1,2セルにE列に指定したようにそれぞれ『1』『2』という名前を付けて、F列に指定した色を塗るにはどのようにすればよいでしょうか。

わかりづらくてすみませんが、よろしくお願いします。

B1 2セル,A12,VBA,それぞれ,r As Range,SpecialCells,A1&quot

閲覧数:
71
回答数:
1
お礼:
500枚

違反報告

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

kik********さん

2017/11/1507:16:55

雰囲気以下でどうなりますか

エラー処理は全く入ってません
1, 2 の解釈は適当にしてみました


Dim rng As Range, r As Range

Set rng = Columns("E").SpecialCells(xlCellTypeConstants)
With Range("A1").Resize(2)
   For Each r In rng
      .Columns(r.Value).Interior.ColorIndex = _
         r.Offset(, 1).Interior.ColorIndex
   Next
End With

  • アバター

    質問者

    ID非公開さん

    2017/11/1600:44:55

    ご回答ありがとうございます。A1,2とはA1セルとA2セルを選択するという意味で書きました。わかりづかくてすみません。重ねて質問申し訳ありませんが、例えばB4:C7のように6つのセルを指定し、E列に入れた名前(コード)を付け(今回の続きであれば『3』等)、F列に指定した色を塗るような追加操作がある場合はどのようになるでしょうか。よろしくお願いいたします。

  • その他の返信(1件)を表示

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

  • 取り消す
  • キャンセル

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

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

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

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

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

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

閉じる

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

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

閉じる