VBA で、ワークシート関数を使用(WorksheetFunction プロパティ)
VBA で、ワークシと関数を使用
VBA から、ワークシート関数を呼び出す場合、WorksheetFunction プロパティ を使用します。引数に、セルアドレスを指定する場合は、Range オブジェクト を指定します。ただし、全てのワークシート関数が使えるわけではありません。
【書式】
object.WorksheetFunction.function
引数・戻り値
- object ・・・ 対象となる Application オブジェクトを指定します。
- function ・・・ ワークシート関数
ワークシート関数 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
Sub Sample_WorkSheetFunction() Const SYOHIZEI = 0.08 Dim i As Integer For i = 2 To 8 'ワークシート関数の Round 関数で、小数点以下を四捨五入 Cells(i, 3).Value = _ Application.WorksheetFunction.Round(Cells(i, 2).Value * SYOHIZEI, 0) 'ワークシート関数の Sum 関数で合計を求める Cells(i, 4).Value = _ Application.WorksheetFunction.Sum(Range(Cells(i, 2), Cells(i, 3))) Next i '各列の合計を Sum 関数で求める Range("B9").Value = Application.WorksheetFunction.Sum(Range("B1:B8")) Range("C9").Value = Application.WorksheetFunction.Sum(Range("C1:C8")) Range("D9").Value = Application.WorksheetFunction.Sum(Range("D1:D8")) End Sub |
実行結果
サンプルVBAソース実行前
実行後
関連記事
-
-
セル・セル範囲を貼り付ける(Paste メソッド)
Paste メソッド Paste メソッドは、クリップボードの内容を指定したセル …
-
-
罫線の設定(Borders プロパティ)
罫線の設定 罫線を一括(上下左右すべて)で設定するには、Borders プロパテ …
-
-
オートフィルタ(色で抽出する)AutoFilter メソッド
オートフィルタ(色で抽出する) フォントの色、セルの背景色(条件付き書式による設 …
-
-
対象のセル・セル範囲に数式があるかどうか調べる(HasFormula プロパティ)
HasFormula プロパティ HasFormula プロパティは、対象のセル …
-
-
セル内の編集を禁止する(EditDirectlyInCell プロパティ)
EditDirectlyInCell プロパティ エクセルでは、セルをダブルクリ …
-
-
指定したセルへ移動(Goto メソッド)
指定したセルへ移動 指定したシートの指定したセルへジャンプするには、Goto メ …
-
-
オートフィルタ(抽出件数の取得・結果集計)AutoFilter メソッド
ワークシート関数の Subtotal 関数 の使い方 VBA には、オートフィル …
-
-
並べ替え(Sort メソッド)
Sort メソッド 任意のセル範囲内で、並べ替えを行います。引数で、並べ替えの条 …
-
-
ハイパーリンク(Hyperlinks オブジェクト)
Hyperlinks オブジェクト ワークシートまたはセル範囲のワークシートコレ …
-
-
セル・セル範囲をコピーする(Copy メソッド)
Copy メソッド Copy メソッドは、セル範囲をコピーし、指定したセル範囲に …

