[已解决]工作表全部运行同一个宏

jzzhmm425 · 发表于 2013-3-20 15:16

Sub 隐藏()Dim Rng As Range
Dim a As Date
Dim b As Date
Dim c As Date
Dim d As Date
Dim e As Date
Dim f As Date
Dim g As Date
Dim h As Date
Dim i As Date
Dim j As Date
Dim k As Date
Dim l As Date, m As Integer, n As Integer, o As Integer, p As Integer, q As Integer
a = "2013-1-10 00:00"
b = "2013-2-10 00:00"
c = "2013-3-10 00:00"
d = "2013-4-10 00:00"
e = "2013-5-10 00:00"
f = "2013-6-10 00:00"
g = "2013-7-10 00:00"
h = "2013-8-10 00:00"
i = "2013-9-10 00:00"
j = "2013-10-10 00:00"
k = "2013-11-10 00:00"
l = "2013-12-10 00:00"
m = Year(dd)
n = Month(dd)
o = Day(dd)
p = Hour(dd)
q = Minute(dd)For Each Rng In Range("a:a")
If Rng = a or Rng =b or Rng =c or Rng =d or Rng =e or Rng =f or Rng =g or Rng =h or Rng =i or Rng =j or Rng =k or Rng =l Then
Rows(Rng.Row).EntireRow.Hidden = True
End If
Next End Sub
这段代码是隐藏工作表里特定行的代码，我想让每个工作表都运行这个宏，请问在哪里加什么代码能实现呀。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-20 15:51

Sub 隐藏()
Dim Rng As Range
Dim a As Date
Dim b As Date
Dim c As Date
Dim d As Date
Dim e As Date
Dim f As Date
Dim g As Date
Dim h As Date
Dim i As Date
Dim j As Date
Dim k As Date
Dim l As Date, m As Integer, n As Integer, o As Integer, p As Integer, q As Integer
Dim sht As Worksheet
a = "2013-1-10 00:00"
b = "2013-2-10 00:00"
c = "2013-3-10 00:00"
d = "2013-4-10 00:00"
e = "2013-5-10 00:00"
f = "2013-6-10 00:00"
g = "2013-7-10 00:00"
h = "2013-8-10 00:00"
i = "2013-9-10 00:00"
j = "2013-10-10 00:00"
k = "2013-11-10 00:00"
l = "2013-12-10 00:00"
m = Year(dd)
n = Month(dd)
o = Day(dd)
p = Hour(dd)
q = Minute(dd)
For Each sht In Worksheets
With sht
For Each Rng In .Range("a:a")
If Rng = a Or Rng = b Or Rng = c Or Rng = d Or Rng = e Or Rng = f Or Rng = g Or Rng = h Or Rng = i Or Rng = j Or Rng = k Or Rng = l Then
.Rows(Rng.Row).EntireRow.Hidden = True
End If
Next
End With
Next
End Sub

复制代码

跳转到最佳答案楼层

E路人 · 发表于 2013-3-20 15:24

放在 ThisWorkbook 里看一下（看一下是什么事件）

hwc2ycy · 发表于 2013-3-20 15:26

在THISWORKBOOK里OPEN事件里循环工作表调用这段代码就成了。
小改动。

jzzhmm425 · 发表于 2013-3-20 15:33

E路人发表于 2013-3-20 15:24
放在 ThisWorkbook 里看一下（看一下是什么事件）

放在ThisWorkbook 里看过了，只是把当前的工作表执行了这个宏，其他工作表没有反应

jzzhmm425 · 发表于 2013-3-20 15:34

hwc2ycy 发表于 2013-3-20 15:26
在THISWORKBOOK里OPEN事件里循环工作表调用这段代码就成了。
小改动。

放在ThisWorkbook 里看过了，只是把当前的工作表执行了这个宏，其他工作表没有反应

hwc2ycy · 发表于 2013-3-20 15:36

jzzhmm425 发表于 2013-3-20 15:34
放在ThisWorkbook 里看过了，只是把当前的工作表执行了这个宏，其他工作表没有反应

dd是哪来的？未定义啊。

E路人 · 发表于 2013-3-20 15:38

jzzhmm425 发表于 2013-3-20 15:33
放在ThisWorkbook 里看过了，只是把当前的工作表执行了这个宏，其他工作表没有反应

加个循环
for 工作表从1到工作表最后一张

hwc2ycy · 发表于 2013-3-20 15:38

Sub 隐藏()
Dim Rng As Range
Dim a As Date
Dim b As Date
Dim c As Date
Dim d As Date
Dim e As Date
Dim f As Date
Dim g As Date
Dim h As Date
Dim i As Date
Dim j As Date
Dim k As Date
Dim l As Date, m As Integer, n As Integer, o As Integer, p As Integer, q As Integer
Dim sht As Worksheet
a = "2013-1-10 00:00"
b = "2013-2-10 00:00"
c = "2013-3-10 00:00"
d = "2013-4-10 00:00"
e = "2013-5-10 00:00"
f = "2013-6-10 00:00"
g = "2013-7-10 00:00"
h = "2013-8-10 00:00"
i = "2013-9-10 00:00"
j = "2013-10-10 00:00"
k = "2013-11-10 00:00"
l = "2013-12-10 00:00"
m = Year(dd)
n = Month(dd)
o = Day(dd)
p = Hour(dd)
q = Minute(dd)
For Each sht In Worksheets
For Each Rng In .Range("a:a")
If Rng = a Or Rng = b Or Rng = c Or Rng = d Or Rng = e Or Rng = f Or Rng = g Or Rng = h Or Rng = i Or Rng = j Or Rng = k Or Rng = l Then
.Rows(Rng.Row).EntireRow.Hidden = True
End If
Next
Next
End Sub

复制代码

dd的问题你自己改下就成了，代码运行后，所有的工作表都会处理一次。

jzzhmm425 · 发表于 2013-3-20 15:40

hwc2ycy 发表于 2013-3-20 15:36
dd是哪来的？未定义啊。

我说不上来，这段代码是我自己根据网上的其他代码编的，不过删除定义的m,n,o,p,q后，代码就无法执行了

爱疯 · 发表于 2013-3-20 15:40

上传附件，别人才好理解问题，

解决的可能性才大呀

		自动登录	找回密码
密码			注册