- 帖子
- 248
- 主題
- 55
- 精華
- 0
- 積分
- 334
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2003
- 閱讀權限
- 20
- 註冊時間
- 2010-7-24
- 最後登錄
- 2023-2-2
|
加入自動排序
大大們, 好
下列程式碼想加入自動排序, 但試過幾次都失敗, 請大大協助修改,
程式碼是按資料表庫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 |
|
發表於 2012-8-18 16:39
| 
