摘要： Q：如下图1所示，我根据单元格区域A1:B10中的数据绘制了一个折线图，我现在想用VBA得到该折线图的第5个数据点的分类名（从数据表中可以得出其分类名为“桔子”），如何编写程序实现我的需求？
图1
A：可以使用下面的自定义函数来获得分类轴的类别名：
‘获取指定图表中指定系列上某数据点类别名
‘参数cht:代表图表
‘参数lSeriesNum:代表图表中的系列编号
‘参数lPointNum:代表系列中的数据点编号
Function GetCategoryLabel(cht As Chart, _
lSeriesNum As Long, _
lPointNum As Long) As String
Dim srsCht As Series
Dim vCategory As Variant
‘获取图表系列
Set srsCht= cht.SeriesCollection(lSeriesNum)
‘类别数据
vCategory = srsCht.XValues
‘返回指定数据点的类别
GetCategoryLabel = vCategory(lPointNum)
End Function
如何将excel指定文件夹中的文件移至目标文件夹？
Q：如下图1所示，在工作表列A中存储着需要移动的文件所在的文件夹路径，列B中是要将文件移到的目标文件夹路径，现在需要将列A中文件夹下的文件移到列B中文件夹内，如何实现？ 图1 A：下面使用FileSystemObject对象的MoveFile方法来移动文件： Sub MoveFilesToNewFolder(
使用下面的代码调用GetCategoryLabel函数，获取图表中指定系列上某点的类别名。
Sub test()
Dim str As String
Dim cht As Chart
Dim lSeries As Long
Dim lPoint As Long
‘设置图表变量
Set cht = ActiveSheet.ChartObjects(1).Chart
‘系列1
lSeries = 1
‘第5个数据点
lPoint = 5
‘获取类别名
str = GetCategoryLabel(cht, lSeries, lPoint)
‘显示结果
MsgBox”系列”& lSeries & _
“中第”& lPoint & _
“点的类别名为:”& vbCrLf & str
End Sub
运行上述代码，Excel显示当前工作表中第一个图表上系列1的第5个数据点的类别名，如下图2所示。
excel单元格及其所在的行和列分别高亮显示
如下图1所示，活动单元格显示一种颜色，其所在的行和列显示另一种颜色。 图1 这是怎么实现的呢？公式 条件格式 VBA。 首先，单击工作表左上角的交叉区域，选中工作表所有单元格。然后，单击功能区“开始”选项卡的“条件格式—新建规则”，在弹出的“新建格式规则”对话框的“选择规则类型”中选择“使用公式确定要设置格式的单
