エクセルVBAでワークシート関数のようにしたい

質問

例えば、セルA1に日付を入力して、セルB1に関数WEEKDAYが入力されていると、すぐセルＡ１の値を返してくれますが、これと同じことをＶＢＡで再現したいのですが、可能でしょうか？
　マクロやＶＢＡでＷＥＥＫＤＡＹを記述しても、「ツール」→「マクロ」→「マクロ」か「ＶＢＡ」でやらないとＡ１の値をＢ１に返せないので、Ａ１に日付を入力した瞬間、Ｂ１に値を返したいのですが、よろしくお願いします。

回答No.5

imogasi · ベストアンサー

（１）通常の関数でよいものを、なぜVBAの質問にするのでしょう。
（２）Changeイベントに関連付けたいのなら
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Volatile
If Target.Address = "$A$1" Then
Range("B1") = WorksheetFunction.Weekday(Range("A1"))
End If
End Sub
（３）（１）をVBAでやるなら
標準モジュールに、前もって
Sub test01()
Range("B1").Formula = "=weekday(a1)"
End Sub
を実行する。

回答No.6

takachan7272

日付入力の対象となるセルはＡ１だけなのでしょうか？
それをVBAで曜日をＢ１に返すというのなら、No.１回答者さんの方法が簡単だと思います。

単に曜日を返すだけなら、ワークシート関数で十分だと思いますが・・・
未入力の時に曜日欄を空欄にしたいなら、曜日のセルに
=IF(ISBLANK(A1),"",WEEKDAY(A1,1))でＯＫかと・・・

何故ＶＢＡなのか理由は分かりませんが、無理する必要ないんじゃないかと思います。

回答No.4

dober-o

＃１さんの回答に補足ですが、
該当するシートに以下のコードを記述してください。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row = 1 And Target.Column = 1 Then
Cells(1, 2) = Weekday(Cells(1, 1))
End If
End Sub

どのセルを対象とするかは、Target.Row や Target.Column を適宜変えてください。

回答No.3

BLUEPIXY

標準モジュールで、function プロシージャを作成します。
例
Public Function myFunc(引数)
Application.Volatile '自動再計算設定、通常は必要ない

myFunc = 呼び出し元に返す値
End Function

回答No.2

NCU

Function プロシージャ の事をお知りになりたいのか、
Volatile メソッド の事をお知りになりたいのか、
どっちなんでしょうね。

回答No.1

toshi_2000

以下のマクロにすると何か値を変更するとB１の値が変わります。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Cells(1, 2) = "xxx"
End Sub