見出し画像

VBA①｜なぜ今、VBAなのか？

Rin Sumi Zeal

日々の業務でExcelを使っている中で、「もっと効率よく処理できたら…」と思ったことはありませんか？
繰り返し作業や手作業での集計、転記作業に時間を取られている方は少なくありません。
そんなときに力を発揮するのが「VBA（Visual Basic for Applications）」です。


1. なぜVBAを使うのか

例1：業務効率化がすぐ実感できる
毎日繰り返すコピー＆ペースト作業を、VBAで自動化すればボタン1つで完了。
業務時間を短縮でき、人的ミスも減らせます。
もし普段の作業者が休んでしまっても、ボタン一つ押すだけですから誰でも代わりが出来ます。

例2：誰でもすぐに始められる開発環境
VBAはExcelに最初から備わっているため、特別なソフトをインストールする必要がありません。
プログラム開発を始めるにあたって、その開発環境の準備で挫折する人は多いです。
VBAであればExcelの[開発]タブを有効にすれば、すぐにマクロの記録やコード編集ができます。

例3：外注せず社内で自作できる
簡単なマクロであれば、社内で完結できるため、外部システムの導入費用や開発依頼コストを抑えられます。
簡単なアプリ一つでも10万～30万円ほどかかる業務ソフトではその効果も少なくないです

2. VBAとはどういうものか

例1：Microsoft Office専用のプログラミング言語
VBA（Visual Basic for Applications）は、ExcelやWordなどのOfficeアプリケーションを自動化・制御するために開発された言語です。

例2：マクロの中身をカスタマイズする技術
Excelのマクロは「動作の記録」だけでは不十分なこともあります。
VBAを使えば、そのマクロの中身を細かく編集・最適化することができます。

例3：初心者にも優しい構文
VBAの構文は、英語に近い自然な文法が多く、他の言語に比べて学習ハードルが低いのも魅力です。

3. VBAで何ができるのか

例1：複数シートやファイルの一括処理
複数のExcelファイルを開いて、指定したセルの値を集計・コピーする処理をVBAで自動化できます。

例2：入力ミス防止の仕組みづくり
ユーザーフォームを使って入力画面を作成し、ドロップダウンリストやチェック機能を設けることで、ミスを減らせます。

例3：メール送信やPDF出力も自動で
OutlookやAcrobatと連携することで、請求書をPDF化して自動メール送信する、といった一連の業務をワンクリックで実行できます。

4. VBAを使ってつくれるマクロの例

下の例の中のコードを転記してどのような処理結果が出るか見てみてください。
まだコードの内容は分からないかもしれませんが、便利な使い方が出来る事を知るだけでも興味を持てると思います。

まず開発環境が必要なので、エクセルを開きメニューバー上で右クリック、「リボンのユーザー設定」で「開発」にチェックを付け有効にしてください。
「開発」タブが表示されたら「Visual Basiic」をクリックし、編集ソフトである「VBE」を起動する。
VBEの「挿入」メニューから「標準モジュール(M)」を選択します。
そうすると「コードウィンドウ」と呼ばれるコードを書くためのウィンドウが表示されます。
そこに例のコードを転記してみてください。
転記が終ったらツールバーの「再生ボタン」を押すと実行されます。

例1：メッセージボックスであいさつを表示する

Sub 挨拶メッセージ()
　　MsgBox "おはようございます！今日もがんばりましょう！", vbInformation, "挨拶"
End Sub

解説：
MsgBox は、メッセージを表示する基本中の基本の命令。
Excel上でちょっとした通知や確認をするのに使います。

例2：アクティブなシートのA列のデータを最終行までコピーして別シートに貼り付ける（貼付先として「Sheet2」という名前でシートを用意下さい）

Sub データコピー()
　　Dim 最終行 As Long
　　最終行 = Cells(Rows.Count, 1).End(xlUp).Row
　　Range("A1:A" & 最終行).Copy Destination:=Sheets("Sheet2").Range("A1")
End Sub

