[[20100503065520]]　『年月』（大）　ページの最後に飛ぶ

『年月』（大）

 Dim buf As String
     buf = InputBox("年を入力してください。" & vbNewLine & "閲覧の方はキャンセルを押してください ")
     If buf = "" Then Exit Sub
     Range("集計!B1") = buf
     buf = InputBox("月を入力してください。" & vbNewLine & "閲覧の方はキャンセルを押してください ")
     If buf = "" Then Exit Sub
     Range("集計!E1") = buf

      MsgBox "入力された年は" & Range("集計!B1").Value & "年です。 "
      MsgBox "入力された月は" & Range("集計!E1").Value & "月です。 "
      MsgBox "あなたの設定した年月は・・・" & Range("集計!F1").Value & "です。 "
      MsgBox "これより指定された年/月に変更します。" & Range("A7").Value & "お疲れ様でした。 "
 End Sub

ここをどうにしたら参照先の２０１０年５月１日を２０１０年５月度と出来ますか？
MsgBox "あなたの設定した年月は・・・" & Range("集計!F1").Value & "です。 "
集計!F1この参照先がその月の一日を参照しています。
他にの方法ありましたら宜しくお願いします。

 こういうことですか?　(Hatch)
Sub test()
 Dim buf As String
     buf = InputBox("年を入力してください。" & vbNewLine & "閲覧の方はキャンセルを押してください ")
     If buf = "" Then Exit Sub
     Range("集計!B1") = buf
     buf = InputBox("月を入力してください。" & vbNewLine & "閲覧の方はキャンセルを押してください ")
     If buf = "" Then Exit Sub
     Range("集計!E1") = buf
      MsgBox "入力された年は" & Range("集計!B1").Value & "年です。 "
      MsgBox "入力された月は" & Range("集計!E1").Value & "月です。 "
      Range("集計!F1").Value = "'" & Range("集計!B1").Value & "年" & Range("集計!E1").Value & "月"
      MsgBox "あなたの設定した年月は・・・" & Range("集計!F1").Value & "です。 "
      Range("A7").Value = Range("集計!B1").Value & "年" & Range("集計!E1").Value & "月"
      MsgBox "これより指定された年/月に変更します。" & Range("A7").Value & "お疲れ様でした。 "
End Sub

Hatchさん
回答ありがとうございます。集計!B1にパス無しのシートの保護がかかってます。保護した状態ですとエラーになり動きません。保護解除でうごきます。保護した状態で動かしたいのですが方法教えてください。（大）

 > 保護した状態ですとエラーになり動きません。保護解除でうごきます。保護した状態で動かしたいのですが方法教えてください。
 保護していたらエラーになるのですから、この質問はナンセンスです。
 保護を解除して動かした後に保護すればよいのではないでしょうか?　(Hatch)

保護解除と保護のコード
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
を組み込みたいのですがどうしてもエラーになつてしまいます。なぜでしょうか？（大）

 ActiveSheet.Unprotect 
 処理
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 
の様になっているのかな？
(PON)

いろいろ試していたら出来ました。ありがとうございました（大）

 ↓へ継続
[[20100504160837]]『年月で質問した者ですが』（大）

コメント返信：

[ 一覧(最新更新順) ]

[[20100503065520]] 『年月』（大） ページの最後に飛ぶ

[[20100503065520]]　『年月』（大）　ページの最後に飛ぶ