エクセルVBAのサンプルコード！コピペしてすぐに業務を効率化しよう

今すぐエクセルマクロVBAを使って仕事をラクにしたい！

そんなあなたのために、すぐ使えるサンプルを用意しました。

・ショートカットキーにエクセルマクロを設定して、短い作業を効率化する方法
・メール送信、差し込み印刷、ウェブ情報抽出といった上級テクニックをマクロで使う方法

簡単なマクロから複雑なマクロまで、すぐに使えるサンプルコードを紹介します。さらにサンプルファイルをダウンロードする方法もお伝えします。ぜひこのまま読みすすめていってください。

1 設定カンタン！コピペして使えるマクロのショートカットのサンプルコード
2 今すぐエクセルマクロの入ったサンプルを使ってみたいなら
3 サンプルコードやファイルの正しい活用法！編集できると便利
4 もっとエクセルマクロを知りたいなら！

設定カンタン！コピペして使えるマクロのショートカットのサンプルコード

ここで紹介しているコードの活用すれば、作業をスリム化できます。

マクロのショートカットキーの具体的な設定方法は、こちらの記事をご覧ください！

エクセル初心者も出来る！マクロでショートカットキーを作成する方法

エクセル仕事はショートカットキーを使うことで素早く行うことができるようになります。このときエクセル作業をマクロ化してショートカットキーで呼び出せるようにすると、エクセル仕事を3倍早くこなすことができます。しかしエクセ […]

それでは、以下にコピペして使えるコードを紹介します！

コード1｜セルの色なしにする

ショートカットキーの設定：Ctrl + Shift + w

実行アクション：セルの色なしにする

以下コピペ用

Sub z背景色の色なしに変更()
    Dim s As Range
    For Each s In Selection
        With s.Interior
            .Pattern = 6
        End With
    Next
End Sub

Sub z背景色の色なしに変更()

Dim s As Range

For Each s In Selection

With s.Interior

.Pattern = 6

End With

End Sub

コード2｜文字の色を赤にする

ショートカットキーの設定：Ctrl + Shift + r

実行アクション：文字の色を赤にする

以下コピペ用

Sub z文字を赤くするr()
    Dim s As Range
    For Each s In Selection
        s.Font.ColorIndex = 3
    Next
End Sub

Sub z文字を赤くするr()

Dim s As Range

For Each s In Selection

s.Font.ColorIndex = 3

End Sub

コード3｜文字の色を黒にする

ショートカットキーの設定：Ctrl + Shift + o

実行アクション：文字の色を黒にする

以下コピペ用

Sub z文字を黒くするo()
    Dim s As Range
    For Each s In Selection
        With s.Font
            .ColorIndex = 1
        End With
    Next
End Sub

Sub z文字を黒くするo()

Dim s As Range

For Each s In Selection

With s.Font

.ColorIndex = 1

End With

End Sub

コード4｜セル内の改行

ショートカットキーの設定：Ctrl + Shift + k

実行アクション：セル内の改行

以下コピペ用

Sub zセル内改行K()
    Dim s As Range
        For Each s In Selection
        With s
            .WrapText = True
        End With
    Next
End Sub

Sub zセル内改行K()

Dim s As Range

For Each s In Selection

With s

.WrapText = True

End With

End Sub

コード5｜セルの結合

ショートカットキーの設定：Ctrl + Shift + m

実行アクション：セルの結合

以下コピペ用

Sub zセル結合m()
    With Selection
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Selection.Merge
End Sub

Sub zセル結合m()

With Selection

.ShrinkToFit = False

.MergeCells = False

End With

Selection.Merge

End Sub

コード6｜セルの結合を解除

ショートカットキーの設定：Ctrl + Shift + h

実行アクション：セルの結合を解除

以下コピペ用

Sub zセル結合解除h()
    Dim s As Range
    For Each s In Selection
        With s
            .WrapText = False
            .MergeCells = False
        End With
        Selection.UnMerge
    Next
End Sub

