| |
▼かみちゃん さん：
早速のご教示ありがとうございます。
返事が遅れて申し訳ありません。
ご教示いただいたコードを試そうと思っているのですが、その変数定義に関係した各扶養家族の計算式等のコードを下記のとおり記述しています。
ご教示いただいたコードにした場合、下記のコードをどう修正すればよいのでしょうか？
以下が一人分の関係コードです。
２人目以降も「●●●●● 一人目扶養家族控除額算出」以下を「_1」が「_2」「_3」・・・「_6」としているだけで、その他の構文は全く同じです。
'●●●●● 一人目扶養家族控除額算出
Private Sub 一人目扶養家族控除額算出()
基礎控除_1算出
特定扶養控除_1算出
同居加算額_1算出
寡婦加算額_1算出
障害者加算額_1算出
Text家族控除額_1.Value = huyou_1 + tokutei_1 + doukyo_1 + kahu_kouzyo_1 + syougai_kouzyo_1
家族控除額総計計算
扶養控除額総計算出
End Sub
'/////1.氏名に入力された場合、基礎控除額を計上
Private Sub 基礎控除_1算出()
If Text家族氏名_1.Value = "" Then
huyou_1 = 0
Else
huyou_1 = kiso
End If
Text家族控除額_1.Value = huyou_1 + tokutei_1 + doukyo_1 + kahu_kouzyo_1 + syougai_kouzyo_1
家族控除額総計計算
扶養控除額総計算出
End Sub
'/////2.生年月日から特定扶養者か老人かを判定し、特定扶養控除額又は老人扶養控除額を算出する
Private Sub 特定又は老人判定_1()
Dim m1 As Date
On Error Resume Next
m1 = Range("扶養控除!H11").Value
If Err.Number Then
On Error GoTo 0
m1 = DateValue(Replace(Range("扶養控除!H11").Value, ".", "/"))
Range("扶養控除!H11").Value = m1
End If
On Error GoTo 0
Dim mybirthday As Date
mybirthday = DateValue(Combo家族元号_1.Value & Trim(Combo家族生年_1.Value) & "/" & Trim(Combo家族生月_1.Value) & "/" & Trim(Combo家族生日_1.Value))
'MsgBox mybirthday
If mybirthday <= Range("扶養控除!g9").Value Then
Text特定別_1.Value = "老人"
ElseIf mybirthday >= Range("扶養控除!g11").Value And mybirthday <= Range("扶養控除!h11").Value Then
Text特定別_1.Value = "特定"
Else
Text特定別_1.Value = "一般"
End If
特定扶養控除_1算出
End Sub
Private Sub 特定扶養控除_1算出()
If Text特定別_1.Value = "老人" Then
tokutei_1 = kasan_7
ElseIf Text特定別_1.Value = "特定" Then
tokutei_1 = kasan_6
Else
Text特定別_1.Value = "一般"
tokutei_1 = 0
End If
Text家族控除額_1.Value = huyou_1 + tokutei_1 + doukyo_1 + kahu_kouzyo_1 + syougai_kouzyo_1
家族控除額総計計算
扶養控除額総計算出
End Sub
'/////3.同居別居別を判定し、老親の場合、同居加算額を算出する
Private Sub 同居加算額_1算出()
If Combo同居別_1.Value = "同居" And Text特定別_1.Value = "老人" Then
doukyo_1 = kasan_8
Else
doukyo_1 = 0
End If
Text家族控除額_1.Value = huyou_1 + tokutei_1 + doukyo_1 + kahu_kouzyo_1 + syougai_kouzyo_1
家族控除額総計計算
扶養控除額総計算出
End Sub
'/////4.寡婦別欄に入力された場合、寡婦控除額を判定
Private Sub 寡婦加算額_1算出()
kahu_1 = Combo寡婦別_1.Value
Select Case kahu_1
Case "寡婦"
kahu_kouzyo_1 = kasan_5
Case "寡夫"
kahu_kouzyo_1 = kasan_5
Case Else
kahu_kouzyo_1 = 0
End Select
Text家族控除額_1.Value = huyou_1 + tokutei_1 + doukyo_1 + kahu_kouzyo_1 + syougai_kouzyo_1
家族控除額総計計算
扶養控除額総計算出
End Sub
'/////5.障害別欄に入力された場合、障害控除額を判定
Private Sub 障害者加算額_1算出()
Dim syougai_1 As Variant
syougai_1 = Combo障害別_1.Value
Select Case Combo障害別_1.Value
Case "特別"
syougai_kouzyo_1 = kasan_2
Case "同居特別"
syougai_kouzyo_1 = kasan_1
Case "一般"
syougai_kouzyo_1 = kasan_3
Case Else
syougai_kouzyo_1 = 0
End Select
Text家族控除額_1.Value = huyou_1 + tokutei_1 + doukyo_1 + kahu_kouzyo_1 + syougai_kouzyo_1
家族控除額総計計算
扶養控除額総計算出
End Sub
Private Sub Combo寡婦別_1_Change()
寡婦加算額_1算出
End Sub
Private Sub Combo障害別_1_Change()
障害者加算額_1算出
End Sub
Private Sub Combo同居別_1_Change()
同居加算額_1算出
End Sub
Private Sub Text家族氏名_1_Change()
基礎控除_1算出
End Sub
Private Sub Combo家族生日_1_afterupdate()
If Combo家族生年_1.Value <> "" And Combo家族生月_1.Value <> "" Then
特定又は老人判定_1
'特定扶養控除_1算出
Else: Exit Sub
End If
End Sub
|
|
bakadeus
- 11/1/10(月) 14:40 -
