Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14874 / 76734

←次へ　｜　前へ→


	【67348】変数を認識してくれません。

八家九僧陀 - 10/11/27(土) 1:03 -


	引用なし

	パスワード

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はちゃんと認識されていると思います。

この定義方法を他にも書き込んでいるので、これさえ解決できれば他も同様に改良できると思っています。

どなたか改良策、改善策をご教示ください。年末調整の時期も迫りあせっています。
どうぞお願いします。

0 hits

▼

【67348】変数を認識してくれません。 八家九僧陀 10/11/27(土) 1:03

≪