Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2717|回复: 2

[已解决]VBA同一事件中第一个过程执行完后后面的过程不报错也不执行

[复制链接]
发表于 2014-1-23 17:26 | 显示全部楼层 |阅读模式
本帖最后由 bosao 于 2014-1-29 17:40 编辑

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("首页").Activate '激活首页工作表
      Dim i As Integer
      i = Worksheets.Count   '取得工作表的数目
      While ActiveSheet.Index < i    '判断活动工作表是否是工作簿中的最后一张工作表
      Worksheets(ActiveSheet.Index + 1).Activate   '激活下一张工作表
      Dim csname As String   '提取D1单元格内容,以变量作为工作表名称
      csname = Cells(1, 5).Value
      If Range("E1") <> "" Then     '排除工作表
             If Range("G1") <> 0 Then   '如果G1不等于0,则执行修改工作表标签颜色
                With ActiveWorkbook.Sheets(csname).Tab
               .ColorIndex = 3
            End With
            Else   '如果不满足条件则执行
              With ActiveWorkbook.Sheets(csname).Tab
              .ColorIndex = 4
              End With
            End If
      End If
     Wend
     Exit  End


     '除首页外其余工作表隐藏
     Dim sh As Worksheet
       Sheets("首页").Visible = True
       Sheets("首页").Select
       For Each sh In ThisWorkbook.Sheets
       If sh.Name <> "首页" Then sh.Visible = False
      Next
     Exit End




     Application.AutoRecover.Enabled = True   '启用自动恢复
     ActiveWorkbook.Save    '保存

End Sub


以上代码在执行完工作表标签颜色判断更改后不能执行“除首页外其余工作表隐藏”和自动保存的功能,请问代码错在何处,应该怎么修改?谢谢指教!
求助.rar (21.22 KB, 下载次数: 4)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-1-23 17:56 | 显示全部楼层    本楼为最佳答案   
  1.     Wend
  2.     End
复制代码
这里错了。
去掉wend下面的end
回复

使用道具 举报

 楼主| 发表于 2014-1-23 18:57 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 20:41 , Processed in 0.572050 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表