VBA ! 教えて下さいっ

質問

事務で急きょ必要となり、本やNetで調べておりますが
どうしても分からなくてこちらにたどり着きました。。。

下記分かりずらいかと思いますが,,,見積書作成の為の日付についてです。
どなたか、ご教示お願いします！！！

ユーザーフォームに下記内容にて作成致しましたが(3)からのコードがうまく作成できません。
また、コードについておかしな所があればご指摘下さい。
----------------------------------------------------------------------------
≪見積書の日付≫
(1)契約日：　　　　　　　　　　　　　⇒テキストボックス　⇒※(1)を入力したらSheet！A1へ転記
(2)締め日：10日、20日、30日　　⇒オプションボタン(フォームで囲んでます)　⇒※(2)を入力したらSheet！A2へ転記[オブジェクト名：Type10/Type20/Type30]

(3)締められた日：　　　　　　⇒※　(1)(2)を選択した後にSheet！A4 へ転記　
(4)経過した日数　　　　　　　⇒※　(1)(2)を選択した後にSheet！A5 へ転記　
(5)更新月　　　　　　　　　　　⇒※　(3)より1か月後を(1)(2)を選択した後にSheet！A4 へ転記　
----------------------------------------------------------------------------
（（★(2)については10日を選択⇒契約日：2011/1/1の場合、締め日は当月の2011/1/10
　　　　　　　　　　　　　　　　　　　　契約日：2011/1/11の場合は締め日は翌月の2011/2/10　のように、
契約日はお客様によって異なります。要は、締め日を過ぎた場合は翌月の締め日が転記される様にしたいのです。））
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
≪コード≫
'契約日入力
Private Sub CommandButton1_Click()
Range("A1").Value = TextBox１.Value
If IsDate(TextBox１.Text) = False Then
MsgBox "契約日を入力して下さい。 例 yyyy/dd/mm"
Else
End If
If Type10.Value = True Then
Range("A2").Value = "10"
ElseIf Type20.Value = True Then
Range("A2").Value = "20"
ElseIf Type30.Value = True Then
Range("A2").Value = "30"
Else
MsgBox "日を入力して下さい。 例 10.20.30 日" '
End If
End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

宜しくお願いします。

回答No.5

Cor_moriyan · ベストアンサー

> 『Year』が『YEAR』の大文字へ変換となります。

推測ですが・・・
　　Dim YEAR As ....
と記述しているところが、どこかにありませんか？もしくは
　　Const YEAR = ....
など。「YEAR」という変数または定数を定義していないでしょうか。「YEAR」という言葉を検索(Ctrl+F)で探してみて下さい。
一度、コンパイル（メニューから「デバッグ」「VBAProjectのコンパイル」をしてみて下さい。

お礼

Cor_moriyanさーん(>_<)

コードの中にはありませんでしたが、もしかしたらと思いuserfoam確認したらありました！！！コードの中はYEARの大文字ですが（大丈夫かしら？）やりたい事が出来ました！

有難うございました。
また、これからも分からない事が多々出てくるかと思いますが宜しくお願いします。
こんな私でも分かりやすい様にご教示いただき本当に感謝致します。

回答No.4

Cor_moriyan

