| |
▼awu さん：
ありがとうございます。
コードは、赤くはなっていません。
コンパイルをするとコンパイルエラーになります。
Excel２００２を使用しています。
>標準モジュールに、コード全体を <<そのまま>>貼り付けましたか？
>
>貼り付けたコードの一部が、赤くなったらダメなんですよ。
>
>コピー & 貼り付けの仕方は、下記コード(Jakaさんの方にしてください。)の
>Function から End Function までをマウスでドラッグし、コード全体を反転させます。
>
>Ctrlキーを押しながら、C キーを押します。
>
>標準モジュールのコードウィンドウ(広い余白の所)の左上隅にカーソルを置いて、
>Ctrlキーを押しながら、V キーを押します。 これでコードが張り付きます。
>(もし、Option Explicit というのがあったら、その下に貼り付けます。)
>
>これで、如何でしょうか。
>
>
>Function DateAdd2(Target As String, V As Integer, D As Date) As Date
> DateAdd2 = DateAdd(Target, V, DateValue(D))
>End Function
>
>
>もし、動作を確認しましたら、書籍等を参考にしてVBAを習得し、このコードを
>理解できるようにした方が、宜しいかと思います。
|
|
ねもと
- 06/11/10(金) 14:10 -
