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

うちのパソコン教室の受講生からそんな質問が。
選択したひとつのセルに色をつけて右に移動するのだったら、だれでも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 ワードエクセル基本操作ができる人募集対応講座へ

コロナウイルス感染症の影響について

当社のパソコン教室は通常営業しています。（土日、祝祭日、平日、すべて営業。）開業当初から「講師のマスク着用」「インフルエンザ予防注射」「アルコール（消毒用エタノール）と次亜塩素酸ナトリウム（ケンミックス）と塩化ベンザルコニウム（オスバン）による教室およびマウスやモニターの消毒」などの感染症予防を行っています。今のところ、コロナウイルスの感染拡大は東京では広範囲では起きていないようですので、今のうちの受講をおすすめします。一応、最近海外に訪問したことがある方、熱がある方、咳やくしゃみが出る方は、ご遠慮ください。（咳やくしゃみについては、ウイルスが入っていないとしても、その他のものが飛散しますが、マスクで対処できる程度なら可。）受講者の方にもマスク着用と入室時の手の消毒をお願いしております。教室にも「受講者用使い捨てマスク」をご用意しております。玄関には「手ぴかスプレー（アルコール）」が置いてあります。１日講習（１日７時間で１科目修了）、２日講座（２日合計８時間で１科目修了）、夜間通学講座（夜学、２部の通学講座。合計１２時間以内で修了。夏秋期午後７時以降、冬春期午後６時以降。）　科目は、Word、Excel、PowerPoint、Access、HTML言語。合同会社ケイエックスのパソコン教室

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

このブログを検索