麻辣家族討論版版 - Powered by Discuz! Board

標題: 加入自動排序 [打印本頁]

作者: 317 時間: 2012-8-18 16:39 標題: 加入自動排序

大大們, 好
下列程式碼想加入自動排序, 但試過幾次都失敗, 請大大協助修改,
程式碼是按資料表庫a欄位, 當輸入便自行排序, 懇請大大教導, 感恩..

Public Sub refresh_all()

Dim ar(13)
If [f5] = "" Or Not Sheets("資料庫").[a:a].Find([f5], , , 1) Is Nothing Then
MsgBox "編號己存在,或閣下忘記填寫編號,請核實重新輸入!!": Exit Sub
Else
For i = 6 To 17
ar(S) = Cells(i, 6).Value
S = S + 1
Next
n = Sheets("資料庫").[A65536].End(3).Row + 1
Sheets("資料庫").Cells(n, 1).Resize(, 13) = ar
[H6].Copy Sheets("資料庫").Cells(n, 14)
End If
End Sub

作者: luhpro 時間: 2012-8-19 05:08

大大們, 好
下列程式碼想加入自動排序, 但試過幾次都失敗, 請大大協助修改,
程式碼是按資料表庫a欄位, 當 ...
317 發表於 2012-8-18 16:39

Public Sub refresh_all()
Dim ar(13)
With Sheets("資料庫")
If [f5] = "" Or Not .[a:a].Find([f5], , , 1) Is Nothing Then
MsgBox "編號己存在,或閣下忘記填寫編號,請核實重新輸入!!": Exit Sub
Else
For i = 6 To 17
ar(S) = Cells(i, 6).Value
S = S + 1
Next
n = .[A65536].End(3).Row + 1
.Cells(n, 1).Resize(, 13) = ar
[H6].Copy .Cells(n, 14)
.[a:d].Sort Key1:=.[a1]
' 不知道你要排到哪一欄, 此處假設為 d 欄,你可以自行更改.
End If
End With
End Sub

複製代碼

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)