教会用会計プログラム更新情報

有限会社大正製作所のホームページ

2021.01.13
会計メインメニュー、NumLockの消灯防止のため一部修正
献金21_教会名.xls、元帳21谷町.xls、月別計算21谷町.xls、終了で会計メインメニューに戻る際の処理を一部修正

2021.01.12
元帳21谷町.xlsのmodule1の4つのﾌﾟﾛｼｰｼﾞｬ(前年月分移動、備考移動、記入者名移動、印字0)を修正。
年初め等ﾃﾞｰﾀｰ数が極端に少ないﾃﾞｰﾀｰに対しての対応ができていなくて今回追加修正しましたが
その対応のために書き加えたﾏｸﾛ分がまた誤作動を引き起こしたりしていました。

2021.01.08
1.MDIマルチドキュメントインターファイス仕様とSDIシングルドキュメントインターファイス仕様をマクロで自動判別するようにしました。バージョン12までと13以降で判別しています。
2.フレームを表示してそこからマクロでシートに書き込みをした場合ワークシートにアクティブが移動してマウスでフォームをクリックしないとフレームがアクティブになりませんでした。今回AppActivateメソッドを使用して対処してみました。
3.最初に金種ボタンを実行した場合正しく振込他に入力した数字が合計に反映さるのですが、小計式固定ボタンで固定した後再び現金小計式復帰ボタンを実行しても振込他の金額が反映されなくなっていました。修正しました。

2021.01.05
1.昨年upした際、私のいくつかのコンピューターで確認した際マクロは正常に動作していたのですが
今年、年次更新で範囲名、"名前ﾃﾞｰﾀ" と"未登録ﾌﾗｸﾞ"ですが認識できない事象が発生し修正を加えました。
原因は範囲名を呼び出す際、システムによっては厳密に大文字小文字の区別がされているようです。

2.それから、会計メインメニューから献金、元帳、月別計算を実行して、そのあと、またメインメニューに戻る際、ファイルインポートの画面が開くようになり修正を加えました。
会計メインメニューのマクロ”main”に一行、sendkeys （”%（f11）”）を加えて、会計メインメニューの起動オプションのCtrl+ｍが動作するようにしました。
ちなみに、なぜこうなるのかよくわからないのですが、vbaのメインメニューのファイル（F）の中のファイルのインポート(I) Ctrl+Mがクリックされてその画面が開いていたようです。

2020.01.30
1.[会計メインメニュー.xls]年＋、年- のボタン動作及び自動実行の修正をしました。
2.[献金20_教会名.xls]記入者名書き込みのTextboxのプロパテイーMultiline=Trueになっていて、リターンキーで書き込みから抜け出せなる現象が発生。Multiline=Falseに修正しました。
3.[献金20_教会名.xls]新年表作成時だけの現象と思われる収入支出の参照式が不正になる現象があり常に起動時に再設定するよう修正しました。
4.[献金20_教会名.xls]解像度画が変わると名前選択等の画面の枠固定が変化していたのをApplication Gotoを利用して枠固定を自動化しました。
5.[献金20_教会名.xls]メニューリボンの大きさによって書き込み作業をするフレームの位置をApplication.HeightとActive WindowのHeightを確認することで自動配置化しました。
今回はコンピューターが変わっても問題なく使えるようにフレームと枠固定の完全自動化を試みてみました。

2010.02.03
1. 献金10__教会名.xls/目的献金の集計のデーターベース関数の参照に誤りがあり訂正しました。
2. 献金10__教会名.xls/frm作業表/sub献金/予約額をmyday列に書き込まないようにするためIf InStr(1, ActiveCell.Offset(0, 1), "予約") < 1 Thenを三箇所挿入
3. 月別計算__教会名.xls/Sub 関数dsum更新/ ActiveCell.Offset(0, 3).Name = "目的収入合計" を ActiveCell.Offset(0, -1).Name = "目的収入合計" に変更

