如何指定輸出的欄位 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何指定輸出的欄位

返回列表下一主題上一主題發帖

[發問] 如何指定輸出的欄位

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2015-3-25 20:19 | 顯示全部帖子

懶得用自訂表單可以改用Application.InputBox

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

複製代碼

回復 1# acdx

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-3-27 10:57 | 顯示全部帖子

回復 4# acdx
F1 , Application.InputBox的說明有寫

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

複製代碼

Type設為8 , 表示只能輸入儲存格參照
你可以在跳出的視窗後 , 輸入框打入A1 , 或直接點選A1儲存格都可以

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 心中常存善解、包容、感思、知足、惜福。

返回列表下一主題上一主題