返回列表 上一主題 發帖

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

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 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

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 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

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

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
3#
發表於 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 那行看看∼∼

TOP

        靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。
返回列表 上一主題