Excel VBA質問箱 IV

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

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


24270 / 76732 ←次へ | 前へ→

【57812】処理時間が長すぎて
質問  初心者  - 08/9/14(日) 14:00 -

引用なし
パスワード
   入力画面から別シートへ転記するコードを作ったのですが
処理時間が長すぎて困っています。
どこのコードが悪いのかどなたか教えてもらえないでしょうか。
  Dim 号車NO As Long
  Dim 日付 As Long
  
  号車NO = Range("B3").Value
  日付 = Range("B2").Value
   
  Range("A7:H14").Copy

  Sheets("キャッシュ").Activate
  Range("A65536").End(xlUp).Activate
  ActiveCell.Offset(1, 2).Activate
  
  ActiveCell.PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
  
  ActiveCell.Offset(0, 8).Activate
  
  Do Until ActiveCell.Offset(0, -7).Value = ""
  
    ActiveCell.Offset(0, -10).Value = 号車NO
    ActiveCell.Offset(0, -9).Value = 日付
    
    ActiveCell.Offset(1, 0).Activate
  
  Sheets("入力画面").Activate
   Range("A7:H14").Activate
   Selection.ClearContents
  Sheets("キャッシュ").Activate
  
  Loop

0 hits

【57812】処理時間が長すぎて 初心者 08/9/14(日) 14:00 質問
【57813】Re:処理時間が長すぎて かみちゃん 08/9/14(日) 14:16 発言
【57814】Re:処理時間が長すぎて 初心者 08/9/14(日) 14:51 お礼

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