2010.02.02
1. エクセル97バージョン Application.Version 8.0で作成し直しました
気づかないうちにエクセル97のバージョンがSR-2で保存されていて8.0のエクセルで保存しようとすると最新の機能が失われるとかいった注意メーッセージ表示され不都合なのでsendkeysを使用して回避するようにしていますが、念のため旧バージョンの8.0で再作成しました。
2. 献金10__教会名.xls/frm作業表/sub mytext、sub 献金/ Hide実行前の SendKeys ("{DOWN}{UP}")を削除 DoEvents に変更メニュー画面ヘ漢字モードonのまま戻るのを回避するのとNumLk状態を保持するため
3. myfiler.xls/ パブリックにDim myhairetu(500, 3) As String と配列変数を宣言していますがこれを削除して二箇所 sub mySort と sub mydir で ReDim myhairetu(ListBox1.ListCount, 2) As String 動的変数宣言に変更
4. myfiler.xls/ sub mydir 作業ストップのボタンを追加しました
5. 元帳10__教会名.xls/module1/sub 印刷0　 If ActiveCell.Row > 50 Then の判定とその end ifの2行を削除最初の項目が50以下の行数では次の項目が一行入ってしまうため

2010.01.30
新年度作成時のCommonDialogControlを自作ファイラーに変更
なおCommonDialogControl不使用にしましたので印刷時のプリンターは既定のプリンターのみとなります
既存の名簿を編集せずに使用できるよう名簿元作成時列および行を指定できるようにしました

2010.01.21-4
更新の際、会計メインメニューに書き込んだオプション名が優先になっていませんでした修正
バージョンが違った場合の処理を確認一部修正しました

2010.01.21-3
元帳でシートにデータが残っていないと更新作業をしないバグがあり、修正しました

2010.01.21-2 主な修正
コンピューターによってはまだ保存時にアラームのウインドウを表示するので再度調整しました
初期設定時ラベルの書き換え等でエスケープするとカーソルが移動できなくなるのを修正
作業表を更新した場合献金集計ファイル本体も保存するようにしました
日付ファイル生成で自動で01/01にならない場合があるので修正年数までは見ていませんので年+ 年- ボタンを使用ください

2010.01.21 主な修正
名簿選択画面、支出収入の項目選択画面で枠固定をしていますがモニターによっては枠が下がりすぎていたり不具合がある場合、メニューウィンドウの枠固定のチェックボックスの選択をはずしておくとカーソルを最下行以下または最上行以上に選択することで枠が移動するようにしました。またその記録はワークシートに書き込まれ、次回起動時からは調整しなくてもよいようにしました

目的献金等 20項目ほど項目を追加しましたそれに伴い元帳マクロ月別計算マクロを修正しました

元帳に印字マクロを追加しました

期首の現金および通帳残高をマクロ画面で記入できるようにしました

集計表閲覧マクロで任意の範囲の合計を計算するマクロを加えました

ほかエクセルのバージョンによっては保存時にアラームのウインドウを表示するのでそれを回避するように修正しました

2009.12.23 主な修正
詳細印字時のラベル判定修正
閲覧時、選択範囲の合計ができるようマクロ追加
新年度表作成時、作業表が起動している場合マクロで作業表をクローズ
新年度表作成時、予備名簿行数を40から60行に拡大
印字マクロで場合によってはエラーが出るのでマクロを改修

2009.03.29
エラーがありました。次回修正したものをUPの予定ですが、マクロを修正できる方は参考にして修正してください。

