如何將inputbox內的資料填入特定欄位?

excel vba

Hardy_Tsai 2020-08-14 10:09:22 ‧ 1403 瀏覽

分享至

目前有做一個按鈕

按鈕內的巨集VBA如下

Private Sub 輸入資料()
Dim data As String
Range("B3").Select
data = InputBox("請輸入Vendor Name")

If Range("B3") = "" Then
    Range("B3") = data
Else
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("B3").Select
    ActiveCell.Offset(0, 0).Range("B3").Value = data
End If

End Sub

為何輸入完後資料會跳到D97欄位
再麻煩大大們解惑
感謝!

登入發表討論

直播研討會

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

直播中

1 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2020-08-14 15:02:58

最佳解答

如何將inputbox內的資料填入特定欄位?

三列就可以

Sub 輸入資料()
    Range("B3") = InputBox("請輸入Vendor Name")
End Sub

為何輸入完後資料會跳到D97欄位

程式寫的判斷，符合以下兩個條件就會跳到 D97 欄位
1.B3 有值
2.B92 有值

回應
分享
檢舉

登入發表回應

我要發表回答

立即登入回答

如何將inputbox內的資料填入特定欄位?

1 個回答

我要發表回答

標記使用者