• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:エクセルマクロアクティブセルに色付&移動〔訂正〕)

エクセルマクロでセルの色と移動を変更する方法

このQ&Aのポイント
  • エクセルマクロを使用して、指定したセルとその右側のセルの色と罫線を変更し、次のセルに移動する方法を教えてください。
  • マクロ初心者ですが、エクセルマクロで特定のセルとその右側のセルの色と罫線を変更する方法を教えてください。
  • エクセルマクロを使って、選択したセルとその右側のセルの色と罫線を変更し、次のセルに移動する方法を教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.3

>コマンドボタンを準備 開発タブの挿入▼から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 などのように淡々と書いておきます。

yuutomo0908
質問者

お礼

回答1、回答2の皆様も良く分りましたが、迷った末に素人への分り易さで 今回はこちらの回答をベストアンサーとさせていただきました。 回答いただきました3名の皆様、ありがとうございました!! 本当にありがとございました!!

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (2)

  • mt2008
  • ベストアンサー率52% (885/1701)
回答No.2

罫線は色を変えるだけでいいんですかね? とりあえず下の罫線の色だけ変えて見ました。 Sub Sample()   With ActiveCell.Resize(1, 5)  'アクティブセルを含む5セルを対象     .Interior.ColorIndex = 6  'セルを黄色で塗りつぶし     .Borders(xlEdgeBottom).ColorIndex = 5 '下の罫線の色を青に   End With   ActiveCell.Offset(0, 5).Select '右隣のセルを選択 End Sub エラー処理等は行っていませんので、必要に応じて入れてください。

yuutomo0908
質問者

お礼

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

全文を見る
すると、全ての回答が全文表示されます。
回答No.1

たとえばこんな感じでしょうか '--- 現在のセルから右に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 もう少しスマートに出来そうですが・・・

yuutomo0908
質問者

