Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6466 / 13644 ツリー ←次へ | 前へ→

【45067】プロシージャーの引数について takeshi.t 06/12/11(月) 23:14 質問[未読]
【45071】Re:プロシージャーの引数について ponpon 06/12/12(火) 0:24 発言[未読]
【45105】Re:プロシージャーの引数について takeshi.t 06/12/12(火) 21:07 お礼[未読]
【45084】Re:プロシージャーの引数について 飛ばない豚 06/12/12(火) 14:13 発言[未読]

【45067】プロシージャーの引数について
質問  takeshi.t  - 06/12/11(月) 23:14 -

引用なし
パスワード
   ユーザーフォームのチェンジイベントに下記のコードを記述し、
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

【45071】Re:プロシージャーの引数について
発言  ponpon  - 06/12/12(火) 0:24 -

引用なし
パスワード
   ▼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)

では、ないでしょうか?

【45084】Re:プロシージャーの引数について
発言  飛ばない豚  - 06/12/12(火) 14:13 -

引用なし
パスワード
   ▼takeshi.t さん:

もしかして、F月末.text1.Value などが空白とか。

【45105】Re:プロシージャーの引数について
お礼  takeshi.t  - 06/12/12(火) 21:07 -

引用なし
パスワード
   ▼ponpon さん:
ありがとうございます。
まさに
monthEnd(Day) →Day(monthEnd)
でした^^

6466 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free