Excel VBAで別ブックのマクロで計算した結果を配列で渡したいのですが、上手い方法が見つかりません。
同じブック内であれば、
Function GetAry(Imax As Integer, ByRef MyAry As Variant) as Boolean
のような関数を作れば、GetAry = True の時に返値の MyAry が有効であるという判断ができますが、この関数を別ブックから使う場合は、参照渡しができません。
これはVBAの仕様なので仕方ないとして、以下のようなマクロを組んでみました。
'-------------------------------------------------------
' Book1.xlsm（呼び出される側）
'-------------------------------------------------------
Function MyAry(Imax As Integer) As Variant
Dim i As Integer
Dim SubAry() As Variant
If Imax > 10 Then
MyAry = False
Else
For i = 1 To Imax
ReDim Preserve SubAry(i)
SubAry(i) = i
Next
MyAry = SubAry
End If
End Function
'-------------------------------------------------------
' Book2.xlsm（呼び出す側）
'-------------------------------------------------------
Sub GetMyAry()
Dim DataAry As Variant
Dim Imax As Integer
Imax = 11
DataAry = Application.Run("Book1!MyAry", Imax)
If DataAry <> False Then
MsgBox UBound(DataAry)
Else
MsgBox DataAry
End If
End Sub
'-------------------------------------------------------
Imax = 11 であれば、メッセージボックスに False が表示されますが、Imax = 10 だと当然ですが「型が一致しません」というエラーになります。
エラートラップで誤魔化そうかとも思ったのですが、もっとスマートな方法がないでしょうか。
よろしくお願いします。
お客さんからいただいたEXCELフォーマットに沿って、集計ツールを作成していますが
下記でつまってしまいました。
Wb.Worksheets("Sheet1").Cells.Find("実施日").Select
Sel_Col = Selection.Column
Last_Row = Wb.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row ※1
For i = Last_Row To 2 Step -1
If Wb.Worksheets("Sheet1").Cells(Sel_Col, i).Value = Day Then ※2
If Wb.Worksheets("Sheet1").Cells(Sel_Col, i).Offset(-5).Value = "A" Then
A_count = A_count + 1
ElseIf Wb.Worksheets("Sheet1").Cells(Sel_Col, i).Offset(-5).Value = "B" Then
B_count = B_count + 1
ElseIf Wb.Worksheets("Sheet1").Cells(Sel_Col, i).Offset(-5).Value = "C" Then
C_count = C_count + 1
End If
Else
End If
Next i
まず※1の箇所ですが、Sheet1の実施日と入力されているセルの列番号を取得して
その列の最終行を取得したいのですが、上記作成したものですと入力されている列全部の
中での最終行が取得されてしまいます。
この場合、Sel_Col をどのように使えばよろしいでしょうか？
次に※2ですが、※1で取得した列の最終行から１つずつ上に上がりながら
日付が今日であれば、そのセルから５つ左のセルのA、B、Cいずれかを
カウントするという造りにしたいと思っています。
実行すると1004エラーでアプリケーション定義、オブジェクト定義のエラーと
出てしまいます。
Wbはset Wbとして開いたブックを定義しています。
DayはDay = Dateで今日の日付を取得しています。
独学で無茶苦茶なコードですが、
どなたか詳しい方、ご教示お願いいたします。
お客さんからいただいたEXCELフォーマットに沿って、集計ツールを作成していますが
下記でつまってしまいました。
Wb.Worksheets("Sheet1").Cells.Find("実施日").Select
Sel_Col = Selection.Column
Last_Row = Wb.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row ※1
For i = Last_Row To 2 Step -1
If Wb.Worksheets("Sheet1").Cells(Sel_Col, i).Value = Day Then ※2
If Wb.Worksheets("Sheet1").Cells(Sel_Col, i).Offset(-5).Value = "A" Then
A_count = A_count + 1
ElseIf Wb.Worksheets("Sheet1").Cells(Sel_Col, i).Offset(-5).Value = "B" Then
B_count = B_count + 1
ElseIf Wb.Worksheets("Sheet1").Cells(Sel_Col, i).Offset(-5).Value = "C" Then
C_count = C_count + 1
End If
Else
End If
Next i
まず※1の箇所ですが、Sheet1の実施日と入力されているセルの列番号を取得して
その列の最終行を取得したいのですが、上記作成したものですと入力されている列全部の
中での最終行が取得されてしまいます。
この場合、Sel_Col をどのように使えばよろしいでしょうか？
次に※2ですが、※1で取得した列の最終行から１つずつ上に上がりながら
日付が今日であれば、そのセルから５つ左のセルのA、B、Cいずれかを
カウントするという造りにしたいと思っています。
実行すると1004エラーでアプリケーション定義、オブジェクト定義のエラーと
出てしまいます。
Wbはset Wbとして開いたブックを定義しています。
DayはDay = Dateで今日の日付を取得しています。
独学で無茶苦茶なコードですが、
どなたか詳しい方、ご教示お願いいたします。
