返回列表 上一主題 發帖

加入自動排序

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
835 
主題
6 
精華
0 
積分
915 
點名
13  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-10-25 
2#
發表於 2012-8-19 05:08 | 只看該作者
大大們, 好
下列程式碼想加入自動排序, 但試過幾次都失敗, 請大大協助修改,
程式碼是按資料表庫a欄位, 當 ...
317 發表於 2012-8-18 16:39
  1. Public Sub refresh_all()
  2.   Dim ar(13)

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

  16.       .[a:d].Sort Key1:=.[a1]
  17.       ' 不知道你要排到哪一欄, 此處假設為 d 欄,你可以自行更改.
  18.     End If
  19.   End With
  20. End Sub
複製代碼

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題