|
>何分、シートのデータフォームの様にいかず、スピードがかなり遅いので、もう少しは早い手法は
>ないかと思ってもおります。
>ご回答をお願いします。
スピードアップという点に関しては
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
というところでしょうか?
|
|