詳細印字のプロシージャのイースター克己献金等特定日献金の処理の分岐を下記のように修正
If myvalue = "BI" Then GoTo top110
If myvalue = "KA" Then GoTo top110
If myvalue = "NM" Then GoTo top110
If myvalue = "KA" Then GoTo top110
If myvalue = "KB" Then GoTo 維持処理
If myvalue = "KC" Then GoTo 感謝処理
If myvalue = "KH" Then GoTo 特別処理
If myvalue = "KD" Then GoTo その他処理4
If myvalue = "KE" Then GoTo その他処理4
If myvalue = "KF" Then GoTo その他処理4
If myvalue = "KG" Then GoTo その他処理4
If Left(myvalue, 1) = "K" Then GoTo 目的処理
If Left(ActiveCell.Value, 1) = "S" Then GoTo 支出処理
' If IsEmpty(ActiveCell) = False Then GoTo その他処理4

2009.02.21
エラーがありました。次回修正したものをUPの予定ですが、マクロを修正できる方は参考にして修正してください。

その他の収入のトップのラベルをKPに変更した際新たなラベルKP,KQ,KR,KS,KTの詳細印字での判定文が抜けていました。
詳細印字のプロシージャのIf myvalue = "KH" Then GoTo 特別処理の後に一行追加修正が必要 : If Left(myvalue, 1) = "K" Then GoTo 目的処理

詳細印字シートをアクティブにして保存終了した場合、次回起動時エラーでマクロがストップします。回避するため次の2行が必要です。
Private Sub Workbook_Open()で次の一行をトップに移動 : On Error Resume Next
Sub kurikaesi()でトップに一行追加 : Sheet1.Activate

2009.01.02
他の収入のトップのラベルをKPに変更した際新たなラベルKP,KQ,KR,KS,KTの範囲名つけ忘れをしていたのを修正
印刷時に限界値の場合白紙が余分に出力されるのを修正
ファンクションキーF1でヘルプを表示するよう改造

2007.05.18
説明のページを作成に当たって感謝献金項目を３個特別献金項目を３個に変更その他の収入のトップのラベルをKPに変更
画面設定をワイド画面のモニターにも自動で対応するようにマクロを修正
集計表の口数の式を自動で挿入するマクロを追加

2007.5.10 会計プログラム開始時の記入者名書き込みウィンドウにも漢字変換についての注意書きを表示変換モードを手動で変更すると不都合な場合があるため
2007.5.6 名簿人数が少ない場合削除行数にあやまりがあり訂正
2007.5.5 元帳及び月別計算で参照式を使用しないでファイルを一度開いてコピーする方法に書き換えメモリーの関係か又は互換性の問題かでフリーズしてしまうのを防ぐため
2007.5.5 付け込み通帳で複数通帳郵便振替残高その他項目の行を追加
2007.5.4 元帳のfrm項目のコピー範囲修正最下行に現在収支残高の差し引きを表示
2007.5.3 付け込み通帳の数を増やす郵便振替欄追加

2007.01.08 主な修正箇所
会計メインメニューで09年までしか年数が増えないバグを99年まで出来るように修正
金種計算の表を呼び出して金種を書き込まずに終了した場合未登録フラグを立てないようにしていたが実際の書き込み合計と比較して判断するよう修正

2007.01.07 主な修正箇所
frm日付生成 sub 日付生成() 2006年のようにクリスマスイブと日曜が重なった場合12/24の日付がふたつ生成してしまってデータベース上不都合なため、そんな場合は12/25を生成するよう訂正
frm作業表 Sub myText(KeyCode As Integer)を追加 sendkeysステートメントを少しでも使わないようにしてNumlkキーが落ちてしまうのを防ぐためまた支出でマイナス金額を入力した場合windows2000ではSendkeysを使用した場合キーを二度打ちしたような結果になって処理ができないためプログラムを改良

2005.09.18 主な修正箇所
Module1のend処理書き込みがあった場合保存せずに終了する場合終了再確認を追加

frmMenu4 表のクリアーボタン一旦ファイルを閉じるようにプログラム変更
データクリアの後そのまま作業を続けると作業表トップの日付等も削除されるので一旦エエクセルを終了するように変更

frm作業表にあった不使用のオブジェクトTextbox2を削除
それに伴ってそれにかかわる行をfrm作行表とModule1から削除

