Excel VBA質問箱 IV

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

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


14878 / 76738 ←次へ | 前へ→

【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 質問
【67350】Re:変数を認識してくれません。 Abyss 10/11/27(土) 1:44 発言
【67351】Re:変数を認識してくれません。 ichinose 10/11/27(土) 2:11 発言
【67361】Re:変数を認識してくれません。 八家九僧陀 10/11/28(日) 0:55 発言
【67362】Re:変数を認識してくれません。 八家九僧陀 10/11/28(日) 0:58 発言
【67363】Re:変数を認識してくれません。 SK63 10/11/28(日) 1:57 発言
【67364】Re:変数を認識してくれません。 SK63 10/11/28(日) 2:00 発言
【67366】Re:変数を認識してくれません。 八家九僧陀 10/11/28(日) 11:19 回答

14878 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free