標題: [發問] 請問如何用VBA寫入不同儲存格 [打印本頁]

---

作者: spensers    時間: 2018-4-22 15:58     標題: 請問如何用VBA寫入不同儲存格

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

---

作者: spensers    時間: 2018-4-22 17:11

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

---

作者: naruto018    時間: 2018-4-24 11:11

回復 2# spensers

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

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

複製代碼

---

作者: spensers    時間: 2018-4-24 13:13

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

---

作者: spensers    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)