在表2中使用VLOOKUP函數在A列中尋找B20

VLOOKUPA2表2 A B 2 0

如果不懂如何產生按鈕及關聯程式再追問，這裡不解答這部分了。

因為你表達的有歧義，故下面給三種方法。

'一、為指定單元格寫入公式（稍微修改指定單元格也可以是變數）：

Sub 為儲存格寫入公式（）

Range(＂B2＂).Select

ActiveCell.Formula = ＂=VLOOKUP(A2，表2!A:B,2,0)＂

#'ActiveCell.Formula = ＂=VLOOKUP(A:A，表2!A:B,2,0)＂

#'ActiveCell.FormulaR1C1 = ＂=VLOOKUP(RC[-1]，表2!C[-1]:C[0],2,0)＂

'ActiveCell.FormulaR1C1 = ＂=VLOOKUP(C[-1]，表2!C[-1]:C[0],2,0)＂

End Sub

'二、解釋VLOOKUP函數，在指定單元格引用查找值：

Sub 指定單元格尋找引用（）

Dim m

With Sheets（＂表2＂）

For m = 1 To .[A65536].End(3).Row

If .Cells(m, 1) = Sheets(1).Cells(2, 1) Then

Sheets(1).Cells(2, 2) = .Cells(m, 2)

End If

Next

End With

End Sub

'二、解釋VLOOKUP函數，在指定欄位引用查找值。此處為上程式碼稍微優化，有通用性：

Sub 全部找引用（）

Dim i, j

With Sheets（＂表2＂）

For i = 1 To .[A65536].End(3).Row

For j = 1 To Sheets(1).[A65536].End(3).Row

If .Cells(i, 1) = Sheets(1).Cells(j, 1) Then

Sheets(1).Cells(j, 2) = .Cells(i, 2)

End If

Next

Next

End With

End Sub

怎麼在VBA指令中呼叫Excel函數

方法/步驟

開啟 Microsoft Office Excel 2007，點選 「開始」 ->「Excel 選項」。

在彈出的對話方塊中，選擇“常規”選項卡，並在右側點選“在功能區顯示‘開發工具’選項卡”，並按“確定＂。

在儲存格A1中輸入“弧度”，儲存格B1中輸入“角度”，儲存格A2中輸入“3.14”，然後在儲存格B2中輸入公式＂=DEGREES(A2)＂在按下回車後，該單元格輸出結果為179.9087477。

註：DEGREES函數的作用是將弧度轉換為角度。

接下來，我們用VBA實現同樣的功能。點選“開發工具”標籤，點選“Visual Basic”，啟動Visual Basic編輯器。

在“Microsoft Excel 物件”上點滑鼠右鍵，依序點擊“插入” ->“模組”，建立“模組1”，並在該模組中輸入內容：

Sub 轉換（）

MsgBox Application.WorksheetFunction.Degrees(3.14)

End Sub

點擊“運行子程序/使用者窗體”按鈕，在彈出的對話框中選擇“轉換”，然後點擊“運行”按鈕。

程式彈出對話框，結果與在Excel中利用公式輸出的結果一樣，只是有效數字的位數不一樣，這可以根據需要加以取捨。

總結：在進行VBA程式設計時，可以透過WorkSheetFunction方法來實現對Excel函數的引用，藉此，可以方便我們對函數的引用，避免花費更多的時間在自訂函數上，有效的提高了工作效率。

以上是在表2中使用VLOOKUP函數在A列中尋找B20的詳細內容。更多資訊請關注PHP中文網其他相關文章！