●●●excel 中搞个简单宏，如何在打开excel时每个sheet把光标移动到第一个单元格（sheet名称不一定）●●●

可以取全体sheet对象，一次操作吗？
还有把每个sheet打印设置成横向、95%等等。
很急，谢谢各位了。

11 个解决方案

#1

可以取全体sheet对象，一次操作吗？
=>//在Workbook的SheetActivate事件中进行选择
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Cells(1, 1).Select
End Sub

#2

每个sheet打印设置成横向、95%等等
=>
我想这个不怎么可能实现，打印是office自带的，而且API好像比较难改到这样精细的属性

#3

我帮你找找看

#4

to ufrshchenw(tchanway)
多谢多谢~

#5

Application.Dialogs(xlDialogPrint).Show (参数)，在参数里设具体的值，你可以自己调试

#6

我现在比较忙，你自己找找看

#7

如何把不是当前显示的sheet的不光标落在第一个单元格？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

#8

如何把不是当前显示的sheet的不光标落在第一个单元格？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
=>//在Workbook的Open事件中进行处理
Private Sub Workbook_Open(ByVal Sh As Object)
    Dim i  as Integer

    for(i=1;i<你有的页数;i++)
    {
         Sheets (i).Cells(1, 1).Select
    }
End Sub

#9

工作表.PageSetup.Zoom = 95
工作表.PageSetup.Orientation = xlLandscape

#10

工作表怎么表达？
如果工作表的名字是表.xls

#11

你的表.xls 这个 “表” 可能是workbook的名称。
一个工作表使用sheet来表示如：worksheets(1) 可以使用index来提领工作表。
                             activesheet 当前活动工作表
                             worksheets("sheet1") 名称提领工作表
                              etc ...

#1