マクロの変数

質問

エクセルのマクロで
セルＡ２０に１９９９年３月３１日と入力してある時
1999を変数として利用したいのですが

Dim y As String
y = Application.WorksheetFunction.Year(Range("A20"))

としてもエラーになってしまいなす
どうしてでしょう

回答No.2

temtecomai2 · ベストアンサー

VBA なので変数の型はルーズでしょうから
y = Year(Range("A20"))
とか。
VBA の Year 関数は Integer 型で返します。
#1 さんの Format 関数は String 型で返します。
まぁ VBA ですし。

お礼

そんなもんなんですか
関数を使うからApplication.WorksheetFunctionが必要だと思ってた

回答No.4

Wendy02

こんにちは。

ちょっと読ませていただきました。

こんな風に、年の数字を取り出す方法は、4つ程度はあります。
ただ、VBAでは、以下のように、プロパティを使い分けることが必要です。

それが分かっていないと、うまく出来ません。
VBAには、VBA独特の使い方があります。

　　Dim y1 As Integer
　　Dim y2 As Integer
　　Dim y3 As Integer
　　Dim y4 As Integer

　　If IsDate(Range("A20").Text) Then

　　　　y1 = Year(Range("A20").Value)
　　　　　'ワークシート関数は、このようにして使います。
　　　　y2 = Evaluate("Year(" & Range("A20").Address & ")")
　　　　　'以下は、文字列で出力しているわけではなく、厳密には、Variant型です
　　　　y3 = Format(Range("A20").Value, "yyyy")

　　　　If InStr(Range("A20").Text, "年") > 0 Then
　　　　　　y4 = Mid(Range("A20").Text, 1, InStr(Range("A20").Text, "年") - 1)
　　　　End If

　　　　 MsgBox "1: " & y1 & ", 2: " & y2 & ", 3: " & y3 & ", 4; " & y4
　　End If

変数の宣言は、Integer 型でも、String 型でも、数値なら、どちらでもよいと思います。
Format 関数であっても、Year関数であっても、数値は、文字型・数値型どちらでも入ります。

コードを書く人が、Option Explicit を入れるかいれないかで、宣言の必要・不要が決まります。

お礼

何が何やら　さっぱりです…

回答No.3

imogasi

>関数を使うからApplication.WorksheetFunctionが必要だと思ってた
これは間違い
（１）VB/VBAの関数
（２）エクセルのワークシートで使う関数をVBAで使える等になっている関数　Application.WorksheetFunction.XXXの形
（３）エクセルワークシート関数で、
Application.WorksheetFunction.XXXの形では使えない物。
（４）ワークシート関数でアドイン関数
の（１）（２）２つがあり、VBAで関数といえば（１）がメイン。
ーー
（A)（１）しかない関数
（B）（１）にあり、（２）にもあり、形が同じ。数は多くない。
（C)同じ機能で（１）にあり、（２）にもあり形が少し違う
（D)（２）しかない。
がありYearは（B)で（２）として使うとエラーになるのかも知れない。私は、VBAではYearは（１）でしか使ったこと無かったので驚いた。

お礼

む、難しい…この程度で

回答No.1

ASIMOV

y = Format(Range("A20"), "yyyy")

で、どうでしょう

お礼

できました
そんな簡単でいいのか…