VisualBasic for Applicationsの略。 マイクロソフト社製の各Office製品に附属している、それぞれのアプリケーション（Excel、Accessなど）の操作に特化したVisualBasicの亜種。
プログラミング学習141日目。 今日は「シゴトがはかどるPython自動処理の教科書」3章、Wordファイルのテンプレートを自動で差し替える処理に取り組んだ。 import docximport datetime base_file = "seminar_invite.docx"output_file = "seminar_invite_mocho.docx"today = datetime.datetime.now() # テンプレート内の目印と、差し替えたい実際の文字列invite_map = { "[開催日]": today.strftime("%Y年%m月%d日"), "[参加者名]"…
コールセンターレポートの自動化プロジェクトの流れ 記事が数日間に分かれてしまっているので、 わかりやすく流れを書き残しておく。 9/9にcallcenter-report-automationプロジェクトに着手。generate_fake_data.py（Python）で架空のコールセンター日次データ（オーソリ入電・カード会員問い合わせ・紛失盗難の3項目）をCSV生成し、それをExcel VBA側（callcenter_report.xlsm）で取り込んで集計・グラフ化する、という2段構えの構成でスタートした。 9/10にQueryTables経由でのUTF-8取り込みマクロ（ImportCa…
先日から架空のコールセンターのデータをExcelで自動管理できるようVBAを書いています。久しぶりの晴れ。ひまわりがまだ咲いていました。 今日はシフト別集計の最後の仕上げ、日勤と夜勤を比較する棒グラフを追加した。 昨日理解したDictionaryの使い方に、月別集計で学んだ「SetSourceDataは使わずNewSeriesの戻り値を直接受け取る」というグラフの書き方を組み合わせただけだったけど、写経してF5を押したら一発で動いた。オーソリ平均は日勤が高く、紛失盗難平均は夜勤が高い、狙った通りの傾向がグラフにそのまま出ていた。 つまずかずに動いたことに、逆に拍子抜けした。ここ数日、KeyEr…
何度も見返す用のリファレンスとして、実務でよく出てくるものをカテゴリ別に整理しました。すべて「関数」ではなく、ステートメント（命令文）も混ざっているので、その点は区別して書いています。 セル・シート操作の基本 Cells(行, 列) / Range("A1") — セルの指定。Cellsは行列番号、Rangeはアドレスで指定 Range("A1").Value — セルの値の取得・代入 Range("A1").Offset(1, 0) — 指定セルから相対位置のセルを取得（行1つ下など） Range("A1:A10").Select — 範囲選択（マクロ記録でよく出るが、実務では極力使わない方…
今日はcallcenter-report-automationの続き、BuildShiftSummary（シフト別集計）の本番実装に戻った。 今日、理解したDictionaryの使い方をそのまま応用して、日勤・夜勤ごとにオーソリ・問い合わせ・紛失盗難の合計と平均を出すコードを書いた。写経も無事終わり、F5を押したら「集計とグラフの作成が完了しました。」というメッセージが出た。ここまでは順調だった。 ところがSummaryシートを見ると、シフト別集計の見出しは出てるのに、肝心の日勤・夜勤の数字が1行も入っていない。コードを見直しても間違いは見当たらない。 手がかりになったのは、別の場所にあった「…
callcenter-report-automationのVBA側（シフト別集計）に進む前に、Scripting.Dictionaryの仕組みを理解するため、ポートフォリオとは別のvba_practice.xlsmで小さな練習コードを書いた。復習用に、コードと解説をまとめておく。 ■ 練習コード全文 vba Sub DictionaryTest() Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") Dim fruits As Variant fruits = Array("りんご", "みかん", "りんご",…
コールセンターの集計マクロが動くまでの記録は別記事に書いた。 こっちは技術メモとして、コードの中身をもう少し詳しく残しておく。 ## 1. 全体構造：何をしているマクロか `CreateSummary`は「司令塔」で、中身は何もしていない。やってるのは以下の4つを順番に呼んでるだけ。 ```vbaSub CreateSummary() ClearSummarySheet wsSum ' 前回の集計結果を消す BuildMonthlySummary wsData, wsSum, lastRow ' ①月別集計 BuildWeekdaySummary wsData, wsSum, lastRow …
Option Explicit '==========================================================' callcenter-report-automation' Summaryシート集計・グラフ化マクロ'' 前提（違っていたら列レターだけ直せばOK）:' Dataシート: 1行目ヘッダー、2行目からデータ' A列 = date' B列 = shift（今回の集計では未使用）' C列 = auth_request_count （加盟店オーソリ取得入電）' D列 = cardholder_inquiry_count（カード会員問い合わせ入電）' …
今日は朝からVBAを本格的に書いています。 （AIが書いてくれたけど） Sub ImportCallCenterDate() Dim csvPath As String Dim dataSheet As Worksheet Dim qt As QueryTable csvPath = ThisWorkbook.Path & "\data\callcenter_report.csv" Set dataSheet = ThisWorkbook.Sheets("Data") dataSheet.Cells.Clear Set qt = dataSheet.QueryTables.Add(Connec…
はじめまして。このブログでは、Microsoft AccessとVBAを使った販売管理プログラムについて、私が長年実際に開発・運用してきた経験をもとに紹介していきます。 Accessを使った販売管理プログラムの作成を始めてから、約30年になります。現在も、これまで作成したプログラムのメンテナンスを続けています。 私がAccessを使い続けてきた一番の理由は、会社ごとの仕事に合わせたプログラムを比較的簡単に作ることができるからです。 販売管理といっても、会社によって伝票の入力方法、請求書の形式、集計方法などは違います。そのため、市販のソフトでは使いにくい場合があります。 AccessとVBAを使…
papasensei365.com
qiita.com
earningmoney.hatenablog.com
www.excelspeedup.com
www.javadrive.jp
risa.hatenablog.com
forest.watch.impress.co.jp
atmarkit.itmedia.co.jp
www.moug.net
