[發問] 請問如何用VBA寫入不同儲存格

帖子: 13
主題: 6
精華: 0
積分: 50
點名: 0
作業系統: win10
軟體版本: office 2016
閱讀權限: 20
性別: 女
註冊時間: 2014-2-25
最後登錄: 2019-12-10

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-4-22 15:58 | 只看該作者

[發問] 請問如何用VBA寫入不同儲存格

請問大神如何將下表用VBA表單輸入資料寫入不同儲存格，麻煩指導，感謝。

螢幕擷取畫面 (63).png (19.31 KB)

空白表單

樓主熱帖

帖子: 13
主題: 6
精華: 0
積分: 50
點名: 0
作業系統: win10
軟體版本: office 2016
閱讀權限: 20
性別: 女
註冊時間: 2014-2-25
最後登錄: 2019-12-10

2^#

發表於 2018-4-22 17:11 | 只看該作者

附上檔案，已寫好但無法達到想要的結果

報價單1.rar (226.91 KB)

naruto018

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2020-5-17

3^#

發表於 2018-4-24 11:11 | 只看該作者

回復 2# spensers

參考看看
不確定是否是你要的

Private Sub B1_Click()
Cells(4, "A") = myA.Text
Cells(5, "B") = myB.Text
Cells(6, "B") = myC.Text
Cells(8, "B") = myD.Text
Cells(9, "B") = myE.Text
Cells(10, "B") = myF.Text
Cells(9, "F") = myG.Text
Cells(10, "F") = myH.Text
If Range("B24") <> "" Then
MsgBox "已填滿12項"
Else
r = Range("B24").End(xlUp).Row + 1
Cells(r, "B") = myI.Text
Cells(r, "C") = myJ.Text
Cells(r, "D") = myK.Text
Cells(r, "E") = myL.Text
Cells(r, "G") = myM.Text
End If
End Sub

複製代碼

帖子: 13
主題: 6
精華: 0
積分: 50
點名: 0
作業系統: win10
軟體版本: office 2016
閱讀權限: 20
性別: 女
註冊時間: 2014-2-25
最後登錄: 2019-12-10

4^#

發表於 2018-4-24 13:13 | 只看該作者

感謝大大的指導，我先使用您的方式，看是否是想要的方式，感恩。

帖子: 13
主題: 6
精華: 0
積分: 50
點名: 0
作業系統: win10
軟體版本: office 2016
閱讀權限: 20
性別: 女
註冊時間: 2014-2-25
最後登錄: 2019-12-10

5^#

發表於 2018-4-24 13:34 | 只看該作者

您的方式試了之後並沒達到想要的結果，還是要感謝您，我後來將您的改成二段寫法就解決了，謝謝您
Private Sub B1_Click()
Cells(4, "A") = myA.Text
Cells(5, "B") = myB.Text
Cells(6, "B") = myC.Text
Cells(8, "B") = myD.Text
Cells(9, "B") = myE.Text
Cells(10, "B") = myF.Text
Cells(9, "F") = myG.Text
Cells(10, "F") = myH.Text
End Sub
Private Sub B4_Click()
r = Range("B12").End(xlDown).Row + 1
Cells(r, "B") = myI.Text
Cells(r, "C") = myJ.Text
Cells(r, "D") = myK.Text
Cells(r, "E") = myL.Text
Cells(r, "G") = myM.Text
End Sub