Excel VBA質問箱 IV

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

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


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

14452 / 76734

←次へ　｜　前へ→


	【67778】もっと簡単にできないでしょうか？

bakadeus

- 11/1/7(金) 19:50 -


	引用なし

	パスワード

年末調整処理のプログラムを作り何とか事務を終えましたが、扶養家族の部分のコードをもっと簡単にできないかと悩んでいます。
フォーム上で一人一行のtextbox,comboboxを扶養家族６人分設定し、同じ値、同じ表を参照しているにも関わらず、ひとつひとつ下記のとおり定義づけしています。

６人全員を入力するわけではありません。１人も入力しない場合もありますが、なんとか簡単にできるコードはないでしょうか？　ご教示お願いします。

Dim TBL(1 To 149) As Control
Dim データ範囲 As Range

Public myID As Range

Public 年調給与額 As Currency
Public 控除後給与額 As Currency
Public 課税所得額 As Currency

Public kiso As Currency '基礎控除額
Public kiso_2 As Currency '老人控除対象配偶者控除加算額
Public kasan_1 As Currency '同居特別障害者
Public kasan_2 As Currency '特別障害者
Public kasan_3 As Currency '一般障害者
Public kasan_4 As Currency '特別寡婦
Public kasan_5 As Currency '寡婦又は寡夫
Public kasan_6 As Currency '特定扶養親族
Public kasan_7 As Currency '老親
Public kasan_8 As Currency '老親の場合の同居加算
Public kasan_9 As Currency '勤労学生

'家族一人目変数定義
Public huyou_1 As Currency
Public tokutei_1 As Currency
Public doukyo_1 As Currency
Public kahu_kouzyo_1 As Currency
Public syougai_kouzyo_1 As Currency
'家族ニ人目変数定義
Public huyou_2 As Currency
Public tokutei_2 As Currency
Public doukyo_2 As Currency
Public kahu_kouzyo_2 As Currency
Public syougai_kouzyo_2 As Currency
'家族三人目変数定義
Public huyou_3 As Currency
Public tokutei_3 As Currency
Public doukyo_3 As Currency
Public kahu_kouzyo_3 As Currency
Public syougai_kouzyo_3 As Currency
'家族四人目変数定義
Public huyou_4 As Currency
Public tokutei_4 As Currency
Public doukyo_4 As Currency
Public kahu_kouzyo_4 As Currency
Public syougai_kouzyo_4 As Currency
'家族五人目変数定義
Public huyou_5 As Currency
Public tokutei_5 As Currency
Public doukyo_5 As Currency
Public kahu_kouzyo_5 As Currency
Public syougai_kouzyo_5 As Currency
'家族六人目変数定義
Public huyou_6 As Currency
Public tokutei_6 As Currency
Public doukyo_6 As Currency
Public kahu_kouzyo_6 As Currency
Public syougai_kouzyo_6 As Currency

Private Sub UserForm_initialize()

Worksheets("年調DATA").Select

kiso = Val(Range("扶養控除!c6").Value) '基礎控除額
kiso_2 = Val(Range("扶養控除!d8").Value) '老人控除対象配偶者控除加算額
kasan_1 = Val(Range("扶養控除!d14").Value) '同居特別障害者
kasan_2 = Val(Range("扶養控除!d13").Value) '特別障害者
kasan_3 = Val(Range("扶養控除!d12").Value) '一般障害者
kasan_4 = Val(Range("扶養控除!d15").Value) '特別寡婦
kasan_5 = Val(Range("扶養控除!d16").Value) '寡婦又は寡夫
kasan_6 = Val(Range("扶養控除!d11").Value) '特定扶養親族
kasan_7 = Val(Range("扶養控除!e9").Value) '老親の場合の同居加算
kasan_8 = Val(Range("扶養控除!d10").Value) '老親
kasan_9 = Val(Range("扶養控除!d17").Value) '勤労学生

Combo家族続柄_1.List = Sheets("辞書").Range("続柄表").Value
Combo家族元号_1.List = Sheets("辞書").Range("元号表").Value
Combo家族生年_1.List = Sheets("辞書").Range("年数表").Value
Combo家族生月_1.List = Sheets("辞書").Range("月表").Value
Combo家族生日_1.List = Sheets("辞書").Range("日表").Value
Combo寡婦別_1.List = Sheets("辞書").Range("寡婦別表").Value
Combo障害別_1.List = Sheets("辞書").Range("障害別表").Value
Combo同居別_1.List = Sheets("辞書").Range("同居別居表").Value

Combo家族続柄_2.List = Sheets("辞書").Range("続柄表").Value
Combo家族元号_2.List = Sheets("辞書").Range("元号表").Value
Combo家族生年_2.List = Sheets("辞書").Range("年数表").Value
Combo家族生月_2.List = Sheets("辞書").Range("月表").Value
Combo家族生日_2.List = Sheets("辞書").Range("日表").Value
Combo寡婦別_2.List = Sheets("辞書").Range("寡婦別表").Value
Combo障害別_2.List = Sheets("辞書").Range("障害別表").Value
Combo同居別_2.List = Sheets("辞書").Range("同居別居表").Value

Combo家族続柄_3.List = Sheets("辞書").Range("続柄表").Value
Combo家族元号_3.List = Sheets("辞書").Range("元号表").Value
Combo家族生年_3.List = Sheets("辞書").Range("年数表").Value
Combo家族生月_3.List = Sheets("辞書").Range("月表").Value
Combo家族生日_3.List = Sheets("辞書").Range("日表").Value
Combo寡婦別_3.List = Sheets("辞書").Range("寡婦別表").Value
Combo障害別_3.List = Sheets("辞書").Range("障害別表").Value
Combo同居別_3.List = Sheets("辞書").Range("同居別居表").Value