セーブされたデーターファイルを読み出すときセルがデーターの範囲内にないと正しくコピーできないのを修正
Module1のファイル読み出し
Workbooks.Open FileName:=Range("thisworkbookpath") & "\" & 日付ファイル名(Range("myday")) の行の後のに一行追加
Range("a1").Activate

frm作業表のプロシージャSub mywait()を削除

漢字入力についての説明を最初に表示するようにする
frmコメント修正

frm作業表名簿選択で先んじて名前をセルから消さないようにする

frm作業表 R Cへのジャンプで範囲名指定がないとエラーになるので以下のようにOn Error Resume Nextを追加

frm作業表他収入他支出でendキーが押された場合最下行を選択するがそこが空の場合ひとつ上を選択するように行追加

frm作業表カーソル表示させるため Private Sub myText(KeyCode As Integer)を追加

frm作業表プロシージゃｬmyopvfを作成してｵﾌﾟｼｮﾝﾎﾞﾀﾝのﾌﾟﾛｼｰｼﾞｬを整理

frm作業表数字ｷｰを押して確定した場合数字がﾃｷｽﾄﾎﾞｯｸｽに二度打ちされてしまうのを防ぐようｾﾝﾄﾞｷｰを削除

Module1 バックアップファイル設定
If bkfile <> "" Then bkdir = Chr(bkn) & ":\ky-bak\": Range("ﾃﾞｨﾚｸﾄﾘ") = Chr(bkn) & ":\ky-bak\": Exit Forこれを次のように変更
If bkfile <> "" Then bkdir = Chr(bkn) & ":\ky-bak": Range("ﾃﾞｨﾚｸﾄﾘ") = Chr(bkn) & ":\ky-bak": Exit For

2005.01.05 各ファイル名変更
会計メインメニューを開くと自動的に現在の年数のファイルを規定値にしているため各ファイル名の04を05に変更
それにしたがって [献金05_教会名.xls]のmodule1内のサブルーチン<新年表作成内>の参照ファイル名をそれにあわせて変更

2004.12.20一行修正
[献金04_教会名.xls]
(module1 詳細印字)
献金数のカウント数を40固定でなくを実際の数で調べるよう一行修正
n = Range(ActiveCell.Address).Row - Range("読出し位置").Row

2004.11.09主な修正箇所
[献金04_教会名.xls]
(module1 バックアップファイル設定)
バックアップをフロッピーがない場合ネットワークドライブを使用できるよう修正
ネットワークドライブのルートにディレクトリー名ky-bakを作成してそこにダミーファイルkk000000.xlsを置いてください
(module1 新年度表作成)
予備データー数20を40に変更年度途中の増加に余裕を持たせるため修正
手作業で増やす場合は行をインサートしてrang("ﾃﾞｰﾀｰ数")セルの値をその分増やしてください
(module1 名簿ファイル確認)
セルの位置指定と式に誤りがあり名簿もとの確認が正常に行われないのを修正
(会計処理選択ﾒﾆｭｰ2)
通帳付込確認ボタンを新規作成マクロ終了ボタンを会計処理選択ﾒﾆｭｰ3に移動それに伴ってﾃﾞｰﾀﾍﾞｰｽシ-ト削除ボタンを削除
(frmコメント)
通帳付け込みボタンで作業をした場合2回目からは前回作業日付セルを選択するようにプログラムを追加

2004.04.29主な修正箇所
[献金04_教会名.xls]
(module1 日付ファイル確認)
前回の終了で別日集計で保存終了していた場合､シートをクリアーして現在の集計日ファイルを読み出して起動するよう修正
読み出しファイルより前回のデータ-が大きい場合その分シートに残るのを防ぐため
(frmMenu2 CommandButton6_Click)
マクロを終了するとき　作業表ファイルを終了しないよう修正
マクロを再起動したとき　再度日付と名簿ファイルの確認作業をするのを防ぐため

