Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17973 / 76732

←次へ　｜　前へ→


	【64203】Re:入力あり→日付表示

UO3

- 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

2 hits

▼

【64200】入力あり→日付表示 hnds12 10/1/25(月) 11:43