|
▼トニケン さん:
>どなたかお助けを、、、
>現金出納帳をつくりました。
>毎月残高を更新するマクロです。
>F250の残高を新しいシートのF3にペーストし、シート名をひと月増やしていきます。
>最初は60行でしたが今は250行に増やしました。
>そしたら機能しなくなってしまいました。
>何が原因でしょうか?
>お解りになる方、お助け下さい。
> Dim M, N
> M = ActiveSheet.Name
> N = Left(M, Len(M) - 1) + 1
> If N = 13 Then N = 1
> Application.ScreenUpdating = False
>
>
> ActiveSheet.Copy After:=ActiveSheet
> ActiveSheet.Name = N & "月"
> Range("F250").Copy
> Range("F3").Select
> Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
> False, Transpose:=False
> Range("A4:E249,G4:G249").ClearContents
> Range("A4").Select
>
>
> Application.ScreenUpdating = True
Win XP Excel2003にて
何の問題もなく機能しますが・・・・
>そしたら機能しなくなってしまいました。
とはどのような状態なのでしょうか?
|
|