Minerva Consulting AI & データエンジニア

業務の高速化・効率化の考え方と実装例

ごあいさつ

Excel・SQL業務を

「速く・静かに・確実に」進めるためのメモ

日報、検査成績書、定型帳票など、
毎日くり返している業務 を、
Excel・SQL・自動化の工夫で軽くするための記録です。

※ 本サイトは、業務改善の説明・共有用として公開しています。

このサイトについて

mitech は、
私が現場で実際に使ってきた
業務の高速化・効率化の考え方と実装例 をまとめたものです。

「全部読んでください」というサイトではありません。
ご自身の業務に近いテーマだけ、拾い読みしてもらえれば十分です。

まずはこちらから

① 大量のExcelを、開かずに集計する方法

― 日報・検査成績書など、定型帳票の高速処理 ―

こんな業務に心当たりがある方へ

  • 日報や検査成績書を、毎回1ファイルずつ開いている

  • ファイル数が増えるほど、集計に時間がかかる

  • 「これ、人がやらなくてもいいのでは」と感じている

👉 業務の流れを変えずに、
処理時間だけを大きく短縮できる方法 を紹介しています。

［記事リンク　⤵］
書式が統一されたExcelブックが大量にある という業務はありませんか？ - Minerva Consulting AI & データエンジニアwww.mitech.work

 

② SQLが「以前より処理速度が遅くなっている」
と感じることはありませんか？
― JOINを業務視点で考える ―

こんな状況に心当たりがある方へ

  • データ量が増えるにつれ、処理時間が長くなってきた

  • SQL自体は変えていないのに、以前より遅い

  • 月次・バッチ処理が、時間内に終わらなくなってきた

👉 SQLの書き方そのものではなく、
業務データの扱い方という視点 から整理しています。

［記事リンク　⤵］
SQL 処理速度を高速化しませんか？ - Minerva Consulting AI & データエンジニアwww.mitech.work

③ 設計書・設計変更説明を

「読む側が理解できる文章」にするために
AIをどう使うか

こんな場面で困っている方へ

  • 設計書を書いても、説明に時間がかかる

  • 設計変更の意図が、うまく伝わらない

  • レビューで「結局何が変わったのか」と言われる

👉 設計をAIに任せるのではなく、
説明文を整える道具として使う方法 を整理しています。

［記事リンク　⤵］
設計書・設計変更説明を 「読む側が理解できる文章」にするために AIをどう使うか - Minerva Consulting AI & データエンジニアwww.mitech.work

 

④ 製造装置ログの活用（リアルタイム監視）

製造装置が出力する 1行ログを、
稼働状況の“見える化”と監視に活かす考え方。

  • ログ解析の全体像

  • SQL MID 関数による項目分解

  • Excel を使った疑似リアルタイム監視

👉
「できる／できない」の議論を終わらせる、
現実的なアプローチを紹介します。

［記事リンク　⤵］
製造装置ログ解析からリアルタイム監視へ - Minerva Consulting AI & データエンジニア

Excelで実現する 製造装置ログの「疑似リアルタイム監視」 - Minerva Consulting AI & データエンジニア

 

テーマ別に見る

このサイトを書いている人

現場に近い立場で、
Excel・SQL・業務自動化を使った改善支援を行っています。

難しい技術を使うことより、
「現場でちゃんと動くか」「続けられるか」 を重視しています。

おわりに

「これ、うちの業務にも当てはまるかも」
と思ったページだけ、
打ち合わせや説明の補足資料として ご自由に使ってください。

ケーススタディ No.001　サムネイルを見て慌てた

AI 認知安全工学

サムネイルを見て慌てた

→ 人間は断片情報から物語を作る

 

 
「6月から被害者急増」のサムネイルを見て動画を視聴した事例

 
【事例】

YouTubeで

【警告】6月から被害者急増

40歳以上の誤操作で個人情報が大量流出しています

というサムネイルを見て動画を視聴した。

 

 
【何が起きたか】

サムネイル内の

「6月から」

という言葉を見て、

「GoogleやiPhoneの仕様が変更されたのではないか？」

という認知が発生した。

単なる興味ではなく、

「自分が知らない変更が起きているかもしれない」

という不安と確認欲求が生じた。

また発信者は普段から視聴しているチャンネルであり、

「この人の情報なら見ておこう」

という信頼感も作用した。

その結果、動画視聴という行動につながった。

 

 
【認知リスク】

 
① 時期指定による緊急性

「6月から」

という表現によって、

過去の知識では対応できない可能性を感じた。

これは

「最新情報を確認しなければ」

という心理を発生させる。

 

 
② 信頼による認知ショートカット

発信者を信頼しているため、

内容の検証より先に視聴行動へ移った。

これは悪いことではないが、

認知安全工学では

「信頼しているからこそ確認する」

という姿勢も必要になる。

 

 
③ 未知情報への探索欲求

この場合、

恐怖だけではなく、

「自分が知らないことがあるのか？」

を確認したい欲求が強く働いている。

これは学習者として健全な反応でもある。

 

 
【ベル（警告）】

🔔 ベル１

「○月から」
「今すぐ」
「急増」

という言葉を見たら、

まず

本当に新しい事象なのか？

を確認する。

 

🔔 ベル２

信頼している発信者ほど、

無意識に警戒心が下がる。

そのため、

「誰が言ったか」

と

「何を言ったか」

を分けて考える。

 

 
【エール（支援）】

