- 帖子
- 13
- 主題
- 6
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2016
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2014-2-25
- 最後登錄
- 2019-12-10
|
您的方式試了之後並沒達到想要的結果，還是要感謝您，我後來將您的改成二段寫法就解決了，謝謝您
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 |
|
發表於 2018-4-22 15:58
| 
