ExcelセルからVBA関数を呼び出す方法

Question

私はVBA初心者です。私はExcelセルから呼び出すことができる関数を記述しようとしています。閉じられたブックを開き、セルの値を検索して返すことができます。

これまでのところ、私はこのようなマクロを作成する方法を知っている：

Sub OpenWorkbook() 
    Dim path As String 
    path = "C:\Users\UserName\Desktop\TestSample.xlsx" 

    Dim currentWb As Workbook 
    Set currentWb = ThisWorkbook 


    currentWb.Sheets("Sheet1").Range("A1") = OpenWorkbookToPullData(path, "B2") 
End Sub 


Function OpenWorkbookToPullData(path, cell) 

    Dim openWb As Workbook 
    Set openWb = Workbooks.Open(path, , True) 

    Dim openWs As Worksheet 
    Set openWs = openWb.Sheets("Sheet1") 

    OpenWorkbookToPullData = openWs.Range(cell) 

    openWb.Close (False) 

End Function 

マクロOpenWorkbook（）は完全に正常動作しますが、私はExcelのセルから直接OpenWorkbookToPullData（...）を呼び出すようにしようとしていますとき、 、それは動作しません。ステートメント：

Set openWb = Workbooks.Open(path, , True) 

戻り値なし。

Excelセルから呼び出せるVBA関数に変換する方法を知っている人はいますか？

Answer 1

あなたが遭遇した問題は、UDFはExcel環境を変更できないということです。呼び出し元のセルに値を返すことしかできません。

あなたが実際にVBAを必要としない与えられたサンプルについてはいくつかの選択肢

1. があります。 See this answer

2. をあなたは機能が動作しません、またそれが必要であるExecuteExcel4MacroまたはOLEDB

Answer 2

を使用することができます：

この式は、周りにかなり厄介な作業を使用し
='C:\Users\UserName\Desktop\[TestSample.xlsx]Sheet1'!$B$2

に動作します

Sub OpenWorkbook() 
    Dim r1 As Range, r2 As Range, o As Workbook 
    Set r1 = ThisWorkbook.Sheets("Sheet1").Range("A1") 
    Set o = Workbooks.Open(Filename:="C:\TestFolder\ABC.xlsx") 
    Set r2 = ActiveWorkbook.Sheets("Sheet1").Range("B2") 
    [r1] = [r2] 
    o.Close 
End Sub 

Answer 3

Here's the answer

実行手順：

1. を開き、Visual Basic Editorで。 Excelでは、MacであればAltキー + F11、Windows上の場合のFn +オプション + F11を打ちます。

2. 新しいモジュールを挿入します。メニューから：挿入 - >モジュール。

3. Public関数を作成します。例：

   は

   Public Function findArea(ByVal width as Double, _ 
            ByVal height as Double) As Double 
       ' Return the area 
       findArea = width * height 
   End Function 
   

4. 次に、あなたが他のあらゆる機能などの任意のセルにそれを使用する：=findArea(B12,C12)。