|
Public kiso As Currency
kiso = Val(Range(A1").Value)
Private Sub 基礎控除_1算出()
Dim huyou_1 As Currency
If Text氏名_1.Value = "" Then
huyou_1 = 0
Else
huyou_1 = kiso
End If
Text計.Value = huyou_1 + syougai_1 + tokutei_1
End Sub
年末調整事務をしています。
扶養控除処理のため、扶養家族の控除額算出用に組んだVBAの一部ですが、同様な変数定義を他の部分にもしていますが、どれも認識してくれません。
上記例では、一人目の扶養家族欄のText氏名に入力があれば、必然的に基礎控除額である380,000円(kiso)を計上するようにしており、当然入力があればText計欄には「380,000」と計上されるはずなのですが、[0]としか計上してくれません。
If Text氏名_1.Value = "" Then部分を「<>」にしたり、[.Value]を[.Text]にしたり、[huyou_1 = kiso]を[huyou_1 = 380000]としたり、いろいろと試しましたが全く思うとおりにいきません。
ちなみに[ Text計.Value = huyou_1 + syougai_1 + tokutei_1 ]を[ Text計.Value = kiso + syougai_1 + tokutei_1 ]とするとText計には[380000]と計上されるのでkiso = 380000と変数kisoはちゃんと認識されていると思います。
この定義方法を他にも書き込んでいるので、これさえ解決できれば他も同様に改良できると思っています。
どなたか改良策、改善策をご教示ください。年末調整の時期も迫りあせっています。
どうぞお願いします。
|
|