创建一个基本的仪表盘程序可以使用Excel VBA（Visual Basic for Applications）来实现。以下是一个简单的示例，展示了如何创建一个动态更新的仪表盘，包括添加下拉框控件和图表联动功能。
步骤1：创建仪表盘工作表
首先，我们需要创建一个新的工作表，用于放置仪表盘和图表。
```vba
Sub 创建仪表盘()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets.Add
ws.Name = "仪表盘"
End Sub
```
步骤2：添加下拉框控件
接下来，我们在工作表中添加一个下拉框控件，并将其链接到图表的数据源。
```vba
Sub 添加下拉框()
Dim ws As Worksheet
Dim shp As Shape
Dim cell As Range
Set ws = ThisWorkbook.Sheets("仪表盘")
Set shp = ws.Shapes.AddFormControl(xlDropDown, 20, 20, 120, 20)
cell = ws.Range("A1")
shp.ControlFormat.LinkedCell = cell.Address
End Sub
```
步骤3：创建图表
然后，我们在工作表中创建一个图表，并将其与下拉框控件关联起来。
```vba
Sub 创建图表()
Dim ws As Worksheet
Dim cht As Chart
Dim srs As Series
Set ws = ThisWorkbook.Sheets("仪表盘")
Set cht = ws.Shapes.AddChart2(240, xlDoughnut).Chart
Set srs = cht.SeriesCollection(1)
' 假设数据源在源数据!$B$2:$B$100和源数据!$A$2:$A$100
srs.Values = "=OFFSET(源数据!$B$2,0,0,COUNTA(源数据!$B:$B)-1)"
srs.XValues = "=OFFSET(源数据!$A$2,0,0,COUNTA(源数据!$A:$A)-1)"
End Sub
```
步骤4：添加图表联动功能
最后，我们需要为下拉框添加一个事件，以便在用户选择不同选项时更新图表。
```vba
Sub 图表联动()
Dim ws As Worksheet
Dim cht As Chart
Dim srs As Series
Dim selectedValue As Variant
Set ws = ThisWorkbook.Sheets("仪表盘")
Set cht = ws.ChartObjects(1).Chart
Set srs = cht.SeriesCollection(1)
selectedValue = ws.Shapes("ComboBox1").ControlFormat.LinkedCell
If IsNumeric(selectedValue) Then
srs.Values = "=OFFSET(源数据!$B$2,0,0,COUNTA(源数据!$B:$B)-1)"
srs.XValues = "=OFFSET(源数据!$A$2,0,0,COUNTA(源数据!$A:$A)-1)"
End If
End Sub
```
步骤5：设置自动更新
为了使图表能够实时更新，我们需要设置一个定时器来定期刷新图表。
```vba
Sub 设置自动更新()
Application.OnTime Now + TimeValue("00:05:00"), "图表联动"
End Sub
```
总结
以上代码展示了如何使用Excel VBA创建一个简单的动态仪表盘。你可以根据实际需求进一步扩展和优化这个程序，例如添加更多的控件、设置不同的显示模式、添加更多的图表等。希望这些示例对你有所帮助!
