エクセルVBA マクロ 計算 関数~足立区西新井 パソコン教室 アクティブ

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

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

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

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