お礼

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

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • Excelのマクロの詳しい方いませんか?

    xcelのマクロについて教えてください。 Excelのバージョンは、2003SP1です。 ツール:ユーザー設定:ツールバーでツールバーの新規作成を行い。 ツール:ユーザー設定:コマンド:書式で、左罫線、右罫線、上罫線、下罫線、縦罫線(内側)、横罫線(内側)を選定しました。 すると、罫線が書かれたセルを範囲選択すると選定したツールバーの色がリバースします。 リバースすたコマンドをクリックするとツールバーの該当する罫線が消えます。再度クリックすると罫線が書かれます。 同じことを自分でマクロを組むにはどうすればいいのでしょうか? 太い罫線で同じことがしたいのですが? 自分なりには、マクロの記録で、太い罫線を描くコマンドと罫線を消すコマンドは作ったのですが、切替式とツールバーをリバース表示する方法がわかりません。 どなたか、詳しい方助けてください。 至極基本的なことなんでしょうが? よろしくお願いします。

  • 罫線を回転

    エクセルで罫線を90度回転させるマクロを教えてもらいたいのですが。 例えば、選択セルの上・左・下に罫線が引かれている時に実行すると、左・下・右に罫線の位置が変わります。選択セルが複数の場合もあります。 よろしくお願いします。

  • changeイベントで相対移動

    B列の任意のセルに入力しEnter、カーソルが、その行の右3列目(E列)に移動、そのセルに入力しEnter、その行の右2列目(G列)に移動、 そのセルに入力しEnter、最初のB列の任意のセルの下にカーソル移動。 これの記述を教えてください。よろしくお願いします。

  • Excelで自動的に罫線を引く

    任意の4つのセルを選択状態にして実行すると、左上と右下のセルが罫線で囲まれるようにしたいのですが。 □  □ どのようなマクロになるでしょうか? おわかりの方がいましたら教えて下さい。 尚、4つのセルは常に一つの四角形を形成し、かつ2つの列を使用します。

  • 選択セルに色がついている場合に削除して左へ移動

    選択しているセルに色(具体的には何色でもいいのですが、初期設定は黄色)がついているセルを削除して左に移動するマクロを作りたいです。 想定しているのは、 1.選択する行は1列に限定(たとえば、A列) 2.上から順番に色がついているか判定 3.色がついていれば、セルを削除(左側へずれる) 4.次の行の判定(1に戻る) 5.選択しているセルの一番最後まで来たらマクロを終了する という具合のマクロを作りたいのですが、マクロの記録でわかるのは3の行を削除するところだけでした。 繰り返しと選択しているセルの判定がよくわからないのですが、どのようにすれば実現可能かお教えください。 -- Sub 選択セルにいろがついている場合() '【選択したセルに色がついているか判定】 '色がついているときは、削除する Selection.Delete Shift:=xlToLeft '【次のシートへ移る・選択している最後まで繰り返す】 End Sub

  • カーソルの移動順をリセットしたい

    エクセルで納品書を作成しています。 エンター又はタブを押したときのカーソルの移動方向は右で、下記の入力項目のみセルの書式設定でロックを解除しシートの保護をしています。 入力項目の入力順は ・発送先名 ・発送先敬称 ・発送元名 ・商品名 ・型番 ・数量 ・備考 で、商品名から備考までは16行あるので繰り返しです。 商品名と型番にはマクロで入力規則(リスト)を設定しています。 内容を新規で入力するためのコマンドボタンを設置していて、このボタンを押すと入力項目の内容がクリアされカーソルは発送先名に移動するので、エンター又はタブを押すと上記の入力順にカーソルが移動します。 ですが、商品名から型番へカーソルを進め、カーソルが型番にある状態で新規入力のコマンドボタンを押すと、カーソルは発送先名に移動しますがエンター又はタブを押すと、新規入力のコマンドボタンを押す直前の型番のセルにカーソルが移動してしまいます。 何故直前のセルにカーソルが移動するのかも不明で理由があれば知りたいのですが、タイトルのとおりカーソルの移動順をリセットする方法があれば教えて頂きたいです。

  • Excelの罫線のロックについて

    多量のセルを別のワークシートにコピペしなければならない作業があるのですが、各々罫線が異なっているので、いちいち[形式を選択して貼り付け]→[罫線を除くすべて]をしています。 Excelの罫線をロックできるコマンドは特にないし、量が量なので、一発で[形式を選択して貼り付け]→[罫線を除くすべて]のマクロを組んでみたいのですが、マクロはド素人です。 なのでマクロの構文だけではなく、はじめから順を追って教えていただける方、どうぞよろしくお願いします!

  • Excelで「形式を選択して貼り付け」のマクロの作り方

    WinXPです。 Excelで 1.コピー元セルの値をコピーします。 2.コピー先セルを選択します。 3.コピー先セルを右クリックして 4.「形式を選択して貼り付け」を選択します。 5.「罫線を除く全て」を選択します。 ここでコピー元セルもコピー先セルも位置関係はなくランダムです。 上の4.5.のみのマクロを作りたいのですが うまくいきません。 VBAは全くわかりませんが、以前5.の部分が「値」に したものをカーソルの操作を記録することにより 作ってあります。(Win98ですが) したがって今回も5.が違うだけですから 同様にできると思うのですが 昔のことで方法が忘れてしまいました。 単純に4.5.をマクロに記録して、実行したら 「シンジのメソッドが・・・」というエラーに なってしまいました。 よろしくお願いします。

  • ワードの表のセル幅をマクロを使って変更したい

    ワード2002を使っています。 エクセルからワードに、3列×12行の表を複数貼り付けました。 すべての表の、3列目の列幅を「110」に変更したいのでマクロ化したいのですが、 マクロの記録コマンドを利用すると表の列が選択できず困っています。 次の操作をマクロ化するにはどうしたらよいでしょうか? #対象の表内の任意のセルにカーソルを置いた状態でスタート    ↓ (1)表の3列目を選択する    ↓ (2)表のプロパティの「セル」タブで、「幅を指定する」を「110mm」に設定する どうぞよろしくお願いいたします。

  • エクセル2007でセル選択をした時の色が薄すぎる

    エクセル2007を使用しています。 選択中のセルってセルの色が反転しますよね? 2007になってから非常に薄くなって見づらいんです。 ドラッグ等して複数のセルを選択した時、境界線が分かりづらくて困っています。 行と、列番号がオレンジになりますが、離れた所にセルがあるとあまり役に立ちません。 セルに罫線を付けていると一層選択しているセルが分かりづらいです。 (図の選択中のセルは、すぐ下の書式と同じ罫線が設定されていますが、セルを選択することによって白い枠が付き、余計選択している範囲が分かりづらくなっています) 以前のヴァージョンはここまで見づらくなかったとおもいます。 コマンドの位置や配置が変わっただけで使いづらいのに、更に使いづらいです。 選択中のセルの色が濃くなる方法ってないですか?

専門家に質問してみよう