#125　平成23年大阪府の産業別従業者数の推計

今回の投稿は、大阪府内生産額の推計の際に指標として用いることが多いと予想される、平成23年大阪府の産業別従業者数を統計資料「経済センサス」から推計します。

以前に、平成25年の産業別従業者数を推計を行いました。

平成23年も、同様の方法で従業者数を推計していきます。

民営事業所の産業別従業者数の推計

民営事業所の産業別従業者数の推計については、平成25年分を推計した際に既に推計したので、今回は割愛します。

民営以外の事業所の産業別従業者数を推計

「経済センサス−基礎調査を用いた」推計方法

民営事業所に関しては「経済センサス－活動調査」を用いることができるが、そこには民営以外 （ 例えば、国と地方の公共団体（公的部門） ）の事業所の従業者数は含まれていない。そのため、これを補うために「経済センサス－基礎調査」を用いることになるが、その際、調査年のズレを調整する必要がある。たとえば、平成 23 年版の市町村産業連関表を作成する場合、民営以外の事業所の従業者数については、「平成 21 年 経済センサス－基礎調査」と「平成 26 年 経済センサス－基礎調査」を用いて、直線補間法により平成 23 年の産業別従業者数を推計する必要がある。

三好ゆう（2020）『ノン・サーベイ法による市町村産業連関表の作成と課題
―京都府内全26市町村の「市内生産額」の推計から―』

今回は平成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