- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
回復 4# lichang
試試！- Private Sub CommandButton1_Click()
- Dim Col As Integer
- Col = Sheets("工作表1").[a1].End(xlToRight).Column + 1
- Cells(1, Col) = TextBox1.Value
- Cells(2, Col) = TextBox2.Value
- Cells(3, Col) = TextBox3.Value
- End Sub
|
|
發表於 2015-11-4 06:05
| 