Question

我在power point演示文稿中创建了以下Dropbox，我希望能够将用户可用日期的数量延长到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”（天）。

DateAdd Function

电源点下降盒

1 个答案: