技術標籤：resources.ap_不自動生成

Excel VBA之函式篇-3.6自動錄入時間不精確？搭配時間生成器更完美

前景提要

昨天我們分享了時間/日期的函式，time和date，能夠成功的幫助我們自動生成當前的時間和日期，在一些工作場景中，比方說後期資料整理，錄入等方面都有不小的幫助，不過有一些朋友問我，他們很多時候並不能做到及時錄入資料的，比方說很多店鋪都是在下班或者是快要下班的時候，才會去整理資料的，而這個時候如果按照我們昨天的方式來錄入的話，日期應該沒問題，但是時間就可能有很大的問題了，登記表格的時候都是錄入這個動作發生的時間，並非時間訂單銷售的時候，如果後期用這份資料來分析市場的話，可能會得出一個銷售高峰在下班前半個鍾這樣的一個錯誤資料，那麼這樣的錯誤要如何避免呢？

最好的方法就是我們在錄入資料的時候，手工錄入銷售的時間，不過手工錄入的話，就牽扯到另外一個問題，日期可能會出現格式不同的情況，時間更加麻煩，每次都要輸入一個“:”,這樣的話就無法實現高效錄入的效果了，怎麼辦呢？別怕，我們今天繼續完善下我們的程式碼，通過時間/日期生成器函式來實現自動搭配手工的方式來完善錄入操作。

函式說明

今天我們重點介紹下兩個函式，一個是日期生成器函式，DateSerial，你按照年月日這個順序提供三個資料，它自動可以生成一個日期，這個函式還有一個很厲害的地方，它還可以自動計算正確的日期，比方說你輸入2019，5，36，5月怎麼都不可能有36天，那麼這樣輸入會不錯嘛？不會的，他會自動幫你調整到2019/6/5這樣的日期，所以你也可以用來做日期之間的計算的。另外一個是時間生成器函式，TimeSerial，效果和上面的DateSerial是差不多的，你按照時分秒提供三個資料，他能夠自動生成一個時間。好了，有了方法，我們來繼續完善下我們之前的程式碼

上程式碼

我們今天還是利用我們昨天的表格，表格方面不做任何的變動，這樣大家就能夠相互比較前後兩種方法的差異。

其實按照我們日常工作中的場景，資料錄入一般都是集中在當天完成的，唯一可能不太準確的就是具體的時間，可能向我們前面說的，是集中某個時間段錄入的，也有可能過了半個鍾或者有空了才會去統計資料，錄入資料的，所以自動生成時間可能並不太符合某些場景，今天我們為了一起分享下日期生成器函式的使用，所以預設時間、日期都需要手工錄入這樣子，方面我們學習這兩個函式，實際工作中，大家可以根據自己的使用場景來選擇自動、手動搭配來使用。

Sub test()Dim num&, ShopName$line:num = Application.InputBox("請輸入商品的序號