EXCEL VBAで質問です。いつもお世話になります。


Sheet1のA1セルに日付データが入っているとします。形式はyyyy/mm/ddです。
この月の日数を変数daycountに代入するVBAコードをお教えください。

ずばりの回答をお待ちしています。
よろしくお願いいたします。

回答の条件
  • 1人2回まで
  • 登録:2006/09/24 03:29:50
  • 終了:2006/09/24 06:22:55

回答(2件)

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982006/09/24 06:10:43

daycount = Worksheets("sheet1").Range("A1")

これでセットされます。

id:kitatom

ありがとうございます。日数がうまく取得できませんでした。

2006/09/24 06:21:22
id:tikirou No.2

tikirou回答回数80ベストアンサー獲得回数82006/09/24 06:11:15

ポイント70pt

以下のような形でしょうか?

(単純に変数Daycountに代入する形で作ってみました。)

ご確認下さい。

Sub Count()
    
    Dim d As Date
    
    d = Range("A1")
    
    DayCount = DateSerial(Year(d), Month(d) + 1, 1) 
             - DateSerial(Year(d), Month(d), 1)
    
End Sub
id:kitatom

ありがとうございます。こちらのコードを試してみたところ、うまく取得できました。たいへん助かりました。

2006/09/24 06:21:27
  • id:taknt
    あ、勘違いしました。失礼しました。

  • id:kitatom
    takntさん、わざわざコメントすみませんでした。
    またVBAで質問が生ずると思いますので、その際にはどうかよろしくお願いいたします。いつも本当にありがとうございます。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません