弥生給与とやよいの給与計算、バージョンが１１以降は相互にデータをやり取りすることができるようになっています。
今までは「やよいの給与計算→弥生給与」の一方通行で問題なかったのですが、今回初めて「弥生給与→やよいの給与計算」のやり取りをしなければならない状況に。
失敗しないようにやり取りに関するＦＡＱを読んでいると、よく分からない注意点が・・・。
大入袋の計算方法を使用する？んん、どういうことでしょう？もしかして賞与の特殊な計算方法があるのかしらん・・・？
ヘルプを読んで見ても、よく分かりません。
やり取りの際には問題ないみたいですが、そのまま放っておくのも気持ち悪いのでgoogle先生に聞いてみました。
結果はっきりした答えは分かりませんでしたが、弥生給与の前身のソフトで「大入袋」というものがあったみたいですね。そのソフトでの方法を使うということでしょうか。
少し引っかかってしまいました(^^;。
※事務所移転のお祝いにお花をいただきました。本当にありがとうございますm(_ _)m。
まだ整理も終わっていない事務所ですが、玄関だけ華やいでいます。
先週あたりから少しはまり気味で、すきま時間でちょこちょこといじっている、エクセルの給与計算シート。
今晩は、扶養控除申告書情報の入力画面を作ってみました。
生年月日や所得額を入れると、控除額が自動で計算されるようにしてみました。
普段はシートのセルと関数を使って条件分岐をさせることがほとんどなので、あまり考えたことがなかったのですが、プログラムだけで条件分岐させるのは結構面倒なのですね。
上記のような配偶者控除額と障害者控除額と配偶者特別控除額を計算させるだけで、次のような長いものになってしまいます（もっと上手い書き方があるのかもしれませんが・・・）。
TextHaishotoku = Format(TextHaishotoku, "#,###")
'配偶者控除の判定
Dim kojogaku As Long
Dim shotoku As Long
Dim nenrei As Integer
shotoku = Val(Replace(TextHaishotoku.Value, ",", ""))
nenrei = Val(TextHainenrei.Value)
'配偶者控除と配偶者特別控除の判定
If shotoku <= 380000 Then
'配偶者控除額の判定
If nenrei >= 70 Then
kojogaku = 480000
Else
kojogaku = 380000
End If
'配偶者控除額欄への代入、配偶者特別控除額のクリア
TextHaikojo.Value = kojogaku
TextHaikojo = Format(TextHaikojo, "#,###")
TextHaitokukojo.Value = 0
Else
'配偶者特別控除額の判定
If CheckHonninshotoku.Value = True Then
kojogaku = 0
ElseIf shotoku >= 760000 Then
kojogaku = 0
ElseIf shotoku >= 750000 Then
kojogaku = 30000
ElseIf shotoku >= 700000 Then
kojogaku = 60000
ElseIf shotoku >= 650000 Then
kojogaku = 110000
ElseIf shotoku >= 600000 Then
kojogaku = 160000
ElseIf shotoku >= 550000 Then
kojogaku = 210000
ElseIf shotoku >= 500000 Then
kojogaku = 260000
ElseIf shotoku >= 450000 Then
kojogaku = 310000
ElseIf shotoku >= 400000 Then
kojogaku = 360000
Else: kojogaku = 380000
End If
'配偶者特別控除額欄への代入、配偶者控除額のクリア
TextHaitokukojo.Value = kojogaku
TextHaitokukojo = Format(TextHaitokukojo, "#,###")
TextHaikojo.Value = 0
End If
Dim haikojo As Long
'ComboBoxの値 が変化した時の処理
Dim si As Integer
With NenchoEntry
si = .ComboHaishogai.ListIndex ' ComboBox の何番目が選択されたかを得る
Select Case si
Case 0
' 0番（非該当）が選択されていたらテキストボックスを０円にする
.TextHaishokojo.Value = 0
Case 1
' 1番（特別障害者）が選択されていたらテキストボックスを400,000円にする
.TextHaishokojo.Value = 400000
Case 2
' 2番（同居特別障害者）が選択されていたらテキストボックスを750,000円にする
.TextHaishokojo.Value = 750000
Case 3
' 3番（その他障害者）が選択されていたらテキストボックスを270,000円にする
.TextHaishokojo.Value = 270000
End Select
End With
haikojo = Val(Replace(TextHaishotoku.Value, ",", ""))
If haikojo > 380000 Then
TextHaishokojo.Value = 0
End If
End Sub
これだけでも、自分で何を書いているのか段々分らなくなってきます(^^;。
本職のプログラマーさんは、やはりすごいです。
週末かけて行っていた事務所移転ですが、本日電話・ＦＡＸ・ネットの工事も終了し、無事完了することができました。
移転前から変更がありましたのは住所のみで、電話番号、ＦＡＸ番号、メールアドレス、ＨＰのアドレス、いずれも変更ありませんので、今後ともよろしくお願いいたします。
通信環境の確認がてら、久しぶりに(^^;事務所ＨＰの更新も行いました。
今まで「場所がわかりにくい」と定評があった当事務所ですが、阪急御影駅からのアクセスが若干よくなり、また駐車場もありますので、少しぐらいは汚名返上出るでしょうか？
近くでの移転ですが、気分は心機一転がんばりたいと思いますので、今後ともどうぞよろしくお願いいたします。
※応接スペース（？）になる予定の部屋。
早く整理しないと・・・。
小林敬幸税理士事務所は、現在移転作業中です。
電話とＦＡＸが、明日日曜日の夕方まで使えなくなっております。
ご迷惑をおかけしますが、どうぞよろしくお願いいたしますm(_ _)m。
大して荷物もないと思ったのですが、段ボールに詰めてみると結構な量に。
何とか一部屋だけ整理完了。他の部屋は色々なものが山積みです(^^;。
荷物を運び出した後の旧事務所。
２００８年に開業して４年間、お世話になりましたm(_ _)m。
またまた前回に引き続き、事務所ＨＰで公開中のエクセルの給与計算シート。
今日は一日中事務所だったので仕事は早々に終わらせて、年末調整機能の追加にチャレンジしてみました。
年末調整の情報は、個人別に管理できた方が便利かなとユーザーフォームを使って情報を入力してもらい、別のシートにデータベースとして持つようにしてみました。
ユーザーフォームは、いじり始めるとあれもこれもと考えて、つい止まらなくなってしまいます。
エクセルのユーザーフォームは上手い人が作ると、市販ソフトも顔負けの便利なものになります。エクセルは初心者にもやさしいですが、凝り始めると奥が深いんですよね。
完成の暁には、このファイルを付録にして小さな会社向けの給与計算の本などが書ければ、役に立つ本にすることができるでしょうか？
給与計算、いったん慣れてしまうと毎月同じ作業になるのですが、最初慣れるまではどうしても色々質問をいただくことになってしまいます。
そんな最初のハードルを超える手助けになるような本が書ければいいですね(^^)。