解説：
列Aの最終行までを自動で検出し、そのデータをSheet2のA1から貼り付けるマクロです。
手動でコピーしていた作業を自動化できます。

例3：シート上のデータをPDFで保存する（保存先のフォルダは適当に変更して下さい）

Sub PDF保存()
    Dim ファイル名 As String
    ファイル名 = "C:\Users\Public\Documents\帳票_" & Format(Date, "yyyymmdd") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ファイル名, Quality:=xlQualityStandard
    MsgBox "PDF保存が完了しました：" & vbCrLf & ファイル名
End Sub

解説：
アクティブなシートをPDFに変換し、指定のフォルダに保存するマクロです。
請求書や日報などの帳票作成にも応用できます。

例4：A列にあるデータを上から順にチェックして、空白なら「未入力」と書き込む（For ループ）

Sub 空白セルに未入力と記入()
    Dim i As Long
    Dim 最終行 As Long
    
    最終行 = Cells(Rows.Count, 1).End(xlUp).Row ' A列の最終行を取得

    For i = 2 To 最終行 ' 1行目は見出しと仮定
        If Cells(i, 1).Value = "" Then
            Cells(i, 1).Value = "未入力"
        End If
    Next i
End Sub

解説：
A列の2行目以降をループで調べ、空白セルに「未入力」と自動で入力します。簡単な入力チェックの自動化に使えます。

例5：B列にある数値を下から上にさかのぼってチェックし、0以下の値は削除（Do Whileループ）

Sub 数値チェックして削除()
    Dim i As Long
    i = Cells(Rows.Count, 2).End(xlUp).Row ' B列の最終行から開始

    Do While i >= 2
        If Cells(i, 2).Value <= 0 Then
            Rows(i).Delete
        End If
        i = i - 1
    Loop
End Sub

解説：
B列のデータを後ろから調べて、0以下ならその行を削除します。
※前から順に削除すると、行が詰まってうまく処理できないので「下から上へ」がポイントです。

例6：条件分岐とループを組み合わせた
（表として以下の内容で項目を入れ、A,B,C列にそれぞれの項目に沿った値を入れたシートをご用意ください
A列：商品コード（例：A01、1001等）
B列：商品名（例：ジュース、スニーカー等）
C列：在庫数（数値）
D列：フラグ（「要注意」と入力すると警告メッセージの内容が変わります）
E列：警告メッセージ（マクロを動かすと値から判断される警告が入ります）　）

Sub 在庫チェック()
    Dim i As Long
    Dim 最終行 As Long
    
    最終行 = Cells(Rows.Count, 1).End(xlUp).Row ' A列に商品コードがある前提

    For i = 2 To 最終行
        If Cells(i, 3).Value < 10 And Cells(i, 4).Value = "要注意" Then
            Cells(i, 5).Value = "※在庫不足（重要）"
        ElseIf Cells(i, 3).Value < 10 Then
            Cells(i, 5).Value = "在庫不足"
        Else
            Cells(i, 5).Value = ""
        End If
    Next i
End Sub

解説：
在庫一覧で、在庫が10未満の場合に警告、さらに「重要フラグ」が立っている商品には特別な警告を表示します。
このように、「ループでデータを走査し、条件に応じて異なる処理を行う」というのは、実務でも非常によく使います。

5. まとめ

例1：身近で実用的な自動化手段
VBAは、日常業務でよく使うExcelをベースに、現場にフィットしたツールを自作できる手段です。

例2：学びながら即実践できる技術
コードを書けばすぐ動作を確認できるため、学習と成果が直結。実務に直結したスキルとして習得しやすいです。

例3：小さな自動化から始めて、業務改善の連鎖を
最初は簡単な自動化からでも、積み重ねることで職場の「作業を見直す意識」そのものが変わっていきます。

この記事が参考になったら、「スキ」やフォローしてもらえますと嬉しいです。


いいなと思ったら応援しよう！

Rin Sumi Zeal 応援ありがとうございます！