|
▼ハト さん:
早速のご回答ありがとうございます。
なるほど、現在の私のプログラミングでは、確かにSelectを多用していると
思います。
何分、初心者なので、操作の記録の切り貼りだけでは進歩しませんよね。
今後は、更に工夫してみます。
下記も大変参考になります。
色々とありがとうございました。
謎の不具合は、もっと調べてみます。
今後も何かありましたら、よろしくお願いします。
>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
>
>というところでしょうか?
|
|