エクセルVBA_2 足立区西新井 アクティブ エクセル画像/写真～

★　VBA(マクロ）シート追加《エクセルVBA》

ワークシート追加（後ろに追加）
Sub Add_WorkSheet()
Worksheets.Add
End Sub

ワークシート追加（後ろにCount分追加））
Sub Add_WorkSheet()
Worksheets.Add Count:=3
End Sub

★　VBA(マクロ）シート名をセルの値に《エクセルVBA》

シート名をセルの値を使う
Sub Sheet_Name()
ActiveSheet.Name = Range("A1").Value
End Sub

★　VBA(マクロ）計算式《エクセルVBA 関数～》

指定したセル足し算
Sub 足し算()
　Range("C1").Value = Range("A1").Value + Range("B1").Value
End Sub

指定したセル引き算
Sub 引き算()
　Range("C2").Value = Range("A2").Value - Range("B2").Value
End Sub

指定したセル掛け算
Sub 掛け算()
　Range("C3").Value = Range("A3").Value * Range("B3").Value
End Sub

指定したセル割り算
Sub 割り算()
　Range("C4").Value = Range("A4").Value / Range("B4").Value
End Sub

★　VBA(マクロ）関数 Sum Average Max Min《エクセルマクロ計算 関数～》

Sum関数
Sub 合計()
　　Range("A5") = WorksheetFunction.Sum(Range("A1:A4"))
End Sub

Sub 合計()
　　Range("A5") = WorksheetFunction.Sum(Range(Cells(1,1), Cells(4, 1)))
End Sub

Average関数
Sub 平均()
　　Range("A5") = WorksheetFunction.Average(Range("A1:A4"))
End Sub

Sub 平均()
Range(Cells(5,1)) = WorksheetFunction.Average(Range(Cells(1,1), Cells(4, 1)))
End Sub

Max関数
Sub 最大()
　Range("A5") = WorksheetFunction.Max(Range("A1:A4"))
End Sub

Sub 最大()
　Range("A5") = WorksheetFunction.Max(Range(Cells(1,1), Cells(4, 1)))
End Sub

Min関数
Sub 最小()
　Range("A5") = WorksheetFunction.Min(Range("A1:A4"))
End Sub

Sub 最小()
　Range("A5") = WorksheetFunction.Min(Range(Cells(1,1), Cells(4, 1)))
End Sub

★　VBA(マクロ）関数If《エクセルVBA 関数～》

指定したセルにIf関数を使い大きい値を表示
Sub If関数()
　If Range("A1").Value > Range("B1").Value Then
　　Range("C1").Value = Range("A1").Value
　Else
　　Range("C1").Value = Range("B1").Value
　End If
End Sub

MsaBoxにIf関数を使い大きい値を表示
Sub If関数()
　If Range("A1").Value > Range("B1").Value Then
　　MsgBox "セルの値は" & Range("A1").Value& "です"
　Else
　　MsgBox "セルの値は" & Range("B1").Value& "です"
　End If
End Sub

MsaBoxにIf関数を使い大きい値 変数 ret で表示
Sub If関数()
　Dim ret As Integer
　If Range("A1").Value > Range("B1").Value Then
　　ret = Range("A1").Value
　Else
　　ret = Range("B1").Value
　End If
　　MsgBox "セルの値は" & ret & "です"
End Sub

★　VBA(マクロ）セルコピーCopy《エクセル セルコピー》

指定したセルのコピー
Sub Copy_Cell()
Range("C3:E5").Copy Destination:=Range("G3")
End Sub
指定下セルへコピー（書式含む）
Destination 目的地

指定したセルを別シートへコピー
Sub Copy_Cell()
Range("C3:E5").Copy Destination:=Worksheets("Sheet2")_Range("G3")
End Sub

★　VBA(マクロ）ソート《エクセルVBA ソート》

セル範囲のソート　昇順 xlAscending
Sub 昇順()
　　Range("A1:A5").Sort Key1:=Range("A1"),order1:=xlAscending
End Sub

※２列目をキーにして昇順ソート
Sub 昇順()
　Range("A1:B5").Sort Key1:=Range("B1"),order1:=xlAscending
End Sub

セル範囲のソート降順 xlDescending
Sub 降順()
　Range("A1:A5").Sort Key1:=Range("A1"),order1:=xlDescending
End Sub

※２列目をキーにして昇順ソート
Sub 降順()
　Range("A1:B5").Sort Key1:=Range("B1"),order1:=xlDescending
End Sub