2004.03.21主な修正箇所
[献金04_教会名.xls]
(module1 file確認1)(module1 file確認2)
新年表作成メニューウィンドウが画面右半分に表示されるようActivewindow.Widthを追加修正

2004.03.20主な修正箇所
[元帳04_教会名.xls]
(module1 項目選択)
パス付きリンク式にしてリンクファイル選択ウインドウが開かないよう修正

2004.03.14主な修正箇所
[元帳04_教会名.xls]
(module1 項目選択)(frm項目名)
項目名選択ウインドウに献金集計表の累計額収入支出の合計が表示されるようにする
[献金04_教会名.xls]
集計表下の合計のセル変更移動
ワークシート上の克己献金をイースター克己献金に名称変更
ちなみにAO4～BV4セルの献金名 CF列のその他の収入支出等適当に変更して使用ください

2004.03.12主な修正箇所
[献金04_教会名.xls]
(module1 新年度表作成)
範囲名"B"の文字が2重になるのを修正
[月別計算04_教会名.xls]
読み出したデーターを自由に加工できるようクリアーしないでそのままにする

2004.02.22修正箇所
[会計メインメニュー.xls]
(module1 main)
自動実行の不具合修正戻ってきたときにオプションファイル名が有効になっていないのを修正

2004.02.17修正箇所
[献金04_教会名.xls]
自動実行開始時のエラーの原因となっていた不要な参照ファイルのチェックをずす
通帳付け込み表のバックカラーのマクロ修正また日付を参照に変更

2004.02.16主な修正箇所
[月別計算04_教会名.xls]
worksheet上の参照式を削除参照エラーになるのを修正

2004.02.15主な修正箇所
[会計メインメニュー.xls]
(module1 main)
自動実行の不具合修正
[献金04_教会名.xls]
(Workbook_Open)
msgboxでマクロの起動説明を削除ワークシート表示に修正 (module1 通帳つけ込み表式挿入)
式に誤りがあるのを修正また"ok"または帳面と通帳現金合計の差額を表示に修正

2004.02.14主な修正箇所
[元帳04_教会名.xls]
フレームfrm項目名を追加
このフレーム上でカーソルを項目名に合わせてマウスをクリックするかエンターキーを入力することで
選択された項目が表示されるようにする
[献金04_教会名.xls]
(module1 献金ファイル名更新)
会計メインメニューにオプションファイル名を反映/またオプションファイル名付き元帳月別計算ファイルをマクロで自動生成するようにする
(frmMenu4 CommandButton2_Click)
年度変更が反映されていないのを修正
(module1 新年表ファイル名確認)
オプションファイル名のみ入力を確認するようにする
(frm日付生成 Sub syokika)
日付を整数にする
(module1 全ファイル読出し)
ファイル名の設定間違いでファイルが読み出せないのを修正
(module1 日付ファイル確認)
初期起動で以前の書き込み日に未入力があると書き込み日を選択するようにして注意を促すようにする
(frmボタン CommandButton1_KeyDown)
名簿元ファイル作成でフィールド選択が空白セルまででなく10列目まではカーソルが移動できるようにする
(module1データクリア)
メニュー4のデータークリアーで通帳付け込み表もクリアーされるのを
通帳付け込み表に式があった場合再度式を挿入するよう修正
(frmMenu3)
通帳つけ込み表式挿入用のコマンドボタンを新規作成
(module1 通帳つけ込み表式挿入)
Sheet1.Activateの一行追加
(frmコメント)
書き込み日付変更のfrmでラベルに日付が正しく反映されないのを修正
(module1詳細印字)
詳細印字をした場合今日までの累計に処理が反映されるようにする
(frm作業表)
献金名や収入支出名の選択時リターンキーのほかにテンキーの数字でも選択が確定されなお打ち込まれた数字が入力に反映されるよう修正

戻る
E-mail: VZK02425@nifty.com