以上三种方法的效果是一样的，但第二种方法最简洁，但也要注意到方法二和方法三都用到了xlDown和xlToRight属性，这就要注意所选"a1"单元格所在的行和列是否有空单元格，如果有空单元格就会影响返回值。myrow = Workbooks("实例.xlsm").Sheets("统计").Range("a1").End(xlToRight).Column。Sheets("全部").Range("a

我们在VBA设计中经常需要使用到OnKey方法，特别是在窗口设计中比如我们想用到翻页按键，则就可以来建立一个OnKey事件。Setup_OnKey过程运行以后，就会达到最终效果，按PgDn键会将指针下移一行，按PgUp键会将指针上移一行。所以，诸如Curl+PgDn的组合键仍会激活工作簿中的下一个工作表。同样，如果活动工作表是一个图表工作表，那么也会发生错误，因为在图表工作表中没有活动单元格。当然

和前面两节一样运行Microwof PowerPoint时需要对其对象库进行引用，在Excel中打开VBE,选择“工具”，激活“引用”对话框后，通过滚动条找到 Microsoft PowerPoint XX Object Library,选中该项。具体操作步骤参照前面章节。‘恢复初始设置，这个是不能省略的，虽然省略程序依然可以运行。

前面讲过复制整张表格的方法，使用语句Workbooks("实例.xlsm").Sheets("表格1").Copy Workbooks(wjm).Sheets(1)实现，这里用我们熟悉的Cells属性也可以实现整表复制。lastcl = Sheets("选股池1").Range("b1").End(xlToRight).Column。Sheets("选股池1").Range("a2").Entir