VBAで関数を使うには？

質問

こんな感じだったとします。

　　Ａ１　　　　　　Ｂ１
2002/9/2
2002/9/3
2002/9/4
2002/9/5
　　：

このＢ１にそれぞれの曜日を表示させるVBAを以下のようにしました。

Sub youbi()

Dim i As Integer

For i = 3 To 10
Cells(i, 3).Value = Weekday(Cells(i, 2), "aaa")

Next
End Sub

もちろんエラーでした。
（メッセージは「型が一致しません」です。）

そこで以下のように変更しました。

Sub youbi()

Dim i As Integer

For i = 3 To 10
Cells(i, 3).Value = "=text(Weekday(b3), ""aaa"")"

Next
End Sub

するときちんと曜日が表示されたのですが、もちろん全部B3のセルの日付の曜日です。
ここを変数にするにはどうしたらいいのでしょうか？

とっても簡単なことのように思えますが、意外とハマってしまって抜け出せません。

よろしくお願いします。

回答No.2

imogasi · ベストアンサー

Ａ１からＣ１まで、（Ａ１）2002/9/2（Ｂ１） 2（Ｃ１） 月　（Ｂ１、Ｃ１は結果）
でしかテストをしていませんが、ＶＢＡらしい関数の使い方は下記の通りと思います。長ったらしく、いやですが。
ＶＢＡでは関数のネストは考えてないと思います。
２ステップに分ければ良いですから。
Sub test01()
Cells(1, 2) = Application.WorksheetFunction.Weekday(Range("a1"))
Cells(1, 3) = Application.WorksheetFunction.Text(Cells(1, 2), "aaa")
End Sub

お礼

できました！

ネストの考えはないんですね。
わかりました、以後気をつけます。

ありがとうございました。

回答No.4

ShadowMoon

元のコード
Cells(i, 3).Value = "=text(Weekday(b3), ""aaa"")"
を
Cells(i, 3).Value = "=text(Weekday(" & i & "3), ""aaa"")"
とする方法もありますね。

ご参考までm(__)m

お礼

なるほど！

こういう考えもあるんですね。
人にきくといろいろなアイディアが出てきておもしろいですよね。

ありがとうございました。

回答No.3

tamazo-

VBAのヘルプ（EXCELのヘルプではなくVBAエディタから表示させるヘルプ）で、
「Visual Basicでワークシート関数を使用する」という
トピックがあります。
そちらを見られてはどうでしょうか。

お礼

回答ありがとうございます。

そうですね、まずはヘルプ見て勉強しないといけないですね。
ワークシート関数ではヘルプを検索してなかったと思います。
（曜日を表示とかそんな感じで検索してました。）

ありがとうございました。

回答No.1

c-cassis

こんにちわ。
ちょっとやり方が違うので恐縮ですが・・・
Sub youbi()

Dim i As Integer
For i = 1 To 5
Cells(i, 2).Value = Format$(Cells(i, 1), "aaa")
Next
End Sub

だと、よい感じに入っていきますよ。
ひとまず、試してみてくださいませ。

お礼

はい、ちゃんとできました！

VBAではWEEKDAY関数とか使えないんですかね？
まだ勉強はじめたばかりで関数とかあんまり使ったことなかったんですが、
きっとこれからそういうニーズも出てくるかなぁーなんて思うのですが。

とりあえず、今回はこれでうまくいきました。

ありがとうございました☆