Excel VBA質問箱 IV

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

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


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

12933 / 76734

←次へ　｜　前へ→


	【69313】Re:大量セル書き込みの高速化

UO3 - 11/6/23(木) 22:43 -


	引用なし

	パスワード

▼えすたろうさん：

おまけのおまけ

オリジナルのArrayを活かすとすれば、以下のようにすると、↑でアップしたものより
もう少し早くなるはず。

Private Sub 時刻変換_Click()

　　Dim shu As String '出勤時刻
　　Dim tai As String '退勤時刻
　　Dim shuhour As String '出勤時間
　　Dim shumini As String '出勤分
　　Dim taihour As String '退勤時間
　　Dim taimini As String '退勤分
　　Dim shutai As String '配列
　　Dim gyo As Long
　
　　Application.ScreenUpdating = False
　
　　With Worksheets("貼り付け")
　　　　gyo = 2

　　　　Do While .Cells(gyo, 1).Value <> ""
　　
　　　　
　　　　　　shu = .Cells(gyo, 4).Value　'出勤時刻の取り込み
　　　　　　tai = .Cells(gyo, 5).Value　'退勤時刻の取り込み

　　　　　　.Cells(gyo, 8).Resize(, 4).Value = Array(Left(shu, 2), Mid(shu, 3, 2), Left(tai, 2), Mid(tai, 3, 2))

　　　　gyo = gyo + 1
　
　　　　Loop
　　
　　End With
　
　　Application.ScreenUpdating = True
　
　　MsgBox "完了"

End Sub

4 hits

▼

【69304】大量セル書き込みの高速化 えすたろう 11/6/23(木) 15:28