表格中有数据的地方随机变成任何符合或文字

qw52633 · 发表于 2020-1-18 10:09

想要做成类似乱码的意思，原表格中有数据就随机变成任何一个符号如何实现啊？

microyip · 发表于 2020-1-18 10:10

加密处理应该可以咯

qw52633 · 发表于 2020-1-18 10:23

microyip 发表于 2020-1-18 10:10
加密处理应该可以咯

加密是整个表格加密吧能实现某个sheet像乱码那种处理么？

microyip · 发表于 2020-1-18 10:44

qw52633 发表于 2020-1-18 10:23
加密是整个表格加密吧能实现某个sheet像乱码那种处理么？

对表内每个单元格进行一次你自定义的加密运算得到的数值填回去就是咯

qw52633 · 发表于 2020-1-18 10:52

microyip 发表于 2020-1-18 10:44
对表内每个单元格进行一次你自定义的加密运算得到的数值填回去就是咯

您说的太高深了，不过我感觉如果这样运行的话肯定会很卡很慢吧，我对表格删除数据都好长时间别说赋值了

microyip · 发表于 2020-1-18 10:55

qw52633 发表于 2020-1-18 10:52
您说的太高深了，不过我感觉如果这样运行的话肯定会很卡很慢吧，我对表格删除数据都好长时间别说赋值了

这个你自找，但方法只能这么做

liulang0808 · 发表于 2020-1-18 10:56

随机变成一个字符，这个不难，楼主还需要还原吗？

qw52633 · 发表于 2020-1-18 10:59

liulang0808 发表于 2020-1-18 10:56
随机变成一个字符，这个不难，楼主还需要还原吗？

不需要还原，就营造一种乱码的假象版主能帮忙不多谢了

liulang0808 · 发表于 2020-1-18 11:17

Sub 按钮1_Click()

Application.ScreenUpdating = True
For Each Rng In ActiveSheet.UsedRange
         str1 = ""
         For x = 1 To Len(Rng)
            str1 = str1 & WorksheetFunction.Unichar(WorksheetFunction.RandBetween(300, 627))
         Next x
         Rng.Value = str1
   Next Rng
Application.ScreenUpdating = False
End Sub

liulang0808 · 发表于 2020-1-18 11:19

上面仅供参考，楼主可以根据实际需要配置字符数组，使用数组提高效率等等

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

[求助] 表格中有数据的地方随机变成任何符合或文字