錦子老師

KUOLI：「錦子老師，我有一張工作表，希望當建立一筆資料時，由於申請日期與使用日期是不同的，希望建立好一筆即自動排序，該如何作業呢?謝謝！」

錦子老師：

1、首先我們將已經輸的資料框選起來(本例為A4:K30)。

2、點取「插入 > 表格」圖示。

3、在【建立表格】對話方塊，點取「請問表格的資料來源」文字方塊，輸入「A4:K30」，預設是框選的範圍。

【注意】

要注意的是第31列開始不能有資料，因為不會包含在表格中，若有些欄位設定資料驗證，當新增資料表格會自動帶下來。

4、點取「我的表格有標題」核取方塊，使其打勾。

5、點取「確定」鈕。

6、按ALT+F11開啟VBA視窗。

7、點取「插入 > 模組」指令，插入一張空白模組表。

8、輸入下列程序

Sub 巨集1()

' 巨集1 巨集

' 快速鍵: Ctrl+G

Application.Goto Reference:="表格1"

    ActiveWorkbook.Worksheets("工作表1").ListObjects("表格1").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("工作表1").ListObjects("表格1").Sort.SortFields.Add2 Key _

        :=Range("表格1[申請日期]"), SortOn:=xlSortOnValues, Order:=xlAscending, _

        DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("工作表1").ListObjects("表格1").Sort

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

End Sub

9、按ALT+F4關閉VBA視窗，回到活頁簿。

10、點取「檢視 > 巨集▼鈕 > 檢視巨集」指令。

11、在【巨集】對話方塊，點取「選項」鈕。

12、按鍵盤G鍵一下，表示按CTRL+G鍵即可執行巨集。

14、點取「確定」鈕，回到【巨集】對話方塊。

15、點取「取消」鈕，回到工作表。

16、點取K30儲存格，按TAB鍵新增一列空白列，輸入相關資料並按TAB鍵跳到下一欄位。

17、輸入好時按CTRL+G鍵即會自動依照申請日期排序。

部落格相關範例