除非注明，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng),，轉(zhuǎn)載請保留鏈接: http://www./cat2/307.html,，VBA交流群273624828。

在VBA運行過程中我們常常需要手動輸入一些參數(shù),，如果是簡單的輸入的話我們可以用InputBox函數(shù)或者Application.InputBox方法,，它們的區(qū)別在于參數(shù)不同，函數(shù)可以用來簡單輸入,，方法的參數(shù)則多一些,。下面來看下兩者的參數(shù)，先看函數(shù)

Inputbox(輸入框顯示內(nèi)容,窗體標題,默認值,水平位置,垂直位置,幫助文件,幫助文件ID)

一般的我們只用前3個或前2個函數(shù)即可,，看一下簡單輸入的例子

Sub test()
Dim a
a = InputBox("測試輸入", "輸入框標題", "輸入一些內(nèi)容")
MsgBox a
End Sub

運行上面的程序,，可以在對話框中輸入一些內(nèi)容，通過一個變量就可以調(diào)用這些內(nèi)容,。

再來看下InputBox方法的參數(shù)

Application.InputBox(對話框顯示內(nèi)容,輸入框標題,文本框內(nèi)默認值,x坐標,y坐標,幫助文件,幫助文件上下文ID,文本框內(nèi)輸入類型)

InputBox方法最有用的在最后一個參數(shù),，通過這個參數(shù)可以限制輸入的類型,，看下具體參數(shù)值：

  值    含義
0     公式
1     數(shù)字
2     文本 (字符串)
4     邏輯值 (True 或 False)
8     單元格引用，作為一個 Range 對象
16    錯誤值,，如 #N/A
64    數(shù)值數(shù)組

看個例子,，在用InputBox函數(shù)的時候我們無法在工作表上選擇單元格，但在用方法的時候我們可以通過將輸入類型設為8來從工作表上選擇單元格,，看代碼

Sub test2()
Dim rng
Set rng = Application.InputBox("選擇一個單元格", "測試輸入類型", , , , , , 8)
'Set rng = Application.InputBox("選擇一個單元格", "測試輸入類型", Type:=8)
MsgBox rng.Value
MsgBox rng.Address
End Sub

因為我們要輸入的是一個單元格,，所以要用Set將rng定義為一個Range，最后一個參數(shù)8就代表是從工作表選擇單元格,，參數(shù)可以有兩種添加方法,，就不多說了。取值和取地址分別為Value和Address,。