パソコンスキル教科書

パソコンスキルの教科書

東京大学大学院卒。博士課程に進学を志すも、担当教授と折が合わず、無職になる。医者を目指すも結局断念。田舎で派遣社員として働く。「スキルがなければ、仕事ももらえない」と悟り、ビジネススキルを学ぶ。プログラミング、英語を学び、一部上場企業へ転職。年間100時間以上の業務効率化を行い、社内講師に抜擢。海外の案件を担当し、数億円のプロジェクトに携わる。個人の事業でも、月売上100万を達成。現在は、自分の価値を高めるためのスキル向上支援を行う

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

f:id:gene320:20161231003334j:plain

エクセルVBA入門者でも、今すぐコピペして使えるコードを紹介します。

この記事では、こちらの記事で紹介しているソースコードを載せていますので、ぜひそちらの記事を読むことをオススメします。

そうすれば、ここで紹介しているコードの活用方法が分かります!ぜひマクロを実践して、作業をスリム化しましょう!

www.fastclassinfo.com

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

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

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

以下コピペ用

Sub z背景色の色なしに変更w()
    Dim s As Range
    For Each s In Selection
        With s.Interior
            .Pattern = 6
        End With
    Next
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

コード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

コード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

コード5|セルの結合

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

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

以下コピペ用

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

コード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

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

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

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

以下コピペ用

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

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

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

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

以下コピペ用

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

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

業務を効率化するなら、エクセルマクロを学ぼう!

なぜエクセルマクロを学ぶべきか?を解説します

www.fastclassinfo.com

エクセルマクロ初心者なら、この2つを狙いましょう

www.fastclassinfo.com

そもそもエクセルマクロとは?というあなたへ

www.fastclassinfo.com