麻辣家族討論版版 - Powered by Discuz! Board

Sub Test()
Dim rngTarget As Range
On Error Resume Next
Set rngTarget = Application.InputBox(prompt:="選擇輸出儲存格", Type:=8)
If Err.Number <> 0 Then Exit Sub 'avoid cancel/esc error
On Error GoTo 0
rngTarget.Value = 2 * 3 + 5
End Sub

複製代碼

下列表格列出可以在 Type 引數中傳遞的值，它可以是單一值或值的總和。例如，對於同時可以接受文字及數字的輸入方塊，Type 就設定為 1 + 2。
值意義
0 公式
1 數字
2 文字 (字串)
4 邏輯值 (True 或 False)
8 儲存格參照，視為 Range 物件
16 錯誤值，例如 #N/A
64 陣列值

複製代碼

InputBox 函數顯示一對話方塊來做為提示，等使用者輸入文字或按下按鈕，並傳回包含文字方塊內容的String。
語法 InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
InputBox 函數的語法具有以下幾個指名引數：
單元說明
prompt 必要引數。用來做為對話方塊訊息的字串運算式。prompt 的最大長度大約是 1024 個字元，由使用字元的寬度來決定。如果 prompt 超過一行，您可以在各行之間用復位字元(Chr(13))、換行字元(Chr(10))或是復位字元與換行字元的組合 (Chr(13) & Chr(10)) 來做區隔。
title 選擇性引數。顯示在對話方塊標題列的字串運算式。如果沒有 title，則以應用程式的名稱做為標題。
default 選擇性引數。顯示在文字方塊中的字串運算式，在沒有提供其他輸入時做為預設值。如果沒有 default，則文字方塊就是空白的。
xpos 選擇性引數。成對指定的數值運算式，用來指定對話方塊的左緣與螢幕左緣的水平距離。如果沒有 xpos，則對話方塊會出現在水平方向的中間。
ypos 選擇性引數。成對指定的數值運算式，用來指定對話方塊的上緣與螢幕的上緣的距離。如果沒有 ypos，對話方塊會放置於螢幕垂直方向三分之一的位置。
helpfile 選擇性引數。字串運算式，用來指定對話方塊文字感應說明的說明檔案。如果指定了 helpfile，則您也必須指定 context。
context 選擇性引數。數值運算式，由說明檔案的作者指定給某個說明主題的說明主題代碼。如果指定了 context，則也必須指定 helpfile。

複製代碼