|
▼takeshi.t さん:
>ユーザーフォームのチェンジイベントに下記のコードを記述し、
>Private Sub CheckBox1_Change()
> If Me.CheckBox1.Value = True Then
> Call 末日
> End If
>End Sub
>
>標準モジュールにて下記のように
>月末の日付を求めるコードを記述しましたが、
>引数を省略できません。
>という今まで見たことの無いエラーが出ましたが何故でしょうか?
>
>Sub 末日()
> Dim monthEnd As Date
> With F月末
> monthEnd = DateSerial(Val(.text1.Value), Val(.text2.Value) _
> + 1, 1) - 1
> .text3.Value = monthEnd(Day)
> End With
>End Sub
よく分かりませんが
.text1.Value →TextBox1.Value または TextBox1.Text
.text2.Value →TextBox2.Value または TextBox2.Text
.text3.Value →TextBox3.Value または TextBox3.Text
monthEnd(Day) →Day(monthEnd)
では、ないでしょうか?
|
|