Excel VBA質問箱 IV

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

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


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

12935 / 76734

←次へ　｜　前へ→


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

UO3 - 11/6/23(木) 21:42 -


	引用なし

	パスワード

▼えすたろうさん：

おまけです。
以下のコードはオリジナルのコードで不要なところをカットし、変数の型を適切なものにして
Application.ScreenUpDating の手当をしたものです。
これでも、効果はありませんか？（少しは早くなりませんかね）

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).Value = Left(shu, 2)　'出勤時間の貼り付け
　　　　　　.Cells(gyo, 9).Value = Mid(shu, 3, 2)　'出勤分の貼り付け
　　　　　　.Cells(gyo, 10).Value = Left(tai, 2)　 '退勤時間の貼り付け
　　　　　　.Cells(gyo, 11).Value = Mid(tai, 3, 2)　'退勤分の貼り付け
　　　
　　　　gyo = gyo + 1
　　
　　　　Loop
　　　　
　　End With
　　
　　Application.ScreenUpdating = True
　　
　　MsgBox "完了"

End Sub

4 hits

▼

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