acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-3-25 17:54 | 只看該作者

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

輸出欄位可否設定為讓使用者自行決定
例如:
計算2*3+5
A使用者想讓答案輸出在B5,
B使用者想輸出在C3
程式可以讓使用者在每一次執行時自行決定要輸出的欄位

請版上先進幫忙解惑了

樓主熱帖

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2015-3-25 18:26 | 只看該作者

1.共用? 不共用?
2.可考慮在開啟時，增加一個表單或提示訊息框讓使用者設定

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

stillfish00

大學生 Rank: 4

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

3^#

發表於 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

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

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

4^#

發表於 2015-3-27 10:13 | 只看該作者

回復 3# stillfish00
請問stillfish00, Type:=8的意思是?

TOP

stillfish00

大學生 Rank: 4

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

5^#

發表於 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儲存格都可以

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2015-3-27 11:00 | 只看該作者

本帖最後由 GBKEE 於 2015-3-27 11:02 編輯

回復 4# acdx

VBA要精進要多多詳看VBA 的說明
InputBox 使用有分兩種 (方法,函數)

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。