使用VBA實現在Excel中隨機生成指定范圍的時間
如下面的Excel表格所示，要在E列里面隨機生成13:30-17:30范圍內的時間，相鄰單元格的時間差不超過30秒，且呈遞增形式。要完成上述任務要求，Excel表格上的隨機函數可能無法勝任，只能采用V
如下面的Excel表格所示，要在E列里面隨機生成13:30-17:30范圍內的時間，相鄰單元格的時間差不超過30秒，且呈遞增形式。要完成上述任務要求，Excel表格上的隨機函數可能無法勝任，只能采用VBA程序來實現。
VBA程序思路解讀：
1. 在時間顯示中，時、分、秒都含有冒號":"間隔，如果隨機生成時、分、秒之后再進行比對計算，顯得比較復雜。
2. 在時間中，如果未達到24小時，其時間轉換成的數值將會小于1。例如：在F2單元格里輸入公式VALUE(E2)，E2單元格里的時間將會轉換成數值。因此，在VBA程序中也可以采用這種方式將時間轉換成數值進行計算。
按下鍵盤上的【Alt F11】組合鍵或點擊【開發工具】、【Visual Basic】調出VBA編輯器。
在VBA編輯器中插入代碼模塊：
點擊【插入】、【模塊】，在VBA模塊的代碼框中輸入以下程序代碼，然后按下【F5】鍵運行程序。
```vba
Sub RndTime()
Dim i1, i2, i3, i4, i5, i6, i7, i8
On Error Resume Next '忽略運行過程中可能出現的錯誤
Set mysheet1 ("Sheet1") '定義工作表Sheet1
i1 CDate("13:30:00") '把時間轉換成數值
i2 CDate("17:30:00")
i3 CDate("13:30:30") - CDate("13:30:00") '相差30秒的數值
i4 0 '中間變量，用于記錄循環的次數
i6 i1 '先把起始時間賦給i6
i8 1 '第幾行
Do
i4 i4 1 '循環次數累計
i5 Rnd() '生成的隨機數
i7 i5 - i6 '生成的隨機數與上一次值的差
If i5 > i1 And i5 < i2 And i7 < i3 And i7 > 0 Then '如果在指定的時間范圍里面
i6 i5 '把滿足條件的i5的值賦給i6
i8 i8 1 '從第二行開始
mysheet1.Cells(i8, 5) i5 '把i5的值寫到第5列對應的單元格里面
End If
If i4 > 5000000 Or i8 > 200 Then '如果循環次數超過500萬次或生成的隨機時間達到200個
Exit Do '退出Do循環
End If
Loop
("E:E").NumberFormatLocal "h:mm:ss;@" '把E列設置成時間格式
End Sub
```
VBA程序函數解釋說明：
1. `CDate`是將時間格式的字符轉換為可運算的數值，便于后續計算。
2. `Rnd`隨機函數的取值范圍在大于等于0且小于1之間。
3. 使用`Do...Loop`循環時，應避免出現死循環。可以在循環中累計循環次數，在達到指定次數時強制退出`Do`循環。
4. 隨機生成的數值都是小數，因此需要將單元格設置為時間格式，以正確顯示所需的隨機時間。