Excel VB InputBox問題想請教

excel vb

bubee 2019-03-15 13:11:23 ‧ 1787 瀏覽

分享至

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

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

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

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

來杯拿鐵 iT邦新手 2 級 ‧ 2019-03-15 15:49:48 檢舉

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

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

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

海綿寶寶

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

選我正解

回應 5
分享
檢舉

看更多先前的回應...收起先前的回應...

bubee iT邦新手 5 級 ‧ 2019-03-15 15:40:09 檢舉

感謝協助
我表達的意思沒有很清楚抱歉

我需要的功能是如上圖
InputBox輸入2跟7 會在F2到F7輸出結果
麻煩各位前輩能給予協助指教謝謝

海綿寶寶 iT邦大神 1 級 ‧ 2019-03-15 16:00:09 檢舉

我只想說四個字
GIGO

paicheng0111 iT邦大師 5 級 ‧ 2019-03-15 16:11:56 檢舉

GIGO

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

㊣浩瀚星空㊣ iT邦大神 1 級 ‧ 2019-03-15 16:40:54 檢舉

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

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

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

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
出現圖下

登入發表回應

paicheng0111

iT邦大師 5 級 ‧ 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