記事一覧

Excelで作った日計表(現金出納帳)で不具合が出て困っている。。。

SE経験のある職員が作ったExcelの日計表(現金出納帳)が、正常に動作しなくなったので助けて欲しいとご相談頂きました。

結論からいうと、毎日ワークシートを新規で作成し、そのシートが1500枚を超えるあたりから動作が極端に遅くなっていました。半端ないデータ量です。

Excelでの開発経験はもうずいぶんやっていないので、とにかく既存ブックが正常に動作するよう、下記の対策を行いました。


日計表

過去データの削除(1年半分だけ残して)。

Excelブックのバイナリー化。

VBAで不要なフォームコントロールの一斉削除。

'シートのフォームコントロールを一括削除
Private Sub Workbook_Open()

Dim WS As Worksheet

For Each WS In Worksheets

WS.Buttons.Delete

Next WS

End Sub

ActiveXボタン作成(btn日付)を作成し、メイン画面のみボタン配置。
ActiveXコントロールの全削除

Private Sub btn日付_Click()

Worksheets("メイン画面").Copy after:=Worksheets("メイン画面")


ActiveSheet.Name = Format(Now(), "yyyy年m月d日(aaa)")

ActiveSheet.Range("A2").Value = Format(Now(), "yyyy年m月d日(aaa)")


Dim shp As Shape

For Each shp In ActiveSheet.Shapes

If shp.Type = msoOLEControlObject Then
shp.Delete
End If

Next shp

End Sub


あと、VBAの不要なモジュール類の解放。

以上で、起動に30秒ほどかかっていたExcelBookが3秒ほどで立ち上がるようになり、相当時間がかかっていた保存も数秒で終わるようになりました。

SSDを利用している環境では、SSDに不要な負担をかけたくないので、これでもう10年ほどは使えると思います。

最後までご覧いただきまして有難うございました!


コメント

コメントの投稿

非公開コメント

プロフィール

パソコンお助け隊

Author:パソコンお助け隊
 奄美市でパソコン修理、PCトラブルにお悩みなら、奄美ICT「パソコンお助け隊」。


 奄美ICT「パソコンお助け隊」


 住所:
 〒894-0007 奄美市名瀬和光町2-1

 時間:
 平日 9:30 ~ 12:00


 連絡先:
 0997-53-3421

 ※当面、パソコンお助け隊は午前中のみの受付とさせていただきます。


 パソコンお助け隊 無料相談フォーム



 奄美ICT株式会社では、パソコン修理、パソコン・トラブルの解消依頼が最近急増しており、パソコンの不調にお困りの方を対象に、あらたに「パソコンお助け隊」サービスを始めました。


 本ブログでは、実際の事例等をご紹介するとともに、PCユーザ、スマホユーザのお役に立てる情報をご提供して参りますので、ぜひ、ご覧ください。



 申し遅れました。

 私は、奄美ICT株式会社の前田守と申します。

 奄美大島でITに携わって、17年ほどになります。
 世界自然遺産に推されるほど、豊かな自然に囲まれた奄美大島。ほんとうに大好きです。このシマで暮らしながら情報発信できるのは、楽しいものですよ。

 パソコンお助け隊のサポート範囲は、奄美大島(奄美市、笠利町、龍郷町、住用町、大和村、宇検村、瀬戸内町)一円です。

 旅費等ご負担頂ける場合に、その他の奄美群島(加計呂麻島、請島、与路島、喜界島、徳之島、沖永良部島、与論島)全域でも、対応させて頂くこともあります。



 弊社のサービス等、気になる方は、こちらもご覧ください。 → 奄美ICT株式会社 ホームページ制作・作成


 Facebookでは、いつも本音を語っています。かなり刺激的なこともあるので、友達申請してください。

 Facebook 前田守 ユーザーページ

 本ブログをお読みいただきまして、有難うございます!