Excel VBA質問箱 IV

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

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


41515 / 76732 ←次へ | 前へ→

【40296】Re:テキストボックスのデータ反映不具合
発言  ハト  - 06/7/10(月) 19:04 -

引用なし
パスワード
   >何分、シートのデータフォームの様にいかず、スピードがかなり遅いので、もう少しは早い手法は
>ないかと思ってもおります。
>ご回答をお願いします。

スピードアップという点に関しては

1. Select は極力使わない

例えば

Private Sub ido1()
  'Copy edit data area to clip borad
  Range("A1:AQ1").Select
  Selection.Copy
  'paste to old location(=.tag)
  Cells(4 + Frame6.Tag, 1).Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Rows("1:1").Select
  Selection.ClearContents
  Range("A1").Select
End Sub


Private Sub ido1()

  Range("A1:AQ1").Copy Destination:=Cells(4 + Frame6.Tag, 1)
  
  Rows("1:1").ClearContents
  Range("A1").Select  '←これも不要?

End Sub

ですみます

2. Application.ScreenUpdating = Falseを使う
例えば

Private Sub ido1()
  
  Application.ScreenUpdating = False

    ・・・・・・
    ・・・・・・
    ・・・・・・
    ・・・・・・
    ・・・・・・

  Application.ScreenUpdating = True

End Sub

というところでしょうか?

1 hits

【40123】テキストボックスのデータ反映不具合 アーバン 06/7/7(金) 10:55 質問
【40133】Re:テキストボックスのデータ反映不具合 ハト 06/7/7(金) 13:06 回答
【40235】Re:テキストボックスのデータ反映不具合 アーバン 06/7/10(月) 8:44 回答
【40278】Re:テキストボックスのデータ反映不具合 ハト 06/7/10(月) 15:24 回答
【40286】Re:テキストボックスのデータ反映不具合 アーバン 06/7/10(月) 16:38 質問
【40295】Re:テキストボックスのデータ反映不具合 ハト 06/7/10(月) 18:02 発言
【40296】Re:テキストボックスのデータ反映不具合 ハト 06/7/10(月) 19:04 発言
【40307】Re:テキストボックスのデータ反映不具合 アーバン 06/7/11(火) 10:40 お礼
【40360】Re:テキストボックスのデータ反映不具合 アーバン 06/7/12(水) 15:03 お礼
【40366】Re:テキストボックスのデータ反映不具合 ハト 06/7/12(水) 16:07 発言

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