Sub zセル結合解除h()

Dim s As Range

For Each s In Selection

With s

.WrapText = False

.MergeCells = False

End With

Selection.UnMerge

End Sub

コード7｜空欄なら斜線を引く

ショートカットキーの設定：Ctrl + Shift + z

実行アクション：「空欄」かつ「色で塗りつぶされていない」セルに斜線を引く

以下コピペ用

Sub z斜線Z()
    Dim s As Range
    For Each s In Selection
        If s.Value =  Then
            If s.Interior.ColorIndex = xlNone Or _
                s.Interior.ColorIndex = 2 Then
                s.Borders(xlDiagonalDown).LineStyle = xlContinuous
            End If
        End If
    Next
End Sub

Sub z斜線Z()

Dim s As Range

For Each s In Selection

If s.Value = Then

If s.Interior.ColorIndex = xlNone Or _

s.Interior.ColorIndex = 2 Then

s.Borders(xlDiagonalDown).LineStyle = xlContinuous

End If

End Sub

コード8｜選択している行の幅を自動調整

ショートカットキーの設定：Ctrl + Shift + g

実行アクション：選択している行の幅を自動調整

以下コピペ用

Sub z行自動調整g()
    Selection.EntireRow.AutoFit
End Sub

Sub z行自動調整g()

Selection.EntireRow.AutoFit

End Sub

コード9｜選択している列の幅を自動調整

ショートカットキーの設定：Ctrl + Shift + a

実行アクション：選択している列の幅を自動調整

以下コピペ用

Sub z列自動調整A()
    Selection.EntireColumn.AutoFit
End Sub

Sub z列自動調整A()

Selection.EntireColumn.AutoFit

End Sub

いかがだったでしょうか？

ぜひ、コピペして業務をどんどん効率化してくださいね！

今すぐエクセルマクロの入ったサンプルを使ってみたいなら

・マクロ、VBAを使いたいけど、コードがわからない…
・エクセルの設定やコードの利用方法が分からない、メンドウ…
・マクロの力を実感したい！

そんなあなたのために、こちらからサンプルファイルを無料ダウンロードできるようにしました。ぜひ、役に立ちそうなエクセルファイルをダウンロードして活用してください。

ダウンロードできるファイルの詳細内容は、以下の記事で紹介していますので、合わせて読んでみてくださいね。

サンプル1｜月末処理の自動処理する
 サンプル2｜エクセルで在庫管理するマクロ
 サンプル3｜outlookのメールを自動送信する
 サンプル4｜outlookの受信メールをエクセルに一覧にして、添付ファイルも保管する
 サンプル5｜インターネットに自動アクセスする
 サンプル6｜ヤフオクの情報を自動取得して、エクセルに出力する
 サンプル7｜エクセルの情報をワードに差し込み、印刷まで行う

ぜひご活用ください。

サンプルコードやファイルの正しい活用法！編集できると便利

この記事で紹介したサンプルを見ると、「これで、自分もエクセルマクロを使える！」と思われるかもしれません。

しかし、実際はそうもいきません。最初は、使ってみるのですが、だんだん使わなくなります。なぜなら、サンプルコードがあなたのニーズと一致しないからです。

具体的に言うと、サンプルコードに新しい機能を追加したり、余計な部分を減らすことができないのです。

エクセルマクロ初心者にとって、新しい機能を追加したり、余計な部分を減らすのはカンタンではありません。いざコードを触ろとすれば、「何から手を付ければいいの？」、「手を加えたら、マクロが動かなくなるのでは？」と恐くなってしまいます。そして、ダウンロードしたファイルは、使わずにどこかへいってしまいます。

何を隠そう、私がそうでした。僕が初めてチャレンジしたマクロはメール送信のコードでした。しかし、ウェブで情報を手にしたはいいけれど、まったく動作せず…、コードをいじることも出来ず。結局、メール送信できるようになったのは、自分の実力がついた後でした。僕のマクロ学習については、この記事で詳しく紹介しています。