| |
VBAのDateAdd関数と全く同じ機能で、ワークシート上で使いたい
ということでことであれば、ユーザ定義関数を作成しては如何でしょう。
例えば、DateAdd2 関数を作るとすれば、次の手順で操作してみてください。
初めてのようですので、詳しく書きます。
１．Alt + F11 または、[ツール] メニューの [マクロ] をポイントし
[Visual Basic Editor] をクリックします。
２．Visual Basic Editor ウィンドウがアクティブになったら、
[挿入] メニューの [標準モジュール] をクリックします。
３．モジュールウィンドウに下記コードをコピーして貼り付けます。
４．Alt + Q （または、右上隅の×）でウィンドウを閉じ、シートに戻ります。
５．メニューから[ツール]-->[マクロ]-->[セキュリティ]で「セキュリティレベル」を
「中」にして[OK]します。
６. これで、DateAdd2 関数が使えます。 使い方は、DateAddと同じです。
書式 : DateAdd2( 間隔タイプ , 数値 , 日付 ) です。
間隔タイプには、"yyyy","m","d","h","n" のいずれかを指定します。
例えば、任意のシートのセルA1に =TODAY() と入力します。
セルB1に、=DateAdd2("m",1,A1) を入力すると1ヶ月後の日付を表示します。
こなん感じで如何でしょうか。
Function DateAdd2(Target As String, V As Integer, D As String) As Date
DateAdd2 = DateAdd(Target, V, DateValue(D))
End Function
|
|
awu
- 06/11/10(金) 11:29 -
