查看: 193|回复: 3
急！盼望帮忙修改模块中VBA代码错误
阅读权限20
在线时间 小时
求教的问题：当点击“部分显示”按钮时，只显示I列有“★”所在的行（包括标题1-3行），此时按钮文字变为“全部显示”，点出“全部显示”，则1至166行都显示。现在的问题是：我点击“部分显示”按钮时，有部分I列中有“★”的行未能显示出来，请邦忙看下VBA代码有何错误？并请给予改正，谢谢。
11:54 上传
点击文件名下载附件
31.81 KB, 下载次数: 3
阅读权限95
在线时间 小时
& & & & & & & &
Sub 部分显示()
& & Application.ScreenUpdating = False
& & With ActiveSheet
& && &&&Dim x As Integer
& && &&&For x = 166 To 4 Step -1
& && && && &If .Cells(x, 9) = && Then
& && && && && & .Rows(x).Hidden = True
& && && && &End If
& && &&&Next
& & End With
& & Application.ScreenUpdating = True
阅读权限95
在线时间 小时
For x = 166 To 4 Step -1
隐藏和删除要从下往上循环，否则就会出现有的不隐藏，有的没删除的现象&&&&&&&&
阅读权限95
在线时间 小时
Sub 部分显示()
& && &&&Dim x As Integer
& & Application.ScreenUpdating = False
& & With ActiveSheet
& && &&&.Unprotect Password:=&6b3b3b3b1b1b1&
& && &&&For x = 4 To 166
& && && && &If Not (.Cells(x, 9) Like &*★*&) Then
& && && && && & .Range(&A& & x).EntireRow.Hidden = True
& && && && &End If
& && &&&Next
& && &&&.Protect Password:=&6b3b3b3b1b1b1&, DrawingObjects:=True, Contents:=True, Scenarios:=True
& & End With
& & Application.ScreenUpdating = True
End Sub
Sub 全部显示()
& & Application.ScreenUpdating = False
& & With ActiveSheet
& && &&&.Unprotect Password:=&6b3b3b3b1b1b1&
& && &&&.Rows(&4:166&).EntireRow.Hidden = False
& && &&&.Protect Password:=&6b3b3b3b1b1b1&, DrawingObjects:=True, Contents:=True, Scenarios:=True
& & End With
& & Application.ScreenUpdating = True
End Sub复制代码
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 619|回复: 6
新增单位数量，请高手帮忙修改宏代码参数设置
阅读权限20
在线时间 小时
求助：近日我求助得一宏代码：表中A1单元格设置了下拉菜单，勾选后按表中第三行进行筛选显示的宏代码。现在需要在表格后面添加新部门，请高手帮助&&修改宏代码参数设置。因我是新手，代码还没有完全搞懂，新增加了部门数量，不知宏代码参数怎样修改调整。恳请高手帮助修改下代码。（如方便最好对宏代码做下解析）万分谢谢&& 宏代码如下：Private Sub Worksheet_Change(ByVal TargetAs Range)& &If Target.Address = &$A$1& Then zzEnd SubSub zz()& &Application.ScreenUpdating = False
(19.64 KB, 下载次数: 105)
10:54 上传
点击文件名下载附件
& &Me.UsedRange.Columns.Hidden = False& &For j = [iv3].End(xlToLeft).Column To 2 Step -1& && & If Cells(3, j) && && And Cells(3, j).MergeCells AndCells(3, j).Cells(1, 1) && [a1] Then& && && &&&a = Cells(3, j).MergeArea.Address& && && &&&b = Split(a, &$&)& && && &&&Columns(b(1) & &:& & b(3)).EntireColumn.Hidden = True& && & End If& &Next& &Application.ScreenUpdating = TrueEnd Sub 详见附件
(181.12 KB, 下载次数: 108)
10:55 上传
阅读权限20
在线时间 小时
重新发下，附件不知怎么黏到了中间有点乱。
近日我求助得一宏代码：
表中A1单元格设置了下拉菜单，勾选后按表中第三行进行筛选显示的宏代码。现在需要在表格后面添加新部门，请高手帮助&&修改宏代码参数设置。
因我是新手，代码还没有完全搞懂，新增加了部门数量，不知宏代码参数怎样修改调整。恳请高手帮助修改下代码。（如方便最好对宏代码做下解析）万分谢谢&&
宏代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
& & If Target.Address = &$A$1& Then zz
& & Application.ScreenUpdating = False
& & Me.UsedRange.Columns.Hidden = False
& & For j = [iv3].End(xlToLeft).Column To 2 Step -1
& && &&&If Cells(3, j) && && And Cells(3, j).MergeCells And Cells(3, j).Cells(1, 1) && [a1] Then
& && && && &a = Cells(3, j).MergeArea.Address
& && && && &b = Split(a, &$&)
& && && && &Columns(b(1) & &:& & b(3)).EntireColumn.Hidden = True
& && &&&End If
& & Application.ScreenUpdating = True
(181.12 KB, 下载次数: 120)
10:59 上传
10:59 上传
点击文件名下载附件
19.64 KB, 下载次数: 111
阅读权限95
在线时间 小时
Private Sub Worksheet_Change(ByVal Target As Range)
& & If Target.Address = &$A$1& Then zz
& & Application.ScreenUpdating = False
& & Set d = CreateObject(&Scripting.Dictionary&)
& & Me.UsedRange.Columns.Hidden = False
& & For j = 2 To [iv3].End(xlToLeft).Column
& && &&&If Cells(3, j) && && Then d(Cells(3, j).Value) = &&
& & With Range(&A1&).Validation
& && &&&.Delete
& && &&&.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
& && && && &Operator:=xlBetween, Formula1:=Join(d.keys, &,&)
& & End With
& & For j = [iv3].End(xlToLeft).Column To 2 Step -1
& && &&&If Cells(3, j) && && And Cells(3, j).MergeCells = True And Cells(3, j).Cells(1, 1) && [a1] Then
& && && && &a = Cells(3, j).MergeArea.Address
& && && && &b = Split(a, &$&)
& && && && &Columns(b(1) & &:& & b(3)).EntireColumn.Hidden = True
& && &&&ElseIf Cells(3, j) && && And Cells(3, j).MergeCells = False And Cells(3, j).Cells(1, 1) && [a1] Then
& && && && &Columns(j).EntireColumn.Hidden = True
& && &&&End If
& & Application.ScreenUpdating = True
阅读权限95
在线时间 小时
&&&&&&&&&&&&&&&&&&&&&
(18.03 KB, 下载次数: 113)
14:51 上传
点击文件名下载附件
阅读权限20
在线时间 小时
Private Sub Worksheet_Change(ByVal Target As Range)
& & If Target.Address = &$A$1& Then zz
End Sub ...
老师好，此贴的原代码就是您帮助写的，新代码经过测试完全符合要求。
测试中发现我在表格最左边添加一列，再在A1单元格重新设置下拉菜单，
勾选后也能按要求筛选显示，只是原来的第一行不能显示，不知假如添加
一列除了将下拉菜单重新在A1单元格设置下，代码其他地方那些参数需要调整。
我是新手，正在学习中。再次感谢
(93.39 KB, 下载次数: 114)
16:51 上传
16:51 上传
点击文件名下载附件
27.49 KB, 下载次数: 109
阅读权限95
在线时间 小时
& & For j = 3 To [iv3].End(xlToLeft).Column
& & For j = [iv3].End(xlToLeft).Column To 3 Step -1
把这两句原来的2 改成 3
阅读权限20
在线时间 小时
For j = 3 To .End(xlToLeft).Column
& & For j = .End(xlToLeft).Column To 3 Step -1
把这两句原来 ...
多谢高手帮助，测试时我只是试着把第一个的2改成了3，第二个参数没有改，所以没有成功，
学习了，再次感谢，
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}