2325公司車使用管理-資料排序-表格與VBA

希望當建立一筆資料時,由於申請日期與使用日期是不同的,希望建立好一筆即自動排序,

2325

公司車使用管理-資料排序-表格與VBA

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鍵即會自動依照申請日期排序。

 

部落格相關範例

2019.12.21

886我賭5元!這8種薪資條製作方法總有一種你不會(三)

2019.12.18

2295VBA使用特殊符號怎麼寫進程式

2019.12.17

2294VBA巢狀IF問題

2019.11.20

2269請問Excel VBA 畫格子抓不到第一個Column ?

2019.11.14

2261EXCEL VBA 關於 LABEL 計算

2019.10.24

2274隱藏範圍名稱處理

2019.10.13

2264如何把有巨集的EXCEL檔案另存儲存沒巨集的EXCEL檔案

2019.10.09

2259使用VBA檢查文字檔是4種編碼中的那一種

2019.09.21

2227Excel搜尋特定欄,若包含該值則複製整列資料-IFERROR、IF、MAX、COUNTIF、OFFSET、ROW、COLUMN、MATCH函數

2019.09.16

2212儲存格的顏色依自己的設定做改變-VBA、RGB、CELLS

2019.09.10

2202VBA Range方面的問題二

2019.09.10

799Excel中判斷儲存格是否有公式的二種方法

2019.09.07

2202VBA Range方面的問題

2019.09.02

Q75Excel 連結VBA

2019.08.30

2194跨工作表資料合計-SUMIF

2019.08.30

10x10陣列!要依序填入1-100的數字

2019.07.13

Q28Excel怎麼取出字串中的數字轉換成國字,字串無固定規則

2019.06.15

2109-4這8個條件求和公式沒用過,別說你會Excel!

2019.06.05

776在Excel中錄製巨集的方法

2019.05.29

769在Excel工作表中使用相對參照錄製巨集的操作方法

2019.04.03

VBA008快速定位欄最後一個非空儲存格的實現方法

2019.03.28

VBA007在Excel工作表中指定的儲存格範圍中取消滑鼠右鍵啟動快顯功能表的方法

2019.03.24

2058Excel VBA 如何檢查工作表(名稱)是否存在

2019.02.26

勵行0018資產負債表-科目之編修作業

2019.02.12

VBA009自動標示Excel工作表中發生更改的資料

2018.05.24

Q134VLOOKUP與合併儲存格-VBA超強版

2018.04.05

Q2櫃號檢查-巨集一一檢查版

2018.01.05

VBA007使Excel視窗自動最大化的方法

2017.02.26

VBA006 英文字的大小寫轉換

2017.02.25

VBA005 英文字的大小寫轉換

2017.02.24

VBA004 取得啟用中的儲存格位址

2017.02.23

VBA003 取得己選取之儲存格範圍