#11 タイヤ・チューブ、陶磁器、建築用金属製品の重量単価[初期値]の推計/Estimating Initial Weight Unit Prices for Tires, Pottery, and Metal Products for Construction

An English translation of this article is provided at the bottom of the page.

分類コード：2221（部門名：タイヤ・チューブ）

部門別品目別国内生産額表には、以下のようになっています。


一般社団法人　日本自動車タイヤ協会のHPより、「日本のタイヤ産業時系列統計表」がダウンロードでき、その表は以下のようになります。

生産数量がタイヤ本数[千本]と、ゴム量[トン]の両方が記載されていました。今回は、ゴム量[トン]を重量単価[初期値]の推計に用いました。

ゴム量[トン]の生産量を部門別品目別生産額に転記し、重量単価[初期値]を推計すると、1,139,732[円/t]となりました。

分類コード：2531（部門名：陶磁器）

経済産業省生産動態統計年報　資源・窯業・建材統計編から、重量で生産量が記載されている以下の品目に対して、データを部門別品目別生産額表に転記しました。

・がい子、がい管
・陶磁器製和飲食器
・陶磁器製洋飲食器
・陶磁器製台所・調理用品
・陶磁器製置物

転記した結果は以下のようになりました。

生産量と生産額が、それぞれ[kg]、[千円]なので、以下のように重量単価[初期値]を算出するプログラムを変更しました。

Sub 本番用()
    Dim wb As Workbook
    Dim wsOrg As Worksheet
    Dim ws As Worksheet
    Dim i As Long
    Dim totalWeight As Double
    Dim totalPrice As Double
    Dim PriceUnitWeight As Double

    Set wb = Workbooks("重量単価初期値データ整理.ods")
    Set ws = wb.Worksheets("2531")

    For i = 2 To 21
        If ws.Cells(i, 3).Value = "kg" Then
            totalWeight = totalWeight + ws.Cells(i, 4)
            totalPrice = totalPrice + ws.Cells(i, 6)
        End If
    Next
    PriceUnitWeight = totalPrice * 1000 / (totalWeight/1000)
    ws.Cells(2, 10).Value = PriceUnitWeight
End Sub

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

分類コード：2812（部門名：建築用金属製品）

経済産業省生産動態統計年報　資源・窯業・建材統計編から、重量で生産量が記載されている以下の品目に対して、データを部門別品目別生産額表に転記しました。

・住宅用アルミニウム製サッシ
・ビル用アルミニウム製サッシ
・アルミニウム製ドア
・シャッタ

転記した結果は、以下のようになりました。

生産額が[千円]となっているので、以下のように重量単価[初期値]を算出するプログラムを変更しました。

Sub 本番用()
    Dim wb As Workbook
    Dim wsOrg As Worksheet
    Dim ws As Worksheet
    Dim i As Long
    Dim totalWeight As Double
    Dim totalPrice As Double
    Dim PriceUnitWeight As Double

    Set wb = Workbooks("重量単価初期値データ整理.ods")
    Set ws = wb.Worksheets("2812")

    For i = 2 To 13
        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 * 1000 / totalWeight
    ws.Cells(2, 10).Value = PriceUnitWeight
End Sub

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

---

English translation Part

Sector Code: 2221 (Tires and inner tubes)

The "Production Value Table by Sector and Item" for this sector is as follows:

I downloaded the "Historical Statistics of the Japanese Tire Industry" from the Japan Automobile Tyre Manufacturers Association (JATMA) website. The table is shown below:

The production volume was recorded both in "Number of Tires [thousands]" and "Rubber Weight [tons]." For this estimation of the [initial] weight unit price, I used the Rubber Weight [tons].

After transcribing the rubber weight production data into the Production Value Table, the estimated initial weight unit price was 1,139,732 [Yen/t].

Sector Code: 2531 (Pottery, china and earthenware)

Using the METI Yearbook of the Current Survey of Production: Statistics on Resources, Ceramics and Construction Materials, I transcribed data for the following items whose production volumes are recorded by weight:

• Insulators and insulating tubes
• Japanese-style tableware (ceramic)
• Western-style tableware (ceramic)
• Kitchenware and cooking equipment (ceramic)
• Ornaments (ceramic)

The transcribed results are as follows:

Since the production volume and value were recorded in [kg] and [thousand yen] respectively, I modified the calculation program as follows:

Sub Production_Use()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim i As Long
    Dim totalWeight As Double
    Dim totalPrice As Double
    Dim PriceUnitWeight As Double

    Set wb = Workbooks("Weight_Unit_Price_Data_Organization.ods")
    Set ws = wb.Worksheets("2531")

    For i = 2 To 21
        If ws.Cells(i, 3).Value = "kg" Then
            totalWeight = totalWeight + ws.Cells(i, 4)
            totalPrice = totalPrice + ws.Cells(i, 6)
        End If
    Next
    ' Calculation: (Total Yen) / (Total Tons)
    PriceUnitWeight = totalPrice * 1000 / (totalWeight / 1000)
    ws.Cells(2, 10).Value = PriceUnitWeight
End Sub

The resulting initial weight unit price was 560,348 [Yen/t].

Sector Code: 2812 (Metal products for construction)

From the same METI Yearbook (Statistics on Resources, Ceramics and Construction Materials), I transcribed data for the following items with weight-based production volumes:

• Aluminum sashes for residential use
• Aluminum sashes for buildings
• Aluminum doors
• Shutters

The results are as follows:

As the production value was listed in [thousand yen], I adjusted the calculation program as shown below:

Sub Production_Use()
    ' ... (Variable declarations)
    Set ws = wb.Worksheets("2812")

    For i = 2 To 13
        If ws.Cells(i, 3).Value = "t" Then
            totalWeight = totalWeight + ws.Cells(i, 4)
            totalPrice = totalPrice + ws.Cells(i, 6)
        End If
    Next
    ' Convert thousand yen to yen for the final price per ton
    PriceUnitWeight = totalPrice * 1000 / totalWeight
    ws.Cells(2, 10).Value = PriceUnitWeight
End Sub

The resulting initial weight unit price was 1,324,397 [Yen/t].

---