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ソース実行前
実行後
関連記事
-
-
セルの特定の要素のみをペーストする(PasteSpecial メソッド)
PasteSpecial メソッド PasteSpecial メソッドは、Cop …
-
-
オートフィルタ(平均より上・平均より下)AutoFilter メソッド
平均値よりも大きい(小さい)値のレコードを抽出 AutoFilter メソッドで …
-
-
引数に指定したセル範囲の共通のセル範囲を取得(Intersect メソッド)
Intersect メソッド Intersect メソッドは、引数に指定したセル …
-
-
オートフィルタの設定と解除(AutoFilter メソッド)
AutoFilter メソッド オートフィルタを設定する場合、AutoFilte …
-
-
コメントの設定(Comments, Comment, AddComment, ClearComment)
コメントの設定 セルにコメントを新規に挿入するには、AddComment メソッ …
-
-
セルの位置を取得(Left プロパティ、Top プロパティ)
Left プロパティ・Top プロパティ Left プロパティは、「A列」の左端 …
-
-
現在選択されているセルを参照(RangeSelection プロパティ)
RangeSelection プロパティ 実際に何が選択されているかにかかわらず …
-
-
使用中のセル範囲を取得(UsedRange プロパティ)
UsedRange プロパティ UsedRange プロパティは、指定したワーク …
-
-
セル内の編集を禁止する(EditDirectlyInCell プロパティ)
EditDirectlyInCell プロパティ エクセルでは、セルをダブルクリ …
-
-
フリガナの取得(GetPhonetic メソッド)
GetPhonetic メソッド GetPhonetic メソッドは、指定した文 …

