iT邦幫忙

0

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

目前有做一個按鈕

按鈕內的巨集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 }} |
{{ formatDate(item.duration) }}
直播中

1 個回答

0
海綿寶寶
iT邦大神 1 級 ‧ 2020-08-14 15:02:58
最佳解答

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

三列就可以

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

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

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

我要發表回答

立即登入回答