自动运行宏（当打开excel时为sheet1时）

justqb

是这样的。我有一些数据要用excel处理， 鉴于excel只能放6万多条数据的限制。我有几十个excel。

之前是人在电脑旁，打开一个excel  然后启动宏， 等它结束了再打开另外一个，如此重复。

因为每次运算一次都要半个小时左右。所以我想做一个批处理，每隔半个小时就打开一个excel。

我在excel里解决了自动保存关闭的问题。但是自动启动宏我还没搞定。

看了微软的帮助，说是把宏名保存成Auto_Open。这个解决了问题，但会产生新的问题：
我处理完了，下次打开还要运算一遍？

所以我想，有个事件来触发宏自动运行：  打开excel文档， 并且初始工作表是sheet1时就运行。

不知能否实现，谢谢各位了。

另不知如下批处理是不是对的？
start 1.xls
ping -n 1800 127.0>nul
start 2.xls
ping -n 1800 127.0>nul
start 3.xls
ping -n 1800 127.0>nul
start 4.xls
ping -n 1800 127.0>nul
……

LangQueS

例如：

Private Sub Workbook_Open()
宏1     '要执行的宏名称
End Sub

justqb

我就做了一个宏，能否写在这个宏的前面， 让它顺序执行。

也就是以下语句：

判断条件，启动宏：
语句1
语句2
语句3
保存下xls
关闭xls


估计我没表述清楚：
sheet1中有些需要处理的数据：
我做好了处理的宏，会自动的做一些查找替换，分列啊 什么什么的事情。
处理的时候就把数据放在sheet2 和sheet3了
处理完了，文档保存关闭下次打开是sheet3了

我想实现如下功能：
打开excel自动运行（如果初始工作表是sheet1时）。 当打开时是其他sheet时不运行，而且 从其他sheet切到sheet1时也不运行。
然后跑一堆代码。
然后保存关闭。（这个解决了）

我用批处理来解决隔一段时间打开一个excle。

wsktjfkuk111

Sub ReadOpentimes()
Dim otimes As Integer
otimes = Evaluate(ThisWorkbook.Names("opentimes").RefersTo)
0times = opentimes + 1
ThisWorkbook.Names("OpenTimes").RefersTo = "=" & otimes
End Sub

Sub auto_open()
  Call ReadOpentimes
End Sub
手动执行可以执行

zzk386

你应在Sheet1表放这个代码
Private Sub Worksheet_Activate()
你的代码
END SUB

zyhui1961

LangQueS 发表于 2009-9-3 13:25
例如：

Private Sub Workbook_Open()

你好前辈！
以下是双击C8单元格并回车后，R3：S11区域导入一张和C8相同名称的照片。想请你帮忙修改成：Sheet2工作表C8单元格用公式自动引用其他单元格内容后，R3：S11区域自动导入一张和C8单元格相同名称的照片（也就是自动导入），跪谢！
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.ScreenUpdating = False
    With Sheet2
    If Target.Address <> .Cells(8, 3).Address Then Exit Sub
    Const stL1 As String = "A1:Q2"
    Const stSize1 As String = "R3:S11"
    Const stName1 As String = "教职工照片"
        .Shapes(stName1).Delete
        .Shapes.AddPicture _
            (ThisWorkbook.Path & "\教职工照片\" & Target.Value & ".png"), _
            True, True, _
            .Range(stL1).Width, _
            .Range(stL1).Height, _
            .Range(stSize1).Width, _
            .Range(stSize1).Height
        .Shapes(1).Name = stName1
    End With
    Application.ScreenUpdating = True
End Sub

zyhui1961

LangQueS 发表于 2009-9-3 13:25
例如：

Private Sub Workbook_Open()

大师您好！
能不能给一个单元格事件？就是我双击Sheet（名为谢谢）的K8单元格触发事件。