怎么在EXCEL报表中实现某列随机插入字符串 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么在EXCEL报表中实现某列随机插入字符串

共有6358人关注过本帖树形打印复制链接主题：怎么在EXCEL报表中实现某列随机插入字符串

aduydgd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：681 积分：5332 威望：0 精华：0 注册：2011/12/26 20:43:00

怎么在EXCEL报表中实现某列随机插入字符串 发帖心情

Post By：2014/12/22 16:09:00 [只看该作者]

怎么在EXCEL报表中实现某列随机插入字符串，在生成EXCEL报表后，想在某列随机打乱顺序添加某表中的数据字符串，这个没一点思路

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/22 16:13:00 [只看该作者]

打乱字符串参考

Dim str() As String = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "+", "-", "*", "/", ">"}
For i As Integer = 1 To str.Length '洗牌测次数
    Dim rnum1 As Integer = Rand.Next(str.Length)
    Dim rnum2 As Integer = Rand.Next(str.Length)
    Dim temp As String = str(rnum1)
    str(rnum1) = str(rnum2)
    str(rnum2) = temp
Next
Dim data As String = String.Join("", str)
msgbox(data)