#144 2013年（平成25年）大阪府産業連関表における最終需要部門の推計（その４）
宮崎 稔也投稿＃141から、2013年（平成25年）大阪府産業連関表における最終需要額を推計しています。
今回の投稿は、移輸入額の推計についてです。
（１５）輸入（普通貿易）
推計方法の確認
全国延長表の国内需要額に対する輸入（普通貿易）率を、府内需要額に乗じて推計した。
大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」より引用
実際の推計
推計に用いたVBAのコードは、以下のようになります。
Sub 輸入普通貿易推計()
Dim OrgWs As Worksheet '転記元ワークシート
Dim DesWs As Worksheet '転記先ワークシート
Dim i As Integer 'カウンタ変数
Dim j As Integer 'カウンタ変数
Dim japandemand As Long '全国延長表の国内需要合計額
Dim japanimp As Long '全国延長表の輸入（普通貿易）額
Dim ratio As Double '全国延長表の国内需要合計額に対する輸入（普通貿易）率
Dim osakademand As Long '大阪府延長表の府内需要合計額
Dim osakaimp As Long '大阪府延長表の輸入（普通貿易）額
Const FirstRow = 3 '転記開始行番号
Const LastRow = 192 '転記終了行番号
Const JapanDemandColumn = 410 '全国延長表の国内需要額合計列番号
Const JapanImpColumn = 411 '全国延長表の輸入（普通貿易）列番号
Const OsakaFirstColumn = 193 '大阪府延長表の開始列番号
Const OsakaLastColumn = 206 '大阪府延長表の終了列番号
Const OsakaImpColumn = 217 '大阪府延長表の輸入（普通貿易）列番号
Set OrgWs = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("全国延長表一般政府消費支出統合")
Set DesWs = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("府内移輸入推計")
For i = FirstRow To LastRow
japandemand = OrgWs.Cells(i, JapanDemandColumn)
If japandemand = 0 Then
DesWs.Cells(i, OsakaImpColumn) = 0
Go to Continue
Else
japanimp = OrgWs.Cells(i, JapanImpColumn)
ratio = japanimp / japandemand
osakademand = 0
For j = OsakaFirstColumn To OsakaLastColumn
osakademand = osakademand + DesWs.Cells(i, j)
Next
osakaimp = osakademand * ratio
DesWs.Cells(i, OsakaImpColumn) = -(osakaimp)
End If
Continue:Next
End Sub（１６）輸入（特殊貿易）
推計方法の確認
全国延長表の輸入（特殊貿易）額を、出入国管理統計から得られる出国日本人の対全国費で按分した。
大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」より引用
実際の推計
法務省出入国在留管理庁の「出入国管理統計統計表」より、全国及び大阪府における2013年（平成25年）の出国日本人数の値を得ました。
推計に利用したVBAのコードは、以下のようになります。
Sub 輸入特殊貿易推計()
Dim OrgWs As Worksheet '転記元ワークシート
Dim DesWs As Worksheet '転記先ワークシート
Dim japanspe As Long '全国延長表の輸入（特殊貿易）額
Dim ratio As Double '対全国比
Dim i As Integer 'カウンタ変数
Dim j As Integer 'カウンタ変数
Const FirstRow = 3 '転記開始行番号
Const LastRow = 192 '転記終了行番号
Const JapanSpeColumn = 419 '全国延長表の輸入（特殊貿易）額列番号
Const OsakaSpeColumn = 218 '大阪府延長表の輸入（特殊貿易）額列番号
Const japandep = 17472748 '平成25年出入国管理統計から得られる出国日本人（全国値）
Const osakadep = 1374214 '平成25年出入国管理統計から得られる出国日本人（大阪）
Set OrgWs = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("全国延長表一般政府消費支出統合")
Set DesWs = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("府内移輸入推計")
ratio = osakadep / japandep
For i = FirstRow To LastRow
japanspe = OrgWs.Cells(i, JapanSpeColumn)
DesWs.Cells(i, OsakaSpeColumn) = japanspe * ratio
Next
End Sub（１７）輸入（直接購入）
推計方法の確認
全国延長表の輸入（直接購入）額を、出入国管理統計から得られる出国日本人の対全国費で按分した。
大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」より引用
実際の推計
（１６）と同様にして求めることができるので、コードは割愛します。
（１８）関税
推計方法の確認
全国延長表の輸入額に対する関税率を、平成25年大阪府延長表の輸入額に乗じて推計した。
大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」より引用
実際の推計
域内（国内または府内）輸入額は以下の式から求めます。
$$
域内輸入額 = 域内輸入（普通貿易）+ 域内輸入（特殊貿易）
$$
推計に利用したVBAは、以下のようになります。
Sub 関税推計()
Dim OrgWs As Worksheet '転記元ワークシート
Dim DesWs As Worksheet '転記先ワークシート
Dim japanord As Long '全国延長表の輸入（普通貿易）額
Dim japanspe As Long '全国延長表の輸入（特殊貿易）額
Dim japanimp As Long '全国延長表の輸入額
Dim japandut As Long '全国延長表の関税額
Dim ratio As Double '輸出額に対する関税率
Dim osakaord As Long '大阪府延長表の輸入（普通貿易）額
Dim osakaspe As Long '大阪府延長表の輸入（特殊貿易）額
Dim osakaimp As Long '大阪府延長表の輸入額
Dim osakadut As Long '大阪府延長表の関税額
Dim i As Integer 'カウンタ変数
Const FirstRow = 3 '転記開始行番号
Const LastRow = 192 '転記終了行番号
Const JapanOrdColumn = 418 '全国延長表の輸入（普通貿易）額列番号
Const JapanSpeColumn = 419 '全国延長表の輸入（特殊貿易）額列番号
Const JapanDutColumn = 421 '全国延長表の関税の列番号
Const OsakaOrdColumn = 217 '大阪府延長表の輸入（普通貿易）額列番号
Const OsakaSpeColumn = 218 '大阪府延長表の輸入（特殊貿易）額列番号
Const OsakaDutColumn = 221 '大阪府延長表の関税の列番号
Set OrgWs = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("全国延長表一般政府消費支出統合")
Set DesWs = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("府内移輸入推計")
For i = FirstRow To LastRow
japanord = OrgWs.Cells(i, JapanOrdColumn)
japanspe = OrgWs.Cells(i, JapanSpeColumn)
japanimp = japanord + japanspe
If japanimp = 0 Then
DesWs.Cells(i, OsakaDutColumn) = 0
Goto Continue
Else
japandut = OrgWs.Cells(i, JapanDutColumn)
ratio = japandut / japanimp
osakaord = DesWs.Cells(i, OsakaOrdColumn)
osakaspe = DesWs.Cells(i, OsakaSpeColumn)
osakaimp = osakaord + osakaspe
osakadut = osakaimp * ratio
DesWs.Cells(i, OsakaDutColumn) = osakadut
End If
Continue:Next
End Sub
（１９）輸入品商品税
推計方法の確認
全国延長表の輸入額に対する輸入品商品税率を、平成25年大阪府延長表の輸入額に乗じて推計した。
大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」より引用
実際の推計
（１８）関税と推計方法が同じなので、VBAのコードは割愛します。
（２０）移入
各部門について、平成23年大阪府基本表の移入率（移入額／府内需要合計）を使用し、平成25年大阪府延長表の府内需要合計に乗じることにより求めた。
大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」より引用
実際の推計
推計に用いたVBAのコードは、以下のようになります。
Sub 移入推計()
Dim OrgWs As Worksheet '転記元ワークシート
Dim DesWs As Worksheet '転記先ワークシート
Dim basmig As Long '大阪府基本表の移入額
Dim basdemand As Long '大阪府基本表の府内需要合計額
Dim ratio As Double '移入率
Dim extdemand As Long '大阪府延長表の府内需要合計額
Dim extmig As Long '大阪府延長表の移入額
Dim i As Integer 'カウンタ変数
Dim j As Integer 'カウンタ変数
Const FirstRow = 3 '転記開始行番号
Const LastRow = 192 '転記終了行番号
Const BasMigColumn = 216 '大阪府基本表の移入列番号
Const BasDemandColumn = 204 '大阪府基本表の府内需要合計列番号
Const FirstColumn = 193 '開始列番号
Const LastColumn = 206 '終了列番号
Const ExtMigColumn = 224 '大阪府延長表の移入列番号
Set OrgWs = Workbooks("移入推計シート_平成25年大阪府産業連関表.ods").Worksheets("H23大阪府基本表")
Set DesWs = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("府内移輸入推計")
For i = FirstRow To LastRow
basdemand = OrgWs.Cells(i, BasDemandColumn)
If basdemand = 0 Then
DesWs.Cells(i, ExMIgColumn) = 0
Else
basmig = OrgWs.Cells(i, BasMigColumn)
ratio = basmig / basdemand
extdemand = 0
For j = FirstColumn To LastColumn
extdemand = extdemand + DesWs.Cells(i, j)
Next
extmig = extdemand * ratio
DesWs.Cells(i, ExtMigColumn) = extmig
End If
Next
End Sub
Follow me!
