以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么在EXCEL报表中实现某列随机插入字符串  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61929)
--  作者：aduydgd
--  发布时间：2014/12/22 16:09:00
--  怎么在EXCEL报表中实现某列随机插入字符串
怎么在EXCEL报表中实现某列随机插入字符串，在生成EXCEL报表后，想在某列随机打乱顺序添加某表中的数据字符串，这个没一点思路
--  作者：有点甜
--  发布时间：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)

--  作者：Bin
--  发布时间：2014/12/22 16:13:00
--  
怎么个插入法?

随机在某个单元格,插入表中随机某个单元格的值?
--  作者：有点甜
--  发布时间：2014/12/22 16:14:00
--  

  同时你可以看一下报表事件的编程

 

http://www.foxtable.com/help/topics/1955.htm

 
--  作者：aduydgd
--  发布时间：2014/12/23 9:41:00
--  
以下是引用Bin在2014-12-22 16:13:00的发言：
怎么个插入法?

随机在某个单元格,插入表中随机某个单元格的值?

是的
--  作者：有点甜
--  发布时间：2014/12/23 10:02:00
--  
 例子发上来。说明具体功能。