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

 足立区 西新井 大師近郊 安心低価格
 フリーコース 初回金15,000円のみ
 シニア&主婦の方にも最適、安くて安心料金、
 初心者向け パソコン教室アクティブ
 一人でもパソコン操作できるようになります
 
★ 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

※2列目をキーにして昇順ソート
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

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

未経験の方でも安心!親切・丁寧・低価格
時間制限・回数制限なし! 

足立区西新井栄町3-8-8 
パソコン教室 アクティブ 
TEL 03-5681-3719 
 
営業時間 月~土 午後1:00~8:00 
定休日  

パソコントラブル 各種設定サポート
各種設定サポートいたします ご連絡ください 
出張サポート¥3,000~
Copyright Active Inc. Allrights reserved