セルに色を着けて右に移動するマクロ　エクセル

うちのパソコン教室の受講生からそんな質問が。
選択したひとつのセルに色をつけて右に移動するのだったら、だれでもactivecell.offset(,1)を使うぐらいは思い浮かぶだろう。しかし、この人は複数のセルを選んでそこに色を着けて右の色がついていないセルに移動したいのだそうな。そこで、選んだセルの数だけ右に移動するマクロを作ってみた。
Option Explicit
Sub クリア()
　　Dim iro As Integer
　　Call セルの色(0)
End Sub
Sub ピンク()
　　Dim iro As Integer
　　Call セルの色(38)
End Sub
Sub イエロー()
　　Dim iro As Integer
　　Call セルの色(36)
End Sub
Sub グリーン()
　　Dim iro As Integer
　　Call セルの色(35)
End Sub
Sub セルの色(iro)
　　Selection.Interior.ColorIndex = iro
　　Selection.Select
　　ActiveCell.Offset(, Selection.Columns.Count).Select
End Sub

このブログの人気の投稿

赤が茶色に印刷されるプリンタ

ワードやエクセルで赤い図形などを作り、印刷すると、茶色かオレンジに印刷される。キヤノン、エプソン、フジゼロックスなどプリンタを変えても、同じ現象。レーザーでもインクジェットでも同じなのが納得いかない。イラストレータやフォトショップのＣＭＹＫモードでは多少は改善されるが、同じようなもの。モニターで赤く見えるというだけではなく、実際にＭ（マゼンタ）とＹ（イエロー）少しの赤にしてみても同じ。ネットで調べても同じ現象は２、３しか記述がない。どうなっているんだろうか？　だれも気づかないか、うちだけの現象か？　光の３原色は、色の３原色の１：１混色という単純計算なのだろうか？　赤ならマゼンタとイエローの混色、これでは、オレンジか茶色になってあたりまえ。かなり紫よりの赤にしないとだめだ。なにか自動補正してくれる機能はプリンタについていないかと思って調べ、カラープロファイルの変更で対処できそうだぐらいはわかるのだが、どのプロファイルが正しい赤になるのか分からない。

ワードエクセル基本操作ができる人募集対応講座

『ワードエクセル基本操作ができる人募集対応講座』を開講しましたワードやエクセルはビジネスでは必須ですが、最近、スマートフォンの普及で、まったくパソコンを使えない学生の方が増えています。ワードは簡単そうですが、画像を入れると位置や大きさや向きなどを調整できない方もいるでしょう。行の右端が凸凹とか。基本を習うだけで解決します。エクセルのVLOOKUP関数など検索系の関数や、エクセルの強力な集計機能であるピボット・テーブルや統合機能やテーブル機能など、ビジネスで欠かせない機能の講座です。VBA言語の入門も含みます。 https://www.kx777.com/kxpcs/wordexceltobeable.html ワードエクセル基本操作ができる人募集対応講座へ

パソコン教室の口コミ

うちに来る受講生の半分ぐらいは、よそのパソコン教室の実態を話してくれる。口コミって怖いよ。私は行っていないので、実名は出さないが、「ビデオを見せられただけ。変なおじさんが出てきて、単語を白板に書いただけで、操作説明はほとんどなかった。パソコンの画面は直接普通のビデオカメラで撮ったもので不鮮明だった。」とか「パソコンの話はほとんどなしで、なんだか商売の話ばっかりだった。」とか「テキストがそこの教室でプリントした薄っぺらな紙で、操作方法は書いて無くて出来上がりの見本だけだった。」とか、「マンツーマンや個人指導だというから行ったら、大勢の受講生がいて、数分だけ肩越しにゴニョゴニョ言われただけだった。」とか「一科目のＭＯＳの一般レベルを取っただけでインストラクターになってくれと言われた。」というのが多い。「フランチャイズのオーナーになることを薦められた。」とかね。よその教室を「大きな教室」とか「ちゃんとした教室」と言って、うちの「自宅の１階を改造した教室」をバカにする人もいるが、よそは教室も先生も「借りているだけ」だということをお忘れなく。うちは会社で自社の教室、よそは個人がフランチャイズの名前を使っているだけ。

合同会社ケイエックスの東京パソコン教室ブログ

このブログを検索