電源插座箱

Question

我已經在Powerpoint演示文稿中創建了以下保管箱，我希望能夠將可供用戶使用的日期數延長至10年左右。 顯然，這是很多日期，必須對3600天進行硬編碼顯然沒有效率。 無論如何，是否有能力像您在excel中那樣引用命名范圍？ 您能在某種支持的電子表格中引用命名范圍嗎？

 Private Sub ComboBox1_GotFocus()
 If ComboBox1.ListCount = 0 Then
 AddDropDownItems
 End If
 End Sub

 Sub AddDropDownItems()
 ComboBox1.AddItem "10/02/2007"
 ComboBox1.AddItem "11/02/2007"
 ComboBox1.AddItem "12/02/2007"
 ....
 ComboBox1.ListRows = 3600
 End Sub

謝謝

Answer 1

您將要使用循環，這樣就不必使用所有這些單獨的行了：

Dim nIndex As Integer
For nIndex = 0 To 3600
  ComboBox1.AddItem DateAdd("m", nIndex, CVDate("10/02/2007"))
Next

如果要增加天數，可以將“ m”（月）更改為“ d”（天）。

日期添加功能