Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4038 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【58688】現金出納帳 トニケン 08/11/4(火) 19:31 質問[未読]
【58691】Re:現金出納帳 ponpon 08/11/4(火) 21:40 発言[未読]
【58692】Re:現金出納帳 トニケン 08/11/5(水) 9:05 回答[未読]
【58697】Re:現金出納帳 ハチ 08/11/5(水) 10:43 発言[未読]
【58698】Re:現金出納帳 Abebobo 08/11/5(水) 10:54 発言[未読]
【58700】Re:現金出納帳 Abebobo 08/11/5(水) 11:59 発言[未読]
【58710】Re:現金出納帳 トニケン 08/11/5(水) 18:17 お礼[未読]
【58709】Re:現金出納帳 トニケン 08/11/5(水) 18:16 お礼[未読]
【58713】Re:現金出納帳 ponpon 08/11/5(水) 18:43 発言[未読]
【58731】Re:現金出納帳 SS 08/11/6(木) 7:14 発言[未読]
【58752】Re:現金出納帳 トニケン 08/11/7(金) 9:19 お礼[未読]
【58688】現金出納帳
質問  トニケン  - 08/11/4(火) 19:31 -
引用なし
パスワード
   どなたかお助けを、、、
現金出納帳をつくりました。
毎月残高を更新するマクロです。
F250の残高を新しいシートのF3にペーストし、シート名をひと月増やしていきます。
最初は６０行でしたが今は２５０行に増やしました。
そしたら機能しなくなってしまいました。
何が原因でしょうか？
お解りになる方、お助け下さい。
　　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
【58691】Re:現金出納帳
発言  ponpon  - 08/11/4(火) 21:40 -
引用なし
パスワード
   ▼トニケン さん：
>どなたかお助けを、、、
>現金出納帳をつくりました。
>毎月残高を更新するマクロです。
>F250の残高を新しいシートのF3にペーストし、シート名をひと月増やしていきます。
>最初は６０行でしたが今は２５０行に増やしました。
>そしたら機能しなくなってしまいました。
>何が原因でしょうか？
>お解りになる方、お助け下さい。
>　　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にて
何の問題もなく機能しますが・・・・

>そしたら機能しなくなってしまいました。
とはどのような状態なのでしょうか？
【58692】Re:現金出納帳
回答  トニケン  - 08/11/5(水) 9:05 -
引用なし
パスワード
   ponpon さん、お返事ありがとうございます。
MacOS10.5で使用しています。
一度は更新できますが、もう一度実行するとエクセルが終了してしまいます。
保存も出来なくなってしまいます。
原因がわかりません。
【58697】Re:現金出納帳
発言  ハチ  - 08/11/5(水) 10:43 -
引用なし
パスワード
   ▼トニケン さん：
>ponpon さん、お返事ありがとうございます。
>MacOS10.5で使用しています。
>一度は更新できますが、もう一度実行するとエクセルが終了してしまいます。
>保存も出来なくなってしまいます。
>原因がわかりません。

この仕組みでいくと、
同じ名前のシート名になっているのではないですか？
【58698】Re:現金出納帳
発言  Abebobo  - 08/11/5(水) 10:54 -
引用なし
パスワード
   トニケン さん　ponpon さん、ハチ さん　こんにちは

>MacOS10.5で使用しています。
わたしは　XP 2000　なので解りませんが・・・

>一度は更新できますが、もう一度実行するとエクセルが終了してしまいます。
私も最初は、新しくシートの名前を付けるとき、すでに同じ名前のシートがあるのでエラーが出ると思っていましたが、　>エクセルが終了　が引っかかります。
　
過去に、友人から『マクロを走らせるとエクセルが終了』する代物を見せてもらいました。　原因は　Private Sub Worksheet_Calculate()　が大騒ぎをしてダウンするんじゃないかという結論に至りました。

有効セルが増えた分その可能性もアリかも
【58700】Re:現金出納帳
発言  Abebobo  - 08/11/5(水) 11:59 -
引用なし
パスワード
   Paste:=xlValues　になっていましたね。

私のレスは関係なさそう・・・。
【58709】Re:現金出納帳
お礼  トニケン  - 08/11/5(水) 18:16 -
引用なし
パスワード
   ハチ さん、有り難うございます。

マクロを一度実行すると２月の次に３月のシートが出来ます。
３月のシートをアクティブにしてもう一度マクロを実行すると異常終了してしまいます。
なんともかんともわかりません。（とほほほ、、）
【58710】Re:現金出納帳
お礼  トニケン  - 08/11/5(水) 18:17 -
引用なし
パスワード
   Abebobo さん、有り難うございます。
マクロが原因ではないみたいですね。
いろいろ試してみます。
お世話になりました。
【58713】Re:現金出納帳
発言  ponpon  - 08/11/5(水) 18:43 -
引用なし
パスワード
   Maｃではないので、何ともいえませんが、そんなに難しいコードでもないので
マクロが原因ではないのでは？・・・

こちらでは、普通に、2月、3月、4月・・・と作成されています。
【58731】Re:現金出納帳
発言  SS  - 08/11/6(木) 7:14 -
引用なし
パスワード
   ▼トニケン さん：
>３月のシートをアクティブにしてもう一度マクロを実行すると異常終了してしまいます

マクロで作成するのではなく3月のシートのみのBOOKで試してみるとどうですか？
あと、前年からの続きでシート数が多すぎとかありませんか？
私もWin使いなので検証できませんが、興味がありましたので参加しました。

>ハチ さん、有り難うございます。
>
>マクロを一度実行すると２月の次に３月のシートが出来ます。
>３月のシートをアクティブにしてもう一度マクロを実行すると異常終了してしまいます。
>なんともかんともわかりません。（とほほほ、、）
【58752】Re:現金出納帳
お礼  トニケン  - 08/11/7(金) 9:19 -
引用なし
パスワード
   ▼SS さん：
有り難うございます。
シートを一つだけにしてスタートしてみましたが、２度目が異常終了になってしまします。
もう一度作り直してみます。
有り難うございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4038 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free