itLinkedInB!HatenaLINELINE主にデスクワークをしている方で、図形の操作が必要となるExcelでの書類作成は意外と多いのではないでしょうか・図形の〇をつける・図形の横棒で斜線を引く・図形の三角で印をつける契約書や注文書を作成する際、以前使ったデータをコピーし、参考にしながら作成するという方法がよく使われますが、この方法には大きなリスクがあります。それは、図形の変更を忘れてしまう!ということ豆父ちゃん私はよく忘れて上司に叱られています・・VBAを使えば図形の変更を忘れてしまう!というリスクがなくなり、ほかにもいろんなメリットがあります。図形の操作プログラムの紹介ユーザーフォームに工事番号を入力しすると、Sheet1(一覧表)の○列の値によって、Sheet2(工事契約書)内の図形の表示が変化するというプログラムです。https://mamemametochan.com/wp-content/uploads/2020/01/Microsoft-Excel-工事注文書図形.xls-2020-01-06-05-35-37.mp4※上記の動画ではユーザーフォームが映っていませんが、ユーザーフォームに工事番号を入力し、実行すると図形が変化。下記のようにユーザーフォームが表示されている。】で詳しく紹介しています。図形の操作プログラムの内容モジュールに図形を操作するプログラムを作成します。一覧表の○列目の値によって図形を表示または非表示させるというプログラムを作成。複数の図形の操作が必要な場合、図形一つ一つに表示・非表示のプログラムを記載すると無駄に長いプログラムになってしまう。条件によって図形を表示させるので、関数IFを使用。For~Nextと関数IFを組み合わせて使う方法は下記の記事で詳しく紹介しています。PocketsVBAでForと関数Ifを組み合わせて使用する方法【繰り返し処理で作業効率アップ】https://mamemametochan.com/excel-5疑問がある人VBAで繰り返し処理(For~Next)と関数IFを組み合わせて使用したい。やって使えばいいの?こんな疑問にお答えします。この記事では、繰り返し処理(For~Next)と関数IFを組み合わせる書き方をサンプル事例を使って詳しくご紹介します。繰り返し処理(For~Next)と関数IFを組み合わせて使えるようになれば、以下のような処理を自動化することができます。条件によってセルの塗り潰しをする大量のデータをエクセルを使って分析、編集しているろいう方におすす...もしSheet(一覧表)の○列の値が「有」ならば、Sheet(注文書)の○セルで図形の丸を表示もしSheet(一覧表)の○列の値が「無」ならば、Sheet(注文書)の○セルで図形の丸を表示というプログラムを作成します。次に、Sheet(一覧表)の○列の値が「無」ならば、Sheet(注文書)で図形斜線を表示させる。いうプログラムを記載Sheet(一覧表)の有、無を変更するだけでSheet(注文書)の図形の操作が可能に。八角形などなど図形の種類は100種類以上あるので、全て紹介するのは省略します。数字を入れるアルファベットを使うか、数字を使うかは使いやすい方を使いましょう。2つの方法を使いわけるとき、とても重要な注意事項があります。注意事項・図形(アルファベット)を使用する場合、AddShapeの後カッコ()でくくる。・図形(値)を使用する場合、AddShapeの後カッコ()でくくらない。この違いをしっかり把握しておかなければ、システムエラーが発生したとき間違いを見つけることが困難になってしまいます。).Lineプログラムの赤色と黄色は斜線の始まり位置と斜線の終わり位置を示しています。A1セルの左上からB1セルの左上に斜線を引くという意味のプログラムです。微調整をしたい場合、それぞれのLeftやTopの後ろに+〇、-〇といったように数値を入れて調整を行います。VBAを導入するべきです。VBAを導入してから、作業時間の削減やミス印刷による無駄紙の削減に繋がりました。Excelで図形を操作する作業は意外と時間と手間がかかります。図形を操作するVBAで作業の効率化を行いましょう。複数のエクセルファイルを1つのブックにまとめたい。自己紹介マメな性格で2児の子を持つアラサー父ちゃん。働き方について日々研究中。このブログでは、VBAを使ったエクセル作業の効率をアップさせる方法を中心に記事を掲載しています。会社員のときに経験した「こんな機能がほしい」、「こんなことできたら便利だなぁ」という悩みをVBAで解決します。エクセル記事の他にも、「電気の仕事」についての情報を紹介しています。個人事業主が事業を営んでいく上で有益な情報や電気の仕事に関する情報などを私の経験からご紹介しています。「失敗」という貴重な経験を有益な情報に変換してみなさんにお届けします。