工具/原料

方法/步驟

1. 1

   首先我們打開一個工作樣表作為例子。

   
2. 2

   我們使用alt+f11組合快捷鍵進(jìn)入vbe編輯器，插入一個新的模塊，并在模塊中輸入以下代碼：

   Option Explicit

   Sub Random()

   Dim myRange As Range

   Dim rng As Range

   Dim a As Long

   '設(shè)置對單元格區(qū)域的引用

   Set myRange = Worksheets("Sheet1").Range("a1")

   Set rng = Worksheets("Sheet1").Range("e1:h5")

   '對Range對象進(jìn)行操作

   myRange = "=rand()"

   rng.Value = myRange.Value

   a = 1

   myRange.Font.Bold = True

   a = a + 1

   End Sub

   
3. 3

   在這個函數(shù)中我們給添加一個wait方法，讓這個代碼能夠延遲執(zhí)行。代碼如下。application.wait now() + vba.timevalue("00:00:05")

   
4. 4

   wait方法是應(yīng)用程序的方法，所以我們要給它加上對象application，而now（）函數(shù)則直接能返回當(dāng)前的時間值，所以不用加上對象。

   
5. 5

   后面的連接符+加號必須使用excel格式的時間值，所以要用vba.timevalue來輸入，這樣才能得出正確的值。

   
6. 6

   也就是說wait方法必須使用excel格式的時間值才能正常使用，如果不是，則會報錯。日期格式是這樣的。

   
   END