iT邦幫忙

0

Excel VB InputBox問題想請教

各位IT前輩,我有Excel VB問題想請教

我該如何在InputBox輸入數字後指定儲存格的位置

譬如:InputBox 輸入3 然後在 A3儲存格上做1+1.IF..等等函數或邏輯運算
輸入4 在A4 或輸入C 然後在C1,輸入D然後在D1
依此類推輸入數字或字母去改 行或列

麻煩各位IT前輩能給予協助指教 謝謝

用變數儲存inputbox資料
儲存格位置用變數去改變

輸入資料判斷可以用「數字」和「非數字」
分成這二種會比較方便

2 個回答

0
海綿寶寶
iT邦超人 1 級 ‧ 2019-03-15 14:57:25
Sub Macro1()
    choice = InputBox("請輸入 3,4,C 或 D")
    If choice = "3" Then
        Range("A3").Formula = "=1+1"
    ElseIf choice = "4" Then
        Range("A4").Select
    ElseIf choice = "C" Then
        Range("C1").Select
    ElseIf choice = "D" Then
        Range("D1").Select
    End If
End Sub

選我正解

看更多先前的回應...收起先前的回應...
bubee iT邦新手 5 級 ‧ 2019-03-15 15:40:09 檢舉

感謝協助
我表達的意思沒有很清楚 抱歉
https://ithelp.ithome.com.tw/upload/images/20190315/201158557LP6B6WMfh.jpg
https://ithelp.ithome.com.tw/upload/images/20190315/20115855GDFTaYrhhh.jpg
我需要的功能是如上圖
InputBox輸入2跟7 會在F2到F7輸出結果
麻煩各位前輩能給予協助指教 謝謝

我只想說四個字
GIGO

paicheng0111 iT邦研究生 1 級 ‧ 2019-03-15 16:11:56 檢舉

GIGO

Garbage in garbage out.
所以遇到看不懂的提問,我都跳過,不想再製造garbage

我想....人家都給你單純的操作範例了。
你不會是想要照copy能用就好了嗎?

從那個範例來改成你要的做不到嗎??
至少先努力改一下看看吧。不要只會等魚吃。
餓死你

bubee iT邦新手 5 級 ‧ 2019-03-15 17:13:14 檢舉

https://ithelp.ithome.com.tw/upload/images/20190315/20115855UqOmV4xaS5.jpg
Sub 工作表2_按鈕1_Click()
in1 = InputBox("起始") <<輸入2
in2 = InputBox("結束") <<輸入7
For x = in1 To in2
Range("f" & (x)) = 123
Next
End Sub

Range這行右邊的式子我弄不出來,我先用123

我原本打
Sub 工作表2_按鈕1_Click()
in1 = InputBox("起始")
in2 = InputBox("結束")
For x = in1 To in2
Range("f" & (x)) = "c" & (x) + "d" & (x)
Next
End Sub
出現圖下
https://ithelp.ithome.com.tw/upload/images/20190315/20115855mgePJAYxco.jpg

0
paicheng0111
iT邦研究生 1 級 ‧ 2019-03-16 00:29:36
Sub 工作表2_按鈕1_Click()
    dim in1, in2
    
    in1 = InputBox("起始")
    in2 = InputBox("結束")
    Range(Range("f" & in1), Range("f" & in2)).formular1c1 = "=rc3+rc4"
End Sub

我要發表回答

立即登入回答