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

2021年5月13日 2026年2月23日

宮崎稔也

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

分類コード：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

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]となりました。