[發問] Excel VBA 如何用 inputbox 取得儲存格的行與列

我想要使用 inputbox 取得某儲存格的行與列,

寫了下列的 VBA 的是一直出現錯誤, 請教大家問題點在那,

感謝幫忙.

Dim code As Range
Dim Code_Row As Integer
Dim Code_Column As Integer

code = Application.InputBox(prompt:="輸入 Code 欄位") '出現沒有設定物件變數或 with 區塊變數
If code = "" Then Exit Sub

Code_Row = code.Row
Code_Column = code.Column

stillfish00

大學生 Rank: 4

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

6^#

發表於 2014-7-11 08:08 | 只看該作者

回復 5# c_c_lai
這樣是不會有Error，但是和發問的題意就不合了
我傾向於

set code = ActiveSheet.Range(Application.InputBox(Prompt:="輸入 Code 欄位"))

複製代碼

或

set code = Application.InputBox(Prompt:="請點選儲存格",Type:=8)

複製代碼

第二種對話方塊要用點選儲存格的方式輸入

當然，兩種可能都還要另外加一些防呆處理的程式碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2014-7-11 06:33 | 只看該作者

回復 1# seim
因為

Dim code As Range

複製代碼

宣告為 Range 物件，故一開始必先予以初始設定對應物件：

Set code = [A1] ' 假設其為 A1 欄位
code = Application.InputBox(Prompt:="輸入 Code 欄位")

複製代碼

如此便不會有問題了。

TOP

stillfish00

大學生 Rank: 4

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

4^#

發表於 2014-7-10 23:54 | 只看該作者

回復 1# seim
可查看Excel說明中Application.InputBox
沒指定參數Type時，預設對話方塊會傳回文字
但你 code = Application.InputBox(prompt:="輸入 Code 欄位")

等號左式為Range物件，右式為文字，這樣會把該文字給到Range的value屬性(預設屬性)
但你的code這個Range又還沒被set(只有宣告而已)，所以才會出現"沒有設定物件變數"

TOP

seim