EXCEL&ﾏｸﾛ
(超初心者)

EXCELがとっても初心者さん向けに、個人的主観で紹介します。始めに、すでに多少使っている方は、初心者向けのサイトは結構ありますので、そちらの方が勉強になると思いますのでご了承ください。自分がEXCELを使い始めたときに、もやもやした経験を参考に紹介します。Excel4.0...聞いたことあまりないですよね、Windows3.1が出た頃のバージョンですが、自分の初めてふれたEXCELです。※おっさんです。（＾＾；）まずEXCELってなんだか分かります？こっからはじめます。マイクロソフトの表計算ソフトですよね。パソコンにできるファイル...

EXCELのマクロとは。そんなフレーズで検索すると沢山出てきますね。内容は...・マクロとは、エクセル上での作業を記録し、自動的に実行してくれる機能です。・一連の作業がボタンひとつで終わるため、時間を短縮することができ、記録の段階で間違えない限り、ミスをすることなく連続して同じ作業が実行できます。・マクロとはマイクロソフトのエクセルに標準装備されている、複数の手順を記憶して、自動的に実行させる機能のことを言います。・マクロはVBAを使って作成したプログラムのことです。....じっくり読めば分かると思いますが...

マクロの詳細はネットでぐぐると先人達が分かりやすく説明しているサイトが沢山あります。ただ、いきなりでは難しいので、そこにたどり着くまで力になれたらと思います。－office2016ベースに説明致します。－最初に、VBE(Visual Basic Editor)を起動します。マクロを書くところですね。起動する前に、いろいろな起動方法があるのですが取り急ぎオーソドックスな方法で行きます。開発タブが上のリボン（※絵がいっぱい書いてあるところ）をクリック。※無かったら以下方法で出してください。Office アプリケーションで タブを表示する方...

