Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

VBA で、ワークシート関数を使用（WorksheetFunction プロパティ）

2015/08/29

VBA で、ワークシと関数を使用

VBA から、ワークシート関数を呼び出す場合、WorksheetFunction プロパティ を使用します。引数に、セルアドレスを指定する場合は、Range オブジェクト を指定します。ただし、全てのワークシート関数が使えるわけではありません。

【書式】

object.WorksheetFunction.function

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。
function ・・・ワークシート関数

ワークシート関数使用例

サンプルVBAソース

　
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

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ソース実行前

実行後

- セルの操作 Application オブジェクト, VBA基本, WorksheetFunction プロパティ, エクセルVBA, セルの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 文字列の縦位置を取得・設定する（VerticalAlignment プロパティ）

VerticalAlignment プロパティ VerticalAlignmen …

: セルの行番号または列番号を取得（Row プロパティ,Column プロパティ）

Row プロパティ・Column プロパティ Row プロパティは、指定したセル …

: セル範囲を結合・結合を解除（Merge メソッド・UnMerge メソッド）

Merge メソッド・UnMerge メソッドセルを結合するには、指定したセル …

: テーマカラーで網かけ（パターン）の色の取得・設定（PatternThemeColor プロパティ・PatternTintAndShade プロパティ）

PatternThemeColor プロパティ・PatternTintAndSh …

: オートフィルタ（平均より上・平均より下）AutoFilter メソッド

平均値よりも大きい（小さい）値のレコードを抽出 AutoFilter メソッドで …

: 文字の向きを表す値を取得・設定する（Orientation プロパティ）

Orientation プロパティ Orientation プロパティで、文字列 …

: セルの特定の要素のみをペーストする（PasteSpecial メソッド）

PasteSpecial メソッド PasteSpecial メソッドは、Cop …

: セルに値を設定する・セルの値を参照する（Value2 プロパティ）

Value2 プロパティ Value プロパティとの違いは、Value2 プロパ …

: セルが結合セルの一部である場合、その結合セルの範囲を取得（MergeArea プロパティ）

MergeArea プロパティ MergeArea プロパティは、指定したセルが …

: 外枠罫線の設定（BorderAround メソッド）

外枠罫線の設定罫線の設定には、Borders プロパティを使用しますが、範囲内 …

PREV: コメントの設定（Comments, Comment, AddComment, ClearComment）
NEXT: 画面の更新を停止（ScreenUpdating プロパティ）