VBA コンパイルエラー ByRef引数の型が一致しません。

Question

実現したいこと

このプログラムは積み上げ棒グラフを作成してもらう内容。「データの範囲を指定 (A1からE2)」の部分でアラーが発生しており、最後の「グラフの作成」までは進めていない。関数を使って表を転置させて、利用したい。

発生している問題・分からないこと

転置前表範囲と転置先シートを入れることで、指定したシート（転置先シート）に転置後の表が入る関数を作成した。
これを使おうとすると「コンパイルエラー　ByRef引数の型が一致しません。」が発生する。

エラーメッセージ

コンパイルエラー　ByRef引数の型が一致しません。

該当のソースコード

Sub CreateStackedBarChart()
    Dim wsResult As Worksheet, wsGraph As Worksheet
    Dim rngData As Range, rngIncome As Range, rngExpenses As Range
    Dim i As Integer, j As Integer
    Dim personnelCosts As Double, fixedCosts As Double
    Dim lastRow As Integer
    Dim productNames As Variant, margins() As Double

    ' 商品名とマージンの初期化
    productNames = Array("A", "B", "C") ' ここに商品名を列挙
    
    ReDim margins(LBound(productNames) To UBound(productNames))

    ' マージンの入力
    For i = LBound(productNames) To UBound(productNames)
        margins(i) = InputBox(productNames(i) & " のマージンを入力してください", "マージン入力")
    Next i

    ' シートの設定
    Set wsResult = ThisWorkbook.Sheets("結果")
    Set wsGraph = ThisWorkbook.Sheets("グラフ")
    Set wsTrsps = ThisWorkbook.Sheets("範囲")

    ' 最終行を取得
    lastRow = wsResult.Cells(wsResult.Rows.Count, "A").End(xlUp).Row

    ' データ範囲を設定
    Set rngData = wsResult.Range("B2:D" & lastRow)
    
    ' 人件費、固定費を入力
    personnelCosts = InputBox("人件費を入力してください", "人件費入力")
    fixedCosts = InputBox("固定費を入力してください", "固定費入力")

    ' 収入の計算
    a = 1
    For i = 2 To lastRow
        For j = LBound(productNames) To UBound(productNames)
            If wsResult.Cells(i, 2).Value = productNames(j) Then
                a = a + 1
                wsResult.Cells(a, 6).Value = CalculateIncome(wsResult.Cells(i, 4).Value, margins(j))
                
                Exit For
            End If
        Next j
    Next i
    
    '支出の計算
    wsResult.Cells(a + 1, 7).Value = personnelCosts
    wsResult.Cells(a + 2, 7).Value = fixedCosts

    ' グラフ範囲を設定
    Dim rngData2 As Range
    Set rngData2 = wsResult.Range("F2:G" & a + 2)
    Dim rngData3 As Range
    Set rngData3 = TransposeData(rngData2, wsTrsps)
    
        ' データの範囲を指定 (A1からE2)
    Dim rngData4 As Range
    Set rngData4 = ThisWorkbook.Sheets(wsTrsps).Range("A1:E2")

    ' グラフの作成
    wsGraph.Shapes.AddChart2(251, xlColumnStacked).Select
    ActiveChart.SetSourceData Source:=rngData4
    ActiveChart.ChartTitle.Text = "積み上げ棒グラフ"
End Sub

Function TransposeData(rng As Range, targetWorksheet As Worksheet) As Range
    Dim newRng As Range

    ' データを転置してコピー
    rng.Copy
    targetWorksheet.Cells(1, 1).PasteSpecial Transpose:=True

    ' 転置されたデータの範囲を設定
    Set newRng = targetWorksheet.Range("A1").CurrentRegion

    ' 新しいワークシートの範囲を返す
    Set TransposeData = newRng
End Function


Function CalculateIncome(salesVolume As Double, productMargin As Double) As Double
    ' 収入の計算（商品×マージン）
    CalculateIncome = salesVolume * productMargin
End Function

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

GPT４に聞いた。
ワークシートを定義した。

補足

助けてください

Comments

[maisumakun]

どの行にエラーが出ているかは確認してみましたか？

Answer 1

すでに他の方から指摘がありますが、wsTrsps の変数宣言が抜けているのでエラーになります。
変数宣言しないと、自動的にVariant型変数になりますので、
Set rngData3 = TransposeData(rngData2, wsTrsps)
で下記の引数の型指定と合わないのでそのエラーになります。
Function TransposeData(rng As Range, targetWorksheet As Worksheet) As Range

他にも、a の変数宣言が抜けています。

