[已解决]遍历问题（续2）

乐乐2006201506 · 发表于 2016-5-13 22:01

本帖最后由乐乐2006201506 于 2016-5-13 22:24 编辑

本附件中的代码（此代码是本论坛超级版主爱疯帮忙做的，在此再次感谢他）完全可以实现清除公式、所有工作表中指定列身份证号码后四位都变为“0”了的问题的效果，但是它只能实现清除一个文件夹中数据中的公式和宏，能不能实现遍历文件夹以及子文件夹中文件簿的所有工作表，清除数据中的公式和宏，谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-13 23:22

遍历文件夹修改数据6.rar (14.63 KB, 下载次数: 19)

爱疯 · 发表于 2016-5-13 22:26

遍历文件夹修改数据5.rar (11.34 KB, 下载次数: 12)

乐乐2006201506 · 发表于 2016-5-13 22:37

本帖最后由乐乐2006201506 于 2016-5-13 22:42 编辑

爱疯发表于 2016-5-13 22:26
我没试，你试下

出现了这样的错误，

希望您能够测试一下，测试文件我上传到附件中了，谢谢您了。
而且您这个对于身份证号除过第一个工作表外，其余的还是不起作用。其实查找身份证号列的那个暂时可以用。
请下载我上传的文件夹名为1的附件，在附件中代码基础上修改，谢谢！

爱疯 · 发表于 2016-5-13 22:42

Dim arr() As String
改成
Dim arr()

乐乐2006201506 · 发表于 2016-5-13 22:47

本帖最后由乐乐2006201506 于 2016-5-13 22:49 编辑

爱疯发表于 2016-5-13 22:42
Dim arr() As String
改成
Dim arr()

还是不行。

希望您下载我上传的文件夹名为“1”的附件（这是当时您发的），在附件中代码基础上修改，谢谢！

测试文件我已上传，麻烦您测试一下，您辛苦了，非常感谢！

乐乐2006201506 · 发表于 2016-5-13 23:14

爱疯发表于 2016-5-13 22:42
Dim arr() As String
改成
Dim arr()

估计您还在测试吧！期待中……

爱疯 · 发表于 2016-5-13 23:22

遍历文件夹修改数据6.rar (14.63 KB, 下载次数: 19)

乐乐2006201506 · 发表于 2016-5-18 14:22

Sub setText(sh As Worksheet)
Dim cell As Range '声明单元格对象变量
Dim 计算状态 As Long
计算状态 = Application.Calculation
If 计算状态 = xlAutomatic Then Application.Calculation = xlManual '如当前是自动改为手动计算,不然如有随机函数会在转化过程中数值变化
For Each cell In ActiveSheet.UsedRange
      If Len(cell) > 14 Then
         cell.NumberFormat = "@"
         cell.Value = cell.Value
      ElseIf cell.HasFormula Then
         cell.NumberFormat = "@"
         cell.Value = cell.Value
      End If
Next cell
Application.Calculation = 计算状态  '恢复之前计算状态
End Sub

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