Combo家族続柄_4.List = Sheets("辞書").Range("続柄表").Value
Combo家族元号_4.List = Sheets("辞書").Range("元号表").Value
Combo家族生年_4.List = Sheets("辞書").Range("年数表").Value
Combo家族生月_4.List = Sheets("辞書").Range("月表").Value
Combo家族生日_4.List = Sheets("辞書").Range("日表").Value
Combo寡婦別_4.List = Sheets("辞書").Range("寡婦別表").Value
Combo障害別_4.List = Sheets("辞書").Range("障害別表").Value
Combo同居別_4.List = Sheets("辞書").Range("同居別居表").Value

Combo家族続柄_5.List = Sheets("辞書").Range("続柄表").Value
Combo家族元号_5.List = Sheets("辞書").Range("元号表").Value
Combo家族生年_5.List = Sheets("辞書").Range("年数表").Value
Combo家族生月_5.List = Sheets("辞書").Range("月表").Value
Combo家族生日_5.List = Sheets("辞書").Range("日表").Value
Combo寡婦別_5.List = Sheets("辞書").Range("寡婦別表").Value
Combo障害別_5.List = Sheets("辞書").Range("障害別表").Value
Combo同居別_5.List = Sheets("辞書").Range("同居別居表").Value

Combo家族続柄_6.List = Sheets("辞書").Range("続柄表").Value
Combo家族元号_6.List = Sheets("辞書").Range("元号表").Value
Combo家族生年_6.List = Sheets("辞書").Range("年数表").Value
Combo家族生月_6.List = Sheets("辞書").Range("月表").Value
Combo家族生日_6.List = Sheets("辞書").Range("日表").Value
Combo寡婦別_6.List = Sheets("辞書").Range("寡婦別表").Value
Combo障害別_6.List = Sheets("辞書").Range("障害別表").Value
Combo同居別_6.List = Sheets("辞書").Range("同居別居表").Value

ｓpin移動.Max = レコード数取得 + 1

Set TBL(1) = Combo社員ID
　・
　・
Set TBL(76) = Combo家族続柄_1
Set TBL(77) = Combo家族元号_1
Set TBL(78) = Combo家族生年_1
Set TBL(79) = Combo家族生月_1
Set TBL(80) = Combo家族生日_1
Set TBL(81) = Text特定別_1
Set TBL(82) = Combo同居別_1
Set TBL(83) = Combo寡婦別_1
Set TBL(84) = Combo障害別_1
Set TBL(85) = Text家族控除額_1
Set TBL(86) = Text家族氏名_2
Set TBL(87) = Combo家族続柄_2
Set TBL(88) = Combo家族元号_2
Set TBL(89) = Combo家族生年_2
Set TBL(90) = Combo家族生月_2
Set TBL(91) = Combo家族生日_2
Set TBL(92) = Text特定別_2
Set TBL(93) = Combo同居別_2
Set TBL(94) = Combo寡婦別_2
Set TBL(95) = Combo障害別_2
Set TBL(96) = Text家族控除額_2
Set TBL(97) = Text家族氏名_3
Set TBL(98) = Combo家族続柄_3
Set TBL(99) = Combo家族元号_3
Set TBL(100) = Combo家族生年_3
Set TBL(101) = Combo家族生月_3
Set TBL(102) = Combo家族生日_3
Set TBL(103) = Text特定別_3
Set TBL(104) = Combo同居別_3
Set TBL(105) = Combo寡婦別_3
Set TBL(106) = Combo障害別_3
Set TBL(107) = Text家族控除額_3
Set TBL(108) = Text家族氏名_4
Set TBL(109) = Combo家族続柄_4
Set TBL(110) = Combo家族元号_4
Set TBL(111) = Combo家族生年_4
Set TBL(112) = Combo家族生月_4
Set TBL(113) = Combo家族生日_4
Set TBL(114) = Text特定別_4
Set TBL(115) = Combo同居別_4
Set TBL(116) = Combo寡婦別_4
Set TBL(117) = Combo障害別_4
Set TBL(118) = Text家族控除額_4
Set TBL(119) = Text家族氏名_5
Set TBL(120) = Combo家族続柄_5
Set TBL(121) = Combo家族元号_5
Set TBL(122) = Combo家族生年_5
Set TBL(123) = Combo家族生月_5
Set TBL(124) = Combo家族生日_5
Set TBL(125) = Text特定別_5
Set TBL(126) = Combo同居別_5
Set TBL(127) = Combo寡婦別_5
Set TBL(128) = Combo障害別_5
Set TBL(129) = Text家族控除額_5
Set TBL(130) = Text家族氏名_6
Set TBL(131) = Combo家族続柄_6
Set TBL(132) = Combo家族元号_6
Set TBL(133) = Combo家族生年_6
Set TBL(134) = Combo家族生月_6
Set TBL(135) = Combo家族生日_6
Set TBL(136) = Text特定別_6
Set TBL(137) = Combo同居別_6
Set TBL(138) = Combo寡婦別_6
Set TBL(139) = Combo障害別_6
Set TBL(140) = Text家族控除額_6

Set データ範囲 = Range("a1").CurrentRegion
If データ範囲.Columns.Count = 1 Then
Else
データ表示 2
End If

End Sub

2 hits

▼

【67778】もっと簡単にできないでしょうか？ bakadeus 11/1/7(金) 19:50

≪