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

帖子: 127
主題: 49
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2023-10-17

2^#

發表於 2015-11-2 22:14 | 只看該作者

自頂一下!!麻煩大大悶的幫忙!!

owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

3^#

發表於 2015-11-3 15:54 | 只看該作者

回復 2# lichang

你如果能夠敘述的更明確一點，甚或舉出完整的例子來，大家會比較好幫忙你，
因為你說明的太少了，讓人摸不著頭緒，不知道該如何幫忙。

帖子: 127
主題: 49
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2023-10-17

4^#

發表於 2015-11-4 00:19 | 只看該作者

不好意思，可能之前檔案有問題，我重新放置檔案與用圖示方式解釋好了

原始資料

開啟對話視窗，並輸入資料

查詢有空格，填入資料

因馬達編號大小不一，重新安排一次!!結束

新增 Microsoft Excel 工作表.rar (17.14 KB)

lpk187

高中生 Rank: 3 Rank: 3

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

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

5^#

發表於 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

複製代碼

owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

6^#

發表於 2015-11-4 09:48 | 只看該作者

回復 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
Range(Cells(1, 2), Cells(3, [XFD3].End(1).Column)).Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending
End Sub

複製代碼

帖子: 127
主題: 49
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2023-10-17

7^#

發表於 2015-11-4 10:28 | 只看該作者

謝謝各位大大幫忙，我測試一下

owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

8^#

發表於 2015-11-4 11:03 | 只看該作者

回復 7# lichang

對了，如果你的office是2003的，那
Range(Cells(1, 2), Cells(3, [XFD3].End(1).Column)).Select
要改成
Range(Cells(1, 2), Cells(3, [iv3].End(1).Column)).Select
才不會超出範圍

帖子: 127
主題: 49
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2023-10-17

9^#

發表於 2015-11-4 11:35 | 只看該作者

回復 lichang

幫補自動排序
owen06 發表於 2015-11-4 09:48

大大，我測試後，排列順序發生問題，因為他是把直排整個重新排列，但是左右順序沒有變化
我是希望左右排列順序要更換，排列優先是馬達規格、編號、驅動器

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

10^#

發表於 2015-11-4 12:10 | 只看該作者

Private Sub CommandButton1_Click()
Dim C&, i&
C = Cells(1, Columns.Count).End(xlToLeft).Column + 1
For i = 1 To 3: Cells(i, C) = UserForm1("TextBox" & i): Next
Range([B1], Cells(3, C)).Sort Key1:=[B1], Order1:=xlAscending, Header:=xlNo, _
　　　OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
End Sub