Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6468 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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)
でした＾＾
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6468 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free