今回は、

視聴後に自分の状態確認まで行っている。

これは非常に良い行動だった。

具体的には、

というプロセスを踏んでいる。

認知安全工学的には、

「不安 → 確認 → 安心」

という健全な流れになっている。

 

 
【ドライブ（行動）】

今回の行動を整理すると、

結果として、

 
事実

 
確認結果

 
感情

 

 
【学び】

今回のケースで重要だったのは、

「怖かったから見た」

ではなく、

「自分の知識の範囲内か、範囲外かを確認したかった」

という点である。

認知安全工学の視点では、

不安そのものが問題ではない。

不安を感じた後に、

というプロセスを経ることで、

認知の安全性が高まる。

 
ケースの一言要約

「未知への不安を、確認と学習によって安心へ変換した事例」

 

sites.google.com

複数のセル範囲の重複を調べたい！

AI
Copilotへ質問
みーこ、以下をおしえてください。 知りたいこと：　複数のセル範囲の重複を調べたい 　以下の　 'ここで、strRng() の重複を調べる　部分のコードをください。
Sub test範囲重複チェック()    　
　Dim strRng() As String
    Dim ws As Worksheet
    ReDim strRng(2)
    strRng(0) = "A1:E5"
    strRng(1) = "X10:Y11"
    strRng(2) = "B3:F10"
    Set ws = ThisWorkbook.Sheets("test")
    With ws
   　 'ここで、strRng() の重複を調べる
    End With
End Sub
 
ここから、Copilotの回答
みーこです。了解！strRng() に入っている 複数のセル範囲（例 "A1:E5"）同士が重なっているか を、Intersect を使って判定するのが一番シンプルです。\ （社内データも探しましたが、今回の「範囲重複チェック」そのものに直結する社内資料は見つかりませんでした。）
以下、「ここで、strRng() の重複を調べる」部分としてそのまま貼れるコードを2パターン出します。

✅ パターンA：重複がある組み合わせを Debug.Print で列挙（おすすめ）

With ws
    Dim i As Long, j As Long
    Dim r1 As Range, r2 As Range
    Dim inter As Range
   
    For i = LBound(strRng) To UBound(strRng) - 1
        Set r1 = .Range(strRng(i))
        For j = i + 1 To UBound(strRng)
            Set r2 = .Range(strRng(j))
            Set inter = Application.Intersect(r1, r2)
            If Not inter Is Nothing Then
                Debug.Print "重複あり: (" & i & ")" & strRng(i) & " と (" & j & ")" & strRng(j) _
                            & " / 重複範囲=" & inter.Address(False, False)
            Else
                Debug.Print "重複なし: (" & i & ")" & strRng(i) & " と (" & j & ")" & strRng(j)
            End If
        Next j
    Next i
End With

これで何が分かる？

  • どのペアが重複しているか（例：A1:E5 と B3:F10）
  • 重複している “実際の交差範囲” のアドレス（例：B3:E5）

 

ありがとう！　なるほど、If Not inter Is Nothing　でチェックするのですね、
助かりました。
 
再度　Copilot 回答
どういたしまして！😊\ お役に立ててよかったです。
そうですね、Intersect の戻り値が Nothing かどうかを見るのがポイントになります。
ｰｰｰｰｰｰｰ　以下　続く　------------------
 
感想：思ったより、コードが綺麗で読みやすい、カッコいい！
Copilot を利用することで、綺麗なコードが作れて、
結果、納品する依頼者様への良きサービスとなりますね。

Excel-VBAを Copilotに聞いてみた！

AI

はじめに、

Excel VBAの開発で、良く使う「マクロ記録」、しかし　図形⇒プロパティ⇒文字のオプション⇒『テキストを図形からはみ出して表示する』は、マクロに記録されない！

図形のテキストをはみ出して表示する

それならば、Excel はMicrosoftなので、Colilotに聞いてみよう！　

筆者：
「図形のテキストを図形からはみ出して表示する」VBAコードを教えてください。

 

Copilot：

以下が、Excel（図形/テキストボックス）の 「図形のテキストを図形からはみ出して表示する」 をVBAでONにする定番コードです。ポイントは Shape.TextFrame.VerticalOverflow / HorizontalOverflow（※TextFrame2ではなくTextFrame側）と、必要なら TextFrame2.WordWrap = msoFalse（折り返しOFF）を併用することです。
 
1) 指定した図形1つに「はみ出し表示」を設定する（基本）
Sub ShapeTextOverflow_On()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes("TextBox 1") '←対象名に変更
 
    '--- 「テキストを図形からはみ出して表示する」
    shp.TextFrame.VerticalOverflow = xlOartVerticalOverflowOverflow
    shp.TextFrame.HorizontalOverflow = xlOartHorizontalOverflowOverflow
 
    '--- 「図形内でテキストを折り返す」をOFF（必要に応じて）
    shp.TextFrame2.WordWrap = msoFalse
End Sub
 
2) シート上の「全図形」に一括適用（テキストがある図形だけ）
Sub ShapeTextOverflow_AllShapes_On()
    Dim shp As Shape
------------- 以下省略 -------------------------------
あとは、コードをコピペするのですが、
開発中コードに、 「shp.」と入れて、プルダウンのリコメンドに上のコードが出てくれば選択する。これが確実です。エラー無く完成しました。
あまりにも上手くできたので、Excelを閉じてしまい、
お礼する前にCopilot は去ってしまいました。
以上