Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12385 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【10785】日付のセルの参照 PON 04/2/13(金) 19:03 質問
【10797】Re:日付のセルの参照 りん 04/2/14(土) 11:26 発言
【10785】日付のセルの参照
質問  PON  - 04/2/13(金) 19:03 -
引用なし
パスワード
   質問させて下さい。

1. Aファイル(sheet1のA1からA31まで日付(日)が入っている)
2. Bファイルの計算結果を実行した前の日の日付けでAファイルのB1からB31毎に挿入する

日付の参照がよくわかりません。

よろしくお願い致します。
【10797】Re:日付のセルの参照
発言  りん E-MAIL  - 04/2/14(土) 11:26 -
引用なし
パスワード
   PON さん、おはようございます。

>1. Aファイル(sheet1のA1からA31まで日付(日)が入っている)
>2. Bファイルの計算結果を実行した前の日の日付けでAファイルのB1からB31毎に挿入する

>日付の参照がよくわかりません。
 日付の参照の意味がよくわかりません。

Sub Test()
　 Dim RR As Long
　 'A1:A31を順番に確認していく
　 For RR = 1 To 31
　　　With Worksheets("Sheet1").Cells(RR&, 1)
　　　　 MsgBox .Value - 1, vbInformation, "前の日"
　　　　 MsgBox Year(.Value - 1), vbInformation, "年"
　　　　 MsgBox Month(.Value - 1), vbInformation, "月"
　　　　 MsgBox Day(.Value - 1), vbInformation, "日"
　　　End With
　 Next
End Sub

行のループと日付情報の取得はこんな感じです。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12385 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free