VBA 自動插入至空白格方式 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » VBA 自動插入至空白格方式

返回列表下一主題上一主題發帖

[發問] VBA 自動插入至空白格方式

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-11-4 06:05 | 顯示全部帖子

回復 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

複製代碼

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。

返回列表下一主題上一主題