<em>VBA</em>如何获取<em>excel</em>活动工作表中

我的理解是这个可能是EXCEL自已的语法要知求吧，没有什么可以解释的，就像语言的使用是约定的一样，道只是别人已经约定的规则，不需要回理由的。它没有提供你想要的方法来答做，你自己不能创建你认为的方法，道理就是这样。

For i = 1 To ActiveSheet.ChartObjects.Count
MsgBox ActiveSheet.ChartObjects(i).Name
Next

ActiveSheet.ChartObjects(1).Activate
ActiveSheet.ChartObjects("Chart 1").Activate

==============

定制模块行为
(1) Option Explicit '强制对模块内所有变量进行声明
Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示
Option Compare Text '字符串不区分大小写
Option Base 1 '指定数组的第一个下标为1
(2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
(3) On Error GoTo ErrorHandler '当错误发生时跳转e799bee5baa6e59b9ee7ad94335到过程中的某个位置
(4) On Error GoTo 0 '恢复正常的错误提示
(5) Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示
(6) Application.ScreenUpdating=False '关闭屏幕刷新
Application.ScreenUpdating=True '打开屏幕刷新
(7) Application.Enable.CancelKey=xlDisabled '禁用Ctrl+Break中止宏运行的功能
工作簿
(8) Workbooks.Add() '创建一个新的工作簿
(9) Workbooks(“book1.xls”).Activate '激活名为book1的工作簿
(10) ThisWorkbook.Save '保存工作簿
(11) ThisWorkbook.close '关闭当前工作簿
(12) ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数
(13) ActiveWorkbook.name '返回活动工作薄的名称
(14) ThisWorkbook.Name ‘返回当前工作簿名称
ThisWorkbook.FullName ‘返回当前工作簿路径和名称
(15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小
(16) Application.Window.Arrange xlArrangeStyleTiled ‘将工作簿以平铺方式排列
(17) ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化

1、chart1代表的是图表型表。

2、当右击工作表名，选择插入时，将会弹出如下图所示的对话框，这里包含了EXCEL支持的所有工表类型，其中工作表是我们常用的，其他几种格式都不常用。

 

不对，引号中的文本不会被当作变量，
正确的写法是：
"=Sheet1!R3C[" & (27+j) & "]:R193C[" & (27+j) & "]"