#10　農林水産業の重量単価[初期値]の推計

今回は、農林水産業の重量単価[初期値]の推計です。

分類コード：0113（部門名：野菜）

部門別品目別国内生産額表には、以下のように生産額のみが記載されています。

そこで、作物統計調査より、品目ごとの収穫量のデータを転記して重量単価[初期値]を推計することにします。

まず、部門別品目別国内生産額表に目を移すと、

かぼちゃ（露地）
かぼちゃ（施設）

というように、同じ作物で異なる栽培方法で生産額が分けられているので、

かぼちゃ

というように、作物名単体の列を作り、そこに、露地栽培と施設栽培の生産額の合計値を入力するようにしました。

次に、作物統計調査に目を移すと、こちらは作物名単体の列と、それぞれの作物の収穫時期別の収穫量のデータがあります。

だいこんを例に取ると、

だいこん（３）
　春　　（４）
　夏　　（５）
　秋冬　（６）

というようにデータが並んでいますが、今回は、（３）のデータを使用することになります。

部門別品目別国内生産額表の単位にtを、生産数量に作物統計調査の収穫量を転記するプログラムを、以下にように作成しました。

Sub 本番用()
	Dim wb As Workbook
	Dim wsOrg As Worksheet
	Dim wsDes As Worksheet
	
	Set wb = Workbooks("作物統計調査.ods")
	Set wsOrg = wb.Worksheets("収穫量")
	Set wsDes = wb.Worksheets("0113")
	
	Dim i As Long
	Dim j As Long
	For i = 15 To 89
		For j = 2 To 67
			If wsDes.Cells(j,2).Value = wsOrg.Cells(i, 2).Value Then
				wsDes.Cells(j,3).Value = "t"
				wsDes.Cells(j,4).Value = wsOrg.Cells(i, 24).Value
			End If
		Next
	Next
End Sub

データの転記が終わったので、重量単価[初期値]を算出します。
単位が[t]の行にある、生産数量と生産額を積み上げて、最後に重量単価[初期値]を算出するプログラムは、以下のようになりました。

Sub 本番用()
	Dim wb As Workbook
	Dim wsOrg As Worksheet
	Dim ws As Worksheet
	Dim i As Long
	Dim totalWeight As Long
	Dim totalPrice As long
	Dim PriceUnitWeight As Double
		
	Set wb = Workbooks("作物統計調査.ods")
	Set ws = wb.Worksheets("0113")
	
	For i = 2 To 45
		If ws.Cells(i, 3).Value = "t" Then
			totalWeight = totalWeight + ws.Cells(i, 4)
			totalPrice = totalPrice + ws.Cells(i, 6)
		End If
	Next
	PriceUnitWeight = totalPrice * 1000000 / totalWeight
	ws.Cells(2, 10).Value = PriceUnitWeight
End Sub

野菜の重量単価[初期値]は、193,567[円/t]となりました。

分類コード：0114（部門名：果実）

部門別品目別国内生産額表には、以下のように生産額のみが記載されています。

そこで、作物統計調査の平成27年産果樹生産出荷統計から、品目ごとの収穫量のデータを転記して重量単価[初期値]を推計することにします。

平成27年産果樹生産出荷統計を目を通すと、収穫量のデータが以下のように記載されていました。

「みかん」を例に取ると、みかん全種類のデータが（２）で、そのうちの各種類ごと（「早生温州」など）のデータが（３）〜（６）にあたります。

今回は、（２）のデータを採用することにして、果樹毎の収穫量を部門別品目別国内生産額表に転記していきました。

コードは以下のようになりました。

Sub 本番用()
	Dim wb As Workbook
	Dim wsOrg As Worksheet
	Dim wsDes As Worksheet
	Dim ws As Worksheet
	Dim i As Long
	Dim j As Long
	
	Set wb = Workbooks("作物統計調査.ods")
	Set wsOrg = wb.Worksheets("収穫量")
	Set wsDes = wb.Worksheets("0114")
	
	For i = 2 To 18
		For j = 12 To 87
			If wsDes.Cells(i, 2).Value = wsOrg.Cells(j, 3).Value Then
				wsDes.Cells(i, 3).Value = "t"
				wsDes.Cells(i, 4).Value = wsOrg.Cells(j, 16).Value
			End If
		Next
	Next
End Sub

データの転記が終わったので、重量単価[初期値]を算出します。
単位が[t]の行にある、生産数量と生産額を積み上げて、最後に重量単価[初期値]を算出するプログラムは、以下のようになりました。

Sub 本番用()
	Dim wb As Workbook
	Dim wsOrg As Worksheet
	Dim ws As Worksheet
	Dim i As Long
	Dim totalWeight As Long
	Dim totalPrice As long
	Dim PriceUnitWeight As Double
		
	Set wb = Workbooks("作物統計調査.ods")
	Set ws = wb.Worksheets("0114")
	
	For i = 2 To 18
		If ws.Cells(i, 3).Value = "t" Then
			totalWeight = totalWeight + ws.Cells(i, 4)
			totalPrice = totalPrice + ws.Cells(i, 6)
		End If
	Next
	PriceUnitWeight = totalPrice * 1000000 / totalWeight
	ws.Cells(2, 10).Value = PriceUnitWeight
End Sub

重量単価[初期値]は、262,673[円/t]となりました。

分類コード：0153（部門名：特用林産物）

部門別品目別国内生産額表には、以下のように生産額のみが記載されています。

そこで、特用林産物生産統計調査の平成27年特用林産基礎資料から、生産量のデータを転記して、重量単価[初期値]を推計することにします。

データの転記と重量単価[初期値]の推計は、これまでやってきたのと同じ方法なので、詳細は割愛します。

重量単価[初期値]は、471,322[円/t]となりました。

分類コード：0171（部門名：海面漁業）

部門別品目別国内生産額表には、以下のように生産額のみが記載されています。

上記の部門別品目別国内生産額表は（作業をしていく中で気づいたのですが）、

・171011101〜171011801：海面漁業
・171021101〜171021599：海面養殖業
・171021601〜171021701：種苗養殖

の3つの産業の生産品目から構成されているようです。

生産量のデータは、海面漁業生産統計調査の平成27年漁業・養殖業生産統計から転記して、重量単価[初期値]を推計することにします。

具体的には、

・「海面漁業の部」の表「魚種別漁獲量」
・「海面養殖業の部」の表「養殖魚種別収獲量（種苗養殖を除く。）」

のデータを転記していくことにしました。

なお、部門別品目別国内生産額表には、種苗養殖の品目もあるのですが、海面漁業生産統計調査の種苗養殖販売量の単位が[t]の品目はなかったので、データの転記が行なえませんでした。

データを転記し、重量単価[初期値]を推計すると、307,564[円/t]となりました。

分類コード：0172（部門名：内水面漁業）

部門別品目別国内生産額表には、以下のように生産額のみが記載されています。

上記の表には、

・172010101〜172010399：内水面漁業
・172020101〜172020301：内水面養殖業

の生産品目が計上されているようです。

生産量のデータは、海面漁業生産統計調査の平成27年漁業・養殖業生産統計から転記して、重量単価[初期値]を推計することにします。

具体的には、「内水面漁業・養殖業の部」の表「全国年次別・魚種別生産量（平成17年～27年）」からデータを転記します。

データを転記し、重量単価[初期値]を推計すると、2,259,370[円/t]となりました。