麻辣家族討論版版 » Excel程式區 » 如何自動換列

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

[發問] 如何自動換列

小學生 Rank: 1

帖子: 1
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 10
性別: 男
註冊時間: 2015-8-21
最後登錄: 2019-9-10

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-10-26 15:24 | 只看該作者

[發問] 如何自動換列

請教各位前輩
(1)我已在Sheet1 設計一個UserForm，在TextBox輸入值並按下CommandButton會將該值
存在Sheet2的A2 。
(2)我該利用何種語法才能在下次重複(1)步驟時，該值會存於A3。

麻請各位前輩解惑，謝謝。

收藏

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-17

2^#

發表於 2015-10-28 18:34 | 只看該作者

Dim xEnd As Range
Set xEnd = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)(2)
xEnd = TextBox1.Value

靜思自在 : 知識要用心體會，才能變成自己的智慧。

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