Excel VBA質問箱 IV

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

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


17973 / 76732 ←次へ | 前へ→

【64203】Re:入力あり→日付表示
回答  UO3 E-MAIL  - 10/1/25(月) 13:20 -

引用なし
パスワード
   ▼hnds12 さん:

行数が多くなるとFor Nextでのまわしは、そのつど
ブック.Cellsの参照を裏でたどるわけでイライラするぐらい
遅くなりますね。できるだけ領域をまとめてドサっと一括で
処理することをお勧めします。
行ごとにA列がEmptyのとき、A12に戻しておられる意味が
わからないのですが、たぶんいらないと思えます。
であればJakaさんがいわれるように以下ではいかがでしょうかね。

Sub Test()
Dim x As Long
Dim myDate

  myDate = Format(Date, "yyyymmdd")
  x = Range("A10000").End(xlUp).Row
  Range("A12:A" & x).SpecialCells(xlCellTypeConstants).Offset(, 9) = myDate
  
End Sub
0 hits

【64200】入力あり→日付表示 hnds12 10/1/25(月) 11:43 質問
【64201】Re:入力あり→日付表示 Jaka 10/1/25(月) 12:58 発言
【64202】Re:入力あり→日付表示 hnds12 10/1/25(月) 13:15 お礼
【64203】Re:入力あり→日付表示 UO3 10/1/25(月) 13:20 回答
【64205】老婆心ながら:入力あり→日付表示 UO3 10/1/25(月) 13:48 発言
【64207】Re:老婆心ながら:入力あり→日付表示 hnds12 10/1/25(月) 14:21 お礼
【64204】Re:入力あり→日付表示 ponpon 10/1/25(月) 13:25 発言
【64206】Re:入力あり→日付表示 hnds12 10/1/25(月) 14:17 お礼

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