エクセルマクロアクティブセルに色付&移動〔訂正〕

質問

現在以下の内容でどのようにすれば良いか分らず大変困っています。
お忙しい中すみませんが、ご教示お願いいたします。

エクセルマクロで次のようにしたいと思っています。
※例えば、”５”と表示されたコマンドボタンを準備しておき、以下の操作を割り当てたいです。

(1)選択したセル（任意の場所）から、
(2)選択したセル＋右方向４セル（都合５セル分）の、
(3)「塗りつぶし（例えば黄色）と、罫線（例えば青線と）」を変更し、
(4)(3)の動作が終わったら、右６セル目にカーソルを移動。

以上です。
先程似たような質問をしてしまいましたが、こちらが正しい内容です。
マクロ初心者でわからない事だらけですが、急にニーズが出てしまいました。
皆様よろしくお願いいたします。

回答No.3

keithin · ベストアンサー

＞コマンドボタンを準備

開発タブの挿入▼からActiveXコントロールのコマンドボタンを使うとして

Private Sub CommandButton1_Click()
　ActiveCell.Resize(1, 5).Interior.Color = vbYellow
　ActiveCell.Resize(1, 5).Borders.LineStyle = xlContinuous
　ActiveCell.Resize(1, 5).Borders.Color = vbBlue
　ActiveCell.Offset(0, 5).Select
End Sub

などのように淡々と書いておきます。

お礼

回答１、回答２の皆様も良く分りましたが、迷った末に素人への分り易さで
今回はこちらの回答をベストアンサーとさせていただきました。

回答いただきました３名の皆様、ありがとうございました！！
本当にありがとございました！！

回答No.2

mt2008

罫線は色を変えるだけでいいんですかね？
とりあえず下の罫線の色だけ変えて見ました。

Sub Sample()
　　With ActiveCell.Resize(1, 5)　　'アクティブセルを含む5セルを対象
　　　　.Interior.ColorIndex = 6　　'セルを黄色で塗りつぶし
　　　　.Borders(xlEdgeBottom).ColorIndex = 5 '下の罫線の色を青に
　　End With
　　ActiveCell.Offset(0, 5).Select '右隣のセルを選択
End Sub

エラー処理等は行っていませんので、必要に応じて入れてください。

お礼

ありがとうございます！
下線のみの時はこのようにやるのですね。
とても参考になりました！

回答No.1

mm_wanko_mm

たとえばこんな感じでしょうか

'---　現在のセルから右に5つのセルを範囲指定 ---
Range(ActiveCell, ActiveCell.Offset(0, 4)).Select

'---　セルを黄色で塗りつぶす　---
Selection.Interior.Color = vbYellow

'---　セルを青色の罫線で囲む　---
With Selection.Borders
.Color = vbBlue
.LineStyle = xlContinuous
.Weight = xlThin
End With

'---　右隣のセルに移動 ---
ActiveCell.Offset(0, 5).Activate

もう少しスマートに出来そうですが・・・

お礼

ありがとうございます！
参考になりました！