Excel VBA質問箱 IV

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

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


31253 / 76732 ←次へ | 前へ→

【50731】Re:Aの列に2000年1月1日から現在までの日付を入れたい
発言  かみちゃん  - 07/8/13(月) 10:42 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> VBAでやりたい理由はそのほうが速いかと思ったからです。
> 同じ手間が掛かるなら、この文で十分です。
> for-next文使えないでしょうか?

For〜Nextを使いたいのはなぜでしょうか?
使わなくてもできますが、使わなければなりませんか?

コードを組んで、毎日実行するのが手間かどうかわかりませんが、
一応以下のようなコードでできると思います。
Hirofumiさんご提案の方法とは、日付を数式で設定しているかどうかの差だけです。

Sub Sample()
 Dim lngRow As Long
 
 With Range("A1")
  '現在の日付
  .Value = Date
  '2000/1/1からの日数を取得
  lngRow = DateDiff("d", DateValue("2000/1/1"), Date)
  '取得した日数分の数式を設定
  .Offset(1).Resize(lngRow).Formula = "=" & .Address(0, 0) & "-1"
  .Offset(, 1).Resize(lngRow + 1).Formula = "=" & .Address(0, 0)
  '曜日の表示形式を設定
  .Offset(, 1).Resize(lngRow + 1).NumberFormat = "aaa"
 End With
 MsgBox "終了しました"
End Sub

0 hits

【50727】Aの列に2000年1月1日から現在までの日付を入れたい もりひでひさや 07/8/13(月) 0:43 質問
【50728】Re:Aの列に2000年1月1日から現在までの日付... かみちゃん 07/8/13(月) 0:50 発言
【50729】Re:Aの列に2000年1月1日から現在までの日付... もりひでひさや 07/8/13(月) 5:09 発言
【50731】Re:Aの列に2000年1月1日から現在までの日付... かみちゃん 07/8/13(月) 10:42 発言
【50730】Re:Aの列に2000年1月1日から現在までの日付... Hirofumi 07/8/13(月) 10:20 回答
【50732】Re:Aの列に2000年1月1日から現在までの日付... じゅんじゅん 07/8/13(月) 11:23 発言

31253 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free