数据有效性(即“数据验证”)是Excel中常使用的一项功能。然而,在使用数据有效性创建好下拉列表后,我们不能够随便修改列表中的字体或字体大小。如果工作表显示比例较小,那么数据有效性列表中的内容也会相应地变小,这样就很难看清楚里面的内容,如下图1所示。
图1
我们可以使用一点小技巧,用VBA代码使得当用户选择数据有效性列表所在的单元格时,增大工作表的显示比例,使数据有效性列表中的字体随之变大,从而更清楚地看到其内容,其效果如下图2所示。
图2
代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lZoom As Long
Dim lDVZoom As Long
Dim lDVType As Long
‘设置放大比例
lZoom = 100
lDVZoom = 120
lDVType = 0
Application.EnableEvents = False
On Error Resume Next
‘目标单元格的有效性类型
lDVType =Target.Validation.Type
On Error GoTo errHandler
‘判断有效性类型是否为序列
‘3代表数据有效性类型为序列
If lDVType <> 3Then
‘不是序列
给图表数据标签添加表示增加或减少的箭头标记
使用一些技巧,我们可以给图表数据标签添加表示增加或减少的箭头标记,让图表的表现力更加丰富。 示例数据如下图1所示。 图1 使用图1中的数据区域A3:A9和C3:C9,绘制一个表示2018年销售量的柱状图,如下图2所示。 图2 在图1所示的工作表单元格D3中输入公式: =(C3-B3)/B3 并下拉至单元格
‘正常显示
With ActiveWindow
If .Zoom <>lZoom Then
.Zoom = lZoom
End If
End With
Else
‘是序列
‘放大显示
With ActiveWindow
If .Zoom <>lDVZoom Then
.Zoom = lDVZoom
End If
End With
End If
exitHandler:
Application.EnableEvents= True
Exit Sub
errHandler:
GoTo exitHandler
End Sub
将代码放置在设置了数据有效性的工作表模块中,这样,在选择数据有效性列表单元格时将工作表的尺寸扩大为120%。如果所选择的单元格中没有设置数据有效性,那么工作表尺寸恢复为100%。效果演示如下图3所示。
图3
excel队列
队列的工作原理很简单,因为它与现实生活中的队列完全相同。例如,你在食堂窗口排队打饭,如果你先到,当然该你先打饭,我排在你的后面,则在你打完饭后我再打饭。 队列只有两种操作:入队和出队。将一个元素加入队列,称为入队;从队列中取出一个元素,称为出队,如下图1所示。 图1 根据队列的工作原理,在图1所示的队列中,丁只能