公式与函数、图表-的VBA

时　间:2008-01-23 08:52:19
作　者:helo   ID：11  城市：上海  QQ：3002789054
摘　要:公式与函数、图表-的VBA
正　文:

公式与函数
(126) Application.MacroOptions Macro:=”SumPro”,Category:=4 ‘将自定义的SumPro函数指定给Excel中的“统计函数”类别
(127) Application.MacroOptions Macro:=”SumPro”, _
Description:=”First Sum,then Product” ‘为自定义函数SumPro进行了功能说明
(128) Application.WorksheetFunction.CountA(Range(“A:A”))+1 ‘获取A列的下一个空单元格
(129) WorksheetFunction.CountA(Cell.EntireColumn) ‘返回该单元格所在列非空单元格的数量
WorksheetFunction.CountA(Cell.EntireRow) ‘返回该单元格所在行非空单元格的数量
(130) WorksheetFunction.CountA(Cells) ‘返回工作表中非空单元格数量
(131) ActiveSheet.Range(“A20:D20”).Formula=“=Sum(R[-19]C:R[-1]C”’对A列至D列前19个数值求和
*******************************************************
图表
(132) ActiveWindow.Visible=False
或 ActiveChart.Deselect ‘使图表处于非活动状态
(133) TypeName(Selection)=”Chart” ‘若选中的为图表，则该语句为真，否则为假
(134) ActiveSheet.ChartObjects.Delete ‘删除工作表上所有的ChartObject对象
  ActiveWorkbook.Charts.Delete ‘删除当前工作簿中所有的图表工作表
*******************************************************

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店