ねこになりたい

おふとんと朝の別れをするのが辛い人向けです。正論で殴らず見守ってあげてください。

Evaluate

 

概要

 
WorksheetFunction.Evaluate(ワークシート関数)
ワークシート関数を指定し、実行する。
これを用いることでExcelのワークシート関数を自在に使うことができる。

サンプル

 この画像には alt 属性が指定されておらず、ファイル名は image-18.png です

Dim ave As Integer

Dim comment As String
ave = WorksheetFunction.Average(Range("B2:B4"))
comment = Application.Evaluate("IF( " & ave & " >= 50, ""かわいい(確信)"", ""そこそこかわいい"")")
'
MsgBox ("かわいさ平均:" & ave & Chr(10) & "コメント:" & comment)

実行結果

この画像には alt 属性が指定されておらず、ファイル名は image-20.png です