#125 平成23年大阪府の産業別従業者数の推計
今回の投稿は、大阪府内生産額の推計の際に指標として用いることが多いと予想される、平成23年大阪府の産業別従業者数を統計資料「経済センサス」から推計します。
以前に、平成25年の産業別従業者数を推計を行いました。
平成23年も、同様の方法で従業者数を推計していきます。
民営事業所の産業別従業者数の推計
民営事業所の産業別従業者数の推計については、平成25年分を推計した際に既に推計したので、今回は割愛します。
民営以外の事業所の産業別従業者数を推計
「経済センサス−基礎調査を用いた」推計方法
今回は平成23年の産業別従業者数を推計するので、三好(2020)と同様にして、「平成21年 経済センサス−基礎調査」と「平成26年 経済センサス−基礎調査」を用いて推計を行います。
直線補完法の推計式は以下のようになります。
$$
\begin{array}{}平成25年 従業者数 = 平成21年 従業者数 +{(平成26年 従業者数) - (平成21年 従業者数)}× \frac{平成23年から平成21年までの2年}{平成26年から平成21年までの5年}\end{array}
$$
VBAのコードは、以下のようになります。
Sub 直線補完法により平成25年の公共部門の産業別従業者数を推計()
Dim wsOrg1 As Worksheet
Dim wsOrg2 As Worksheet
Dim wsDes As Worksheet
Dim i As Integer
Dim j As Integer
Set wsOrg1 = Workbooks("H21経済センサス_国地方公共団体_従業者数_大阪府_小分類.ods").Worksheets("Sheet2")
Set wsOrg2 = Workbooks("H26経済センサス_国地方公共団体_従業者数_大阪府_小分類.ods").Worksheets("Sheet2")
Set wsDes = Workbooks("H23_公的部門_従業者数_大阪府_小分類.ods").Worksheets("Sheet1")
' 平成21年の公的部門の事業所の従業者数を格納
For i = 2 To 990
For j = 2 To 426
If wsDes.Cells(i, 1).Value = wsOrg1.Cells(j, 1).Value Then
wsDes.Cells(i, 3).Value = wsOrg1.Cells(j, 3).Value
End If
Next
Next
' 平成26年の公的部門の事業所の従業者を格納
For i = 2 To 990
For j = 2 To 427
If wsDes.Cells(i, 1).Value = wsOrg2.Cells(j, 1).Value Then
wsDes.Cells(i, 4).Value = wsOrg2.Cells(j, 3).Value
End If
Next
Next
' 直線補完法により平成25年の公的部門の事業所の産業別従業者数を推計
For i = 2 To 990
wsDes.Cells(i, 5).Value = wsDes.Cells(i, 3).Value + (wsDes.Cells(i, 4).Value - wsDes.Cells(i, 3).Value) * 2 / 5
Next
End Sub
民営事業所と民営以外の事業所の従業者数を合計する
「経済センサス - 活動調査」を用いて推計した民営事業所の産業別従業者数と「経済センサス - 基礎調査」を用いて推計した民営以外の事業所における産業別従業者数を合計します。
合計を算出するVBAのコードは、以下のようになります。
Sub 民営事業所と公的部門の従業者数を転記し合計
Dim wsOrg1 As Worksheet
Dim wsOrg2 As Worksheet
Dim wsDes As Worksheet
Dim i As Integer
Dim j As Integer
Set wsOrg1 = Workbooks("H24経済センサス_民営_従業者数_大阪府_小分類.ods").Worksheets("Sheet2")
Set wsOrg2 = Workbooks("H23_公的部門_従業者数_大阪府_小分類.ods").Worksheets("Sheet1")
Set wsDes = Workbooks("経済センサス_H23_従業者数_大阪府_小分類.ods").Worksheets("Sheet1")
For i = 2 To 990
For j = 2 To 433
If wsOrg1.Cells(i, 1).Value = wsDes.Cells(j, 1).Value Then
wsDes.Cells(j, 3).Value = wsOrg1.Cells(i, 3).Value
End If
Next
Next
For i = 2 To 990
For j = 2 To 433
If wsOrg2.Cells(i, 1).Value = wsDes.Cells(j, 1).Value Then
wsDes.Cells(j, 4).Value = wsOrg2.Cells(i, 5).Value
End If
Next
Next
For i = 2 To 433
wsDes.Cells(i, 5).Value = wsDes.Cells(i, 3) + wsDes.Cells(i, 4)
Next
End Sub
サポート、本当にありがとうございます。サポートしていただいた金額は、知的サイドハッスルとして取り組んでいる、個人研究の費用に充てさせていただきますね♪