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

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

17^#

發表於 2015-11-6 17:22 | 只看該作者

[版主管理留言]

GBKEE(2015/11/25 08:01): 附檔看看

我測試過了，我發現是放在模組中使用就可以了，但是我做再表單中，就有問題了!!!!

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

16^#

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

回復 15# lichang

Sub TEST()
Dim C&
With Sheets("工作表2")
　　　C = .Cells(10, Columns.Count).End(xlToLeft).Column + 1
　　　Range(.[C10], .Cells(15, C)).Sort Key1:=.[C10], Order1:=xlAscending, Header:=xlNo, _
　　　　　OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
End With
End Sub

以上測試ＯＫ，不過我是OFFICE 2000，
您可使用錄製方式取得〔橫向排序〕程式碼，再套至 Sort 那行看看～～

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

15^#

發表於 2015-11-5 22:48 | 只看該作者

回復 14# 准提部林

大大，小弟真的很不才，想拿您的程式碼來修改，但是一直沒辦法了解真諦
怎麼改都一直發生錯誤，您方便跟我說一下怎麼改嗎??
以下是我修改的程式碼

With Sheets("工作表2")
   C = .Cells(10, Columns.Count).End(xlToLeft).Column + 1
   Range(.[C10], .Cells(15, C)).Sort Key1:=.[C10], Order1:=xlAscending, Header:=xlNo, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

14^#

發表於 2015-11-5 09:49 | 只看該作者

回復 13# lichang

Private Sub CommandButton1_Click()
Dim C&, i&
With Sheets("Sheet1")　
　　　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 With
End Sub

注意紅色的 . 不可漏掉～～

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

13^#

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

回復 10# 准提部林

大大請問一下，如果我是從別的分頁來呼叫該分頁時，前面要怎麼加，因為我現在呼叫時，他是以我目前呼叫的分頁來做排列
而不是指定分頁

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

12^#

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

回復 10# 准提部林

版主語法真是簡潔有力，不愧是板主

owen06

　暱稱: 阿軒

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

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

11^#

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

回復 9# lichang

sorry，改這樣應該就行了

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, [iv3].End(1).Column)).Select
Selection.Sort Key1:=Range("b1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _
:=xlStroke, DataOption1:=xlSortNormal
End Sub

複製代碼

版主 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

帖子: 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

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