EXCEL VBA 便利なVBAコード・サンプルプログラム一覧・覚えると便利・効率が上がる。パート①

EXCEL VBA 便利なVBAコード・サンプルプログラム一覧・覚えると便利・効率が上がる簡単なプログラム：パート①

EXCEL VBA 指定したシートを作成する方法（ワークシートの複製・コピー）※ショートプログラム（コード）①

'
'
Sub CopySheet() '指定するワークシートをコピーする

    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Worksheets("マスター")  'コピー（複製）するワークシート名を指定します。
    ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) '指定したワークシートをコピーします。

End Sub
'

EXCEL VBA 指定されたシート内の特定の列で設定した文字列データの抽出（フィルタリング）します。※ショートプログラム（コード）②

'
'
Sub FilterData()  '指定されたシート内の特定の列で設定した文字列データで抽出（フィルタリング）します。②
    
    Dim ws As Worksheet
    Dim Temp As Range
    
    Set ws = ThisWorkbook.Sheets("データ") 'シートを指定します。「データ」を指定する・
    Set Temp = ws.Range("A1").CurrentRegion  'シート「データ」のセル「Ａ１」を起点に表の範囲を取得します。
    
    With ws.Range(Temp.Address)
        .AutoFilter  '取得した表の範囲に対してオートフィルターを設定します。
        .AutoFilter Field:=2, Criteria1:="ノートPC"   '2列名：B列（品目）に対して「ノートパソコン」を抽出します。
    End With

End Sub
'

EXCEL VBA　指定されたシートで並び替え（ソート）を行います。※ショートプログラム（コード）③

'
'
Sub SortData()  '指定されたシートで並び替え（ソート）を行います。

    Dim ws As Worksheet
    Dim Temp As Range
    
    Set ws = ThisWorkbook.Sheets("売上") 'ソートするシートを指定します。「売上」を指定する。
    Set Temp = ws.Range("A1").CurrentRegion  'シート「売上」のセル「A1」を起点に表の範囲を取得します。
    
    With ws.Range(Temp.Address)
        .Sort Key1:=.Range("C2"), Order1:=xlDescending, Header:=xlGuess  'ソートする対象列をC列「売上」に対して、降順に並び変えます。
    End With

End Sub
'

EXCEL VBA　セルの結合：指定された範囲内のセルを結合します。※ショートプログラム（コード）④

'
'
Sub MergeCells()  '指定された範囲内のセルを結合する
    
    Dim ws As Worksheet
    Dim I As Long
    
    Set ws = ThisWorkbook.Sheets("結合") '結合するシートを指定します。シート「結合」を指定します。
    For I = 1 To ws.Cells(Rows.Count, "A").End(xlUp).Row  '結合する範囲を指定します。1行名からA列の最終行まで繰り返します。
        ws.Range("D" & I & ":E" & I).Merge  '指定した範囲内でD列とE列を結合します。
    Next I
    
End Sub
'

EXCEL VBA　指定されたシートにテキストボックスを作成します。※ショートプログラム（コード）⑤

'
'
Sub CreateTextBox() '指定されたシートにテキストボックスを作成します。
    
    Dim ws As Worksheet
    Dim txtbox As Shape
    
    Set ws = ThisWorkbook.Sheets("Text")  'テキストボックスを表示させるシートを指定します。「Text」を指定する。
    Set txtbox = ws.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 200, 50)
    'テキストボックスの位置とサイズ: (10, 10)から200×50ピクセルのテキストボックスを作成します。
    
    txtbox.TextFrame.Characters.Text = "テキストボックスに表示"
    'テキストボックスの中に「テキストボックスに表示」を登録します。
    
End Sub
'

EXCEL VBA　指定された範囲内の条件に応じてセルの色や書式を変更します。※ショートプログラム（コード）⑥

'
'
Sub ConditionalFormatting() '指定された範囲内の条件に応じてセルの書式を変更
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("書式") '条件付き書式を設定する
    
    With ws.Range("B2:B10")  '条件付き書式の設定範囲を行います。
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="60"  '設定範囲で60を超える数値に対して背景色を付けます。
        .FormatConditions(.FormatConditions.Count).Interior.Color = RGB(255, 255, 0)  '該当するセルの背景色を黄色に塗りつぶします。
    End With
    
End Sub
'
'