EXCELファイル取込みとタイトル付けしてますが、手で実行するコピーです。マスタexcelを取込んだりするときにマクロ化しておくと便利です。サンプルを作ってみましたので参考にしてください。メインEXCEL：　Sample_2.xlsm取込むEXCEL：　Sample_2e.xlsx赤字を変更してください青字は、変数ですので宣言を忘れないでください。※標準モジュールのmudule1の上のほう、Option Explicitに書きます。前のブログで\簡単に説明しています。 MSG_FLG = MsgBox("SAMPLE2.xlsx →　myEXCEL 取込" & vbCrLf & " 実行ＯＫ...

ヤマト運輸　荷物お問い合わせ（宅急便番号調査追跡）作ってみた。2022/4/5ヤマトの問い合わせページが刷新されたため、マクロを修正しました。伝票番号が分からないのでほとんど動作確認はしてません。また、IEがEdgeにかわるアナウンスが出ているので、短命かもしれません。メインEXCEL：Sample_3.xlsmSample_YAMATO20220405HP SAGAWA、JP 版クロネコヤマトの宅急便でおなじみのヤマト運輸の荷物お問い合わせをexcelで作ってみました。数件程度でしたら調べるのはたいして手間ではないと思いますが、大量の番号を検索するのに使...

クロネコヤマト（ヤマト運輸）SAGAWA（佐川急便）とJP（郵便局）荷物お問い合わせ（宅急便番号調査）作ってみた。前回、クロネコヤマトの宅急便でおなじみのヤマト運輸の荷物お問い合わせをexcelで作ってみましたが、佐川急便と郵便局も作ってみました。【背景】個人のかたは、1件ずつの宅急便伝票番号検索しますよね。会社で荷物を発送している場合、まとめて大量に検索したいことってありませんか？B2クラウドとかで出荷していると、ある程度の追跡ができるのですが、ちょっと使いづらいです。自分も以前、メール便（今はDM便）1000...

以前csv取り込みのサンプルをUPしましたが、今回はcsvを追加で取込むマクロを紹介します。複数のcsvファイルを取込むときに使えると思います。取込む位置を決めて、そこに追加していくやりかたです。【条件】基準項目は必ず存在する。Sample_5.xlsm以下マクロの内容です。MSG_FLG = MsgBox("サンプルファイル" & vbCrLf & "★追加　取込み処理実行ＯＫ？", vbYesNo)If MSG_FLG = vbNo Then Exit SubEnd IfConst cnsTITLE = "○SAMPLEデータ、取込み処理"Const cnsFILTER = "SAMPLE...

改行など、いろいろなコードが混ざっているCSVをexcelにマクロで読み込むのは非常に面倒ですね。前提条件はありますが、一つ例を上げたいと思います。前提条件：・CSVを直接EXCELで開くと必要な形で開ける。・前ゼロが消えても問題ない。※会社の社内ツールや、DBから抽出されたデータは、ダイレクトにEXCELで開くと問題はないが、excelで取込む（CSV）と改行やカンマの文字が弊害でデータがうまく取れないことがあります。excelでCSVをダイレクトでオープンして、それをコピペすればそのまま取込めます。Sample_6V10.xlsm MSG_FLG =...

EXCEL超初心者マクロと言いつつ、自分の思いつきでUPしてるような気がしてますが、そこは置いといて...今回は、検索をご紹介します。Findを使うのですが例は、【球団名】が入っているシートから、【選手名と球団名】が入っているシートを検索して、その【球団名】とマッチした数をカウントします。ついでに、1回でも検索されたら○マークを【選手名と球団名】に入れます。完全一致ではなく、部分一致を使います。※マスタ検索などは、【選手名と球団名】から【球団名】を完全一致で検索してデータを抽出するのが一般的です。サンプルです...

今回は分割の説明とサンプルを紹介いたします。電話番号を分割したいときってありますよね。splitを使うと簡単に分割できますただ、電話番号のように、同じ場所にハイフンが入ってるデータは簡単ですが、数が違う場合は少し工夫が必要です。Sample_10V1.xlsm1.電話番号分割※出力先を文字列にしておきましょう。マクロでやってもいいですね。2.最終の文字 & 分割A>B>C>D>E>F>GA>B>C>D>E>FA>B>C>D>EA>B>C>DA>B>CA>BA1.電話番号分割Dim set_data01 As ObjectDim VWOR...

連続したHTMLや決まった形のHTMLを定期的に更新したいときありませんか？そんなのも、EXCELのマクロでできちゃいます。※自分はHTMLあまり強くないので細かい突込みはご勘弁下さい。サンプル:Sample_11V1.xlsm例として、こんな依頼がきたとします。商品一覧の、商品コード、商品名、価格、リンク、etcを100件分、HTML形式で作成してください。形式はテーブルで...スパンは、週1回でお願いします。手馴れた人や、簡単な構造だったら、EXCELの機能や、エディター等でできちゃうんですが、慣れない人にはちょっとつらいですね。当然作成す...

このマクロは、ヘダーの項目の位置が固定じゃない時、ヘダーを読んで位置を確定して、一番最後に分割して展開するものです。管理ツール等で抽出する際に変わってしまう事があると要望にあったので作成しました。分割は、数が固定ではないため、SplitとUBoundを使ってコントロールしています。※各項目の宣言は、module1の上のほう、Option Explicitに書いてます。Public xxxxxx as Long 等SAMPLE12.zip MSG_FLG = MsgBox(" 処理コード分割実行ＯＫ？ ", vbYesNo) If MSG_FLG = vbNo Then Exit Sub End If m...

CSVファイルが大量にあり、処理の関係で分割してほしいという要望があり、急遽作成。ちょっと雑に作ってるので勘弁してください。いつもですけどね。条件KANRIシートのB1に取り込むCSVのフォルダを入れてください。CSVに改行等が入っていいない。CSVは文字列で取り込む（分割のみが目的な為）件数と、作成ファイル数を指定出来ます。簡易版として作ったので、出力の際一件ずつ保存ダイアログで止まります。SAMPLE13.zipDim OUTFILEDim recheadDim recout mySheetName001 = "INCSV" ' ***処理確認*** M...

グラフをマクロで作成する依頼があり、備忘録も兼ねてUPします。実は、マクロでグラフを作ったことが無く、ほぼ1から調べて作成したのでおかしな部分もあるかもしれないので、ご勘弁を。結構手こずりました。マクロの記録をベースにして、賢人たちのサイトをググりながら作成したのですが、なかなか思いどうりにならない。最終的には、できたのだが、いくつか疑問が残ったままの着地で、むずかゆい感じがします。実は、うまくマクロが動いても、繰り返すと出来上がりが変わったり、元データーの内容でも影響があった。想像だが、グラフ...

久しぶりにUPです。EXCELやCSVが沢山あって、一つずつ合体させることってないですか？デイリーのデータを毎週、毎月なんて面倒ですよね。場合によっては100個ぐらいあったりしたら間違いのもとになります。数個なら大した手間でもないし、CSVならコマンドプロンプトの「TYPE」コマンドでできたりするのですが、EXCELは手動で切り貼りが必要です。実は、社内で要望があり、作ったので、それを参考にサンプルを作成しましたSAMPLE16.zip※Cドライブ直下に解凍してください。KANRIシートで基本ホルダは変更できます。※ダウンロードする際は...

最近、韓国とNHKネタにハマっててEXCELの方に手を付けていませんでした。久しぶりに、頼まれたネタをUP致します。EXCELのシートを新規EXCELにコピーして保存するマクロです。SAMPLE17.zip※ウイルスチェックしてください（習慣付けましょう）STARTシートのカメラのアイコンをクリックしてください。単純コピーです。応用すると連続でできたりもします。DATAシートを新規EXCELにコピーして保存します。 Dim OUTPUT_BOOK As String Dim INPUT_BOOK As String MSG_FLG = MsgBox(" COPY OK？ ", vbYesNo) If MSG_...

EXCELとACCESSを使って、出来ること。EXCELからACCESSにデータを追加してみようかな？日々データー量が増加して、EXCELが重くなるなんてありませんか？100万件以内ならそれでも...と思いますが、それを超えだすと厳しくなってきます。Excelは1シートに100万件までです。※2003以前はもっと少ないです。解決策はいろいろあると思うのですが、今回、Accessにデータを溜めておき、必要なときに抽出して使う方法を簡単に説明したいと思います。細かいところは、ググれば先人たちの説明がネットにあふれていますのでそちらを...（＾＾）イメ...

EXCELとACCESSを使った運用 Part.1からの続きです。今回はACCESSに入っているデータを、EXCELに抽出します。SAMPLE101.ZIPざっくり説明します。Accessはデータベース管理システムのソフトウェアです。容量等に制限があり、あまり大きなデータは向きません。一件のデータの大きさにもよりますが、数百万件程度ぐらいなら大丈夫だと思います。以下の例は、AccessへSQLを使用して、EXCEL側へ対象日付のデータを抽出するEXCELマクロです。そのまま抽出と、集計して抽出するマクロを掲載しています。SQLってなんぞな？って方もいらっしゃい...

じぶんの備忘用ページです。コピペして作ることが多いので、すぐ忘れちゃうんですよね。　マクロ　改行コードvbCr／Chr(13) キャリッジリターンvbLf／Chr(10) ラインフィードvbCrLf／Chr(13) + Chr(10)　上記の組み合わせ8桁のテキストを日付形式にフォーマットWORK01 = Format(set_data01.Offset(0, 0).Value, "@@@@/@@/@@")他のEXCELを指定したシートに貼り付けるmySheetName001 = "ExcelPaste" '### 貼り付けるシート名MSG_FLG = MsgBox(mySheetName001 & ".xlsx →　取込" & vbCr...