VBAについて

質問

a1に2001/11/1、b1に2002/11/2と入力、
c1　に=if(yearfrac(a1,b1,3)>1 ・・・・・・と言うような
記述の事をVBAで表せばどのような記述になるでしょうか、お願いします、

回答No.4

taisuke555 · ベストアンサー

＃３さんから回答がでましたので、もういいとは思いますが・・・
＃３さんの回答を流用します。

Sub aaa()
a = Range("a1")
b = Range("b1")

If (Application.Run("ATPVBAEN.XLA!Yearfrac", a, b, 3) > 1) Then
MsgBox "１年を超える"
Else
MsgBox "１年を超えない"
End If
end sub

または

sub aaa()
If (Application.Run("ATPVBAEN.XLA!Yearfrac", Range("A1"), Range("B1"), 3) > 1) Then
MsgBox "１年を超える"
Else
MsgBox "１年を超えない"
End If
End Sub

＞任意の年月日だから
＞range("a1")=datevalue("a1")
＞range("b1")=("b1")
＞range("c1").formula="=if(yearfrac(a1,b1,3)>1 ・・とすればよいですかね、
任意の年月日というのはA1セルとB1セルに入力すると言う意味ですか？

いまだに質問を理解していなくて、すいません。

お礼

そうです、a1,b1に入力すると言う事です、質問の仕方が悪く済みませんでした、
本当に有り難うございました、

回答No.3

nishi6

ツール→アドインで『分析ツール』と『分析ツール-VBA』の２つをチェックします。

下は２つのセルを引数にしたユーザー定義関数の例です。If以下は例です。

質問で言えば、C1に
　=myYearfrac(A1,B1) とします。Yearfracの３番目の引数はユーザー定義関数内で『3』にしています。

『ATPVBAEN.XLA』はYearfracが書き込まれているアドイン名です。（私のExcelはこうでした）
アドインを追加すれば、VBE画面のプロジェクトエクスプローラで確認できます。

Function myYearfrac(rg1 As Range, rg2 As Range)
　　Dim wariai As Double

　　wariai = Application.Run("ATPVBAEN.XLA!Yearfrac", rg1, rg2, 3)
　　If wariai > 1 Then
　　　　myYearfrac = "1年超です"
　　Else
　　　　myYearfrac = "～1年です"
　　End If
End Function

お礼

本当に有り難うございました、

回答No.2

taisuke555

すいません。質問の意味がわかりません。

＞a1とb1には任意の年月日を入力して１より大きいかを判定させます
何が１より大きいか判断させたいのでしょうか？
・b1とa1の差？

＞その時はDateValue("2001/11/1")や"2001/2/2"の処はどのような
記述になるでしょうか
a1,b1も関数を入れたいのですか？
c1のif文の中身ですか？

もう少し、具体的に質問していただければ、私のわかる範囲で回答いたします。

補足

済みません、任意の年月日だから
range("a1")=datevalue("a1")
range("b1")=("b1")
range("c1").formula="=if(yearfrac(a1,b1,3)>1 ・・とすればよいですかね、
其れからエクセル関数yearfracのはたらきと同じはたらきをするものはVBAでは何と記載すれば良いでしょうか、

回答No.1

taisuke555

ちょっと、質問の意味がわからないですけど・・・

こんな様な質問ですか？
Sub a()
Range("A1") = DateValue("2001/11/1")
Range("B1") = "2002/2/2"
Range("c1").Formula = "=if(yearfrac(a1,b1,3)>1・・・"
End Sub
・日付はどちらの書き方でも日付とみなしてくれるようです。
・数式は、完了していないとエラーになります。

質問内容が違うときはすみません。

補足

有り難うございます、お教えの通りでよいのですが、
a1とb1には任意の年月日を入力して１より大きいかを判定させます、
その時はDateValue("2001/11/1")や"2001/2/2"の処はどのような
記述になるでしょうか、何回も済みません、