変数宣言なしに変数を利用すると、今回のようなトラブルやバグのもとになりますので、変数宣言を強制する設定にすべきでしょう。

Office TANAKA - 今さら聞けないVBA[変数って宣言しなくちゃいけないの？]

Option Explicitは安心のおまじない – 株式会社ホームスタッフサービス

Comments

[kaitsuo]

ありがとう

Answer 2

●●●●

Dim wsTrsps As Worksheet

が抜けているからでしょう。

Comments

[OOOOOO]

ふざけた回答はやめて下さい。

[xail2222]

やめる必要がありますか？
根拠の提示をお願いします。

[xail2222]

訂正されてしまった。。。
何が問題だというのか。。。クレーマー対策なのか。。。

無念

[kaitsuo]

皆さん、ありがとう

Answer 3

ンパイルエラーは、TransposeData関数の呼び出し時に、引数 targetWorksheet の型が Worksheet ではなく String で渡されているために発生しています。TransposeData関数に渡す引数は Worksheet オブジェクトでなければなりませんが、wsTrsps を String 型の変数として定義しているためにエラーが発生しています。

修正するには、wsTrsps を Worksheet オブジェクトとして定義する必要があります。また、TransposeData関数を呼び出す際には、Worksheet オブジェクトを渡す必要があります。

Sub CreateStackedBarChart()
    Dim wsResult As Worksheet, wsGraph As Worksheet
    Dim rngData As Range, rngIncome As Range, rngExpenses As Range
    Dim i As Integer, j As Integer
    Dim personnelCosts As Double, fixedCosts As Double
    Dim lastRow As Integer
    Dim productNames As Variant, margins() As Double

    ' 商品名とマージンの初期化
    productNames = Array("A", "B", "C") ' ここに商品名を列挙
    
    ReDim margins(LBound(productNames) To UBound(productNames))

    ' マージンの入力
    For i = LBound(productNames) To UBound(productNames)
        margins(i) = InputBox(productNames(i) & " のマージンを入力してください", "マージン入力")
    Next i

    ' シートの設定
    Set wsResult = ThisWorkbook.Sheets("結果")
    Set wsGraph = ThisWorkbook.Sheets("グラフ")
    Set wsTrsps = ThisWorkbook.Sheets("範囲")

    ' 最終行を取得
    lastRow = wsResult.Cells(wsResult.Rows.Count, "A").End(xlUp).Row

    ' データ範囲を設定
    Set rngData = wsResult.Range("B2:D" & lastRow)
    
    ' 人件費、固定費を入力
    personnelCosts = InputBox("人件費を入力してください", "人件費入力")
    fixedCosts = InputBox("固定費を入力してください", "固定費入力")

    ' 収入の計算
    a = 1
    For i = 2 To lastRow
        For j = LBound(productNames) To UBound(productNames)
            If wsResult.Cells(i, 2).Value = productNames(j) Then
                a = a + 1
                wsResult.Cells(a, 6).Value = CalculateIncome(wsResult.Cells(i, 4).Value, margins(j))
                
                Exit For
            End If
        Next j
    Next i
    
    '支出の計算
    wsResult.Cells(a + 1, 7).Value = personnelCosts
    wsResult.Cells(a + 2, 7).Value = fixedCosts

    ' グラフ範囲を設定
    Dim rngData2 As Range
    Set rngData2 = wsResult.Range("F2:G" & a + 2)
    Dim rngData3 As Range
    Set rngData3 = TransposeData(rngData2, wsTrsps)
    
    ' データの範囲を指定 (A1からE2)
    Dim rngData4 As Range
    Set rngData4 = wsTrsps.Range("A1:E2")

    ' グラフの作成
    wsGraph.Shapes.AddChart2(251, xlColumnStacked).Select
    ActiveChart.SetSourceData Source:=rngData4
    ActiveChart.ChartTitle.Text = "積み上げ棒グラフ"
End Sub

Function TransposeData(rng As Range, targetWorksheet As Worksheet) As Range
    Dim newRng As Range

    ' データを転置してコピー
    rng.Copy
    targetWorksheet.Cells(1, 1).PasteSpecial Transpose:=True

    ' 転置されたデータの範囲を設定
    Set newRng = targetWorksheet.Range("A1").CurrentRegion

    ' 新しいワークシートの範囲を返す
    Set TransposeData = newRng
End Function

Function CalculateIncome(salesVolume As Double, productMargin As Double) As Double
    ' 収入の計算（商品×マージン）
    CalculateIncome = salesVolume * productMargin
End Function

Comments

[kaitsuo]

ありがとう