・・・おかしいですね？翌年の締め日にきちんとなりましたけど(^^;
A2セルの値を30のままにせず「A1の年月の月末日」に置き換えれば、末日対応も上手くいくと思います。
末日の求め方は、A1セルの年月の1日(2011/12/10なら2011/12/1)にDayAdd関数で1ヶ月後(2012/1/1)を求め、そこから -1 すると前日(2011/12/31)が求められます。Day関数を使ってあげれば、31 をA2セルに入れられます。

　　'A2の値をA1の末日に置きかえる（A1の翌月1日から-1した日)
　　If Range("A2").Value = 30 Then
　　　　Range("A2").Value = Day(DateAdd("m", 1, CDate(Year(Range("A1").Value) & "/" & _
　　　　　　　　　　　　　　　　　　　　　　　　　　　Month(Range("A1").Value) & "/1")) - 1)
　　End If

　　'締め日を求める
　　If Day(Range("A1").Value) > Range("A2").Value Then
　　　　Range("A4").Value = DateAdd("m", 1, Range("A1").Value)
　　Else
　　　　Range("A4").Value = Range("A1").Value
　　End If
　　Range("A4").Value = CDate(Year(Range("A4").Value) & "/" & _
　　　　　　　　　　　　　　　Month(Range("A4").Value) & "/" & _
　　　　　　　　　　　　　　　Range("A2").Value)

どうでしょうか(^^;

お礼

すみません…たんだん高度になってきて…
コピペでやってみたのですが、「引数が無効です」のエラー表示が出てしまいます。

黄色のエラーはここを指してきます。。。
Range("A4").Value = CDate(Year(Range("A4").Value) & "/" & _
Month(Range("A4").Value) & "/" & _
Range("A2").Value)

またひとつ気になる事がありまして、上記のCDate(Year(Range("A4").Value) …の『Year』が『YEAR』の大文字へ変換となります。コレって何か問題がありますか。
何度修正しても『Year』⇒『YEAR』になってしまいます((+_+))

どうしたらいいのでしょうか。。。ホントに何度も申し訳ありません。
教えて下さい。

回答No.3

Cor_moriyan

訂正。

誤）If Day(Range("A1").Value > Range("A2").Value Then
正）If Day(Range("A1").Value) > Range("A2").Value Then

テストしたわけじゃないので、丸呑みしないで下さいね(^^;

お礼

早々のご対応ありがとうございます!!
ただ、、、コード入力して試させていただくと、
締め日が来年（2012）を超えても
2011年の12月締めが転記されてしまいます。
また、私の説明不足かと思いますが30日の締め日は月末を導きだしたいのですが…

色々とコード変更を試みましたがこんがらがってしまって…
ホント、すみません。

・年度を越えても締め日が転記されるように。
・30日（Type30）選択した場合は月末が転記されるように。

上記、２点お教えいただけませんでしょうか。

回答No.2

Cor_moriyan

1) 契約日の「日」を取得し、締め日(10,20,30)と比較します。
2) 契約日の日が締め日を超えていれば、契約日の翌月の日付を算出します。
　 超えていなければ、契約日をそのまま使用します。
　　If Day(Range("A1").Value > Range("A2").Value Then
　　　　Range("A4").Value = DayAdd("m",1,Range("A1").Value)
　　Else
　　　　Range("A4").Value = Range("A1").Value
　　End If
3) 算出した日付の「年・月」と締め日を合わせた年月日を、算出します。
　　Range("A4").Value = CDate(Year(Range("A4").Value) & "/" & Month(Range("A4").Value) & "/" & Range("A2").Value)

上記でいかがでしょう？
ちなみに。If Type10.～　は、Select Case で記述した方が見易いかも(^^;
　　Select Case True
　　　　Case Type10.Value
　　　　　　Range("A2").Value = "10"
　　　　Case Type20.Value
　　　　　　Range("A2").Value = "20"
　　　　Case Type30.Value
　　　　　　Range("A2").Value = "30"
　　　　Case Else
　　　　　　MsgBox "日を入力して下さい。 例 10.20.30 日"
　　　　　　Exit Sub
　　End Select
あと、日付入力の例が間違ってますよ～
「例 yyyy/dd/mm」⇒「例 yyyy/mm/dd」

日付関数には DateDiff と言うものもあります。参考になるかな？

回答No.1

siitakekonbu

Range("A1").Valueの日付と Range("A2").Value を比較してのパターンが必要ですね。

ＩＦだと長くなりすぎるので、配列に変えてみられてはどうでしょうか？

お礼

早々のご対応ありがとうございます。

IFからSelect Caseへ変えてスマートになりました。
ご指摘、ありがとうございます。これからも宜しくお願いします。