被个问题困住了，好心人帮我一下哈

wujianping · 发表于 2010-3-11 10:23:32

'============================================
'从上到下填入10个值，再从左2到右填入10个值
Sub ReportInformation(filename,mychar)
Set Excel = CreateObject("Excel.Application")
Excel.Workbooks.Add
Set NewSheet = Excel.Sheets.Item(1)
NewSheet.Name = "Test"
For i = 1 to 10
NewSheet.Cells(i,1).value = mychar
i = i + 1
NewSheet.Cells(1,i).value = mychar
i = i - 1
Next
Excel.ActiveWorkbook.SaveAs filename
Excel.Quit
Set Excel = Nothing
End Sub

'=================================================================================
'获得10个随机字符串

Function RandomChar(a1,a2)
For i = 1 to 3
Num1 = RandomNumber(a1, a2)
Num2 = RandomNumber(a1, a2)
Num3 = RandomNumber(a1, a2)
Num4 = RandomNumber(a1, a2)
Num5 = RandomNumber(a1, a2)
Num6 = RandomNumber(a1, a2)
Num7 = RandomNumber(a1, a2)
Num8 = RandomNumber(a1, a2)
Num9 = RandomNumber(a1, a2)
Num10 = RandomNumber(a1, a2)
RandomChar = chr(Num1)&chr(Num2)&chr(Num3)&chr(Num4)&chr(Num5)&chr(Num6)&chr(Num7)&chr(Num8)&chr(Num9)&chr(Num10)
Next
End Function

我要把随机字符串依次填入Excel中，并实现每一个单元格都是不同的字符串。现在遇到一个问题，怎么让每个单元格都是不同的值，执行一次"ReportInformation"只能调用一次"RandomChar"导致每个单元格都是一样的值，怎么重复调用"RandomChar"？

shirlincn · 发表于 2010-3-11 10:39:19

在填值的循环中调用随机数？

wujianping · 发表于 2010-3-11 11:01:24

原帖由 shirlincn 于 2010-3-11 10:39 发表
在填值的循环中调用随机数？

对的

liujinkui · 发表于 2010-3-11 11:17:50

这个去查查彩票随机如双色球。

skyzhu · 发表于 2010-3-11 11:41:12

列也是可以 +1 的，把A转ascii，+1以后再转字符就是B了
然后用Range单元格做，套2个for，XY坐标放进去就行了，这样比较清晰

wujianping · 发表于 2010-3-11 12:01:29

原帖由 skyzhu 于 2010-3-11 11:41 发表
列也是可以 +1 的，把A转ascii，+1以后再转字符就是B了
然后用Range单元格做，套2个for，XY坐标放进去就行了，这样比较清晰

这个我知道，我是要让a1,a2形成一个随机区间，比如65-90就是A-Z

怎么才能做到每循环一次“NewSheet.Cells(i,1).value = mychar”，就获得一次随机值呢？

May_may · 发表于 2010-3-11 13:27:30

不明白lz那个随机数里的i有什么作用么？RandomChar的值的不同ms就只跟a1和a2有关系

feiyunkai · 发表于 2010-3-11 13:30:00

''============================================
''从上到下填入10个值，再从左2到右填入10个值
Call ReportInformation("D:\test.xls")
Sub ReportInformation(filename)
Set Excel = CreateObject("Excel.Application")
Excel.DisplayAlerts = False
Excel.Workbooks.Add
Set NewSheet = Excel.Sheets.Item(1)
NewSheet.Name = "Test"
For i = 1 to 10
mychar=RandomChar(65,90)
NewSheet.Cells(i,1).value = mychar
i = i + 1
NewSheet.Cells(1,i).value = mychar
i = i - 1
Next
Excel.ActiveWorkbook.SaveAs filename
Excel.Workbooks.Close
Excel.Quit
Set NewSheet=Nothing
Set Excel = Nothing
End Sub
'
''=================================================================================
''获得10个随机字符串
'
Function RandomChar(a1,a2)
Num1 = RandomNumber(a1, a2)
Num2 = RandomNumber(a1, a2)
Num3 = RandomNumber(a1, a2)
Num4 = RandomNumber(a1, a2)
Num5 = RandomNumber(a1, a2)
Num6 = RandomNumber(a1, a2)
Num7 = RandomNumber(a1, a2)
Num8 = RandomNumber(a1, a2)
Num9 = RandomNumber(a1, a2)
Num10 = RandomNumber(a1, a2)
RandomChar = chr(Num1)&chr(Num2)&chr(Num3)&chr(Num4)&chr(Num5)&chr(Num6)&chr(Num7)&chr(Num8)&chr(Num9)&chr(Num10)
End Function

[ 本帖最后由 feiyunkai 于 2010-3-11 13:44 编辑 ]

feiyunkai · 发表于 2010-3-11 13:36:08

因为你将RandomChar(a1,a2)作为函数ReportInformation的参数，所以函数体内，所有的RandomChar(a1,a2)的值，都是传入时的值，所以值是固定的，如果想改变这个值，那么就要将RandomChar(a1,a2)放在循环体里边。
解决这个问题的方法有2种：
一、将RandomChar(a1,a2)放在ReportInformation函数的循环体内（见上面的代码）
二、将ReportInformation函数中的循环放在函数的外面（这种方法性能很差，所以最好采用第一种方法）

另外使用Excel.ActiveWorkbook.SaveAs方法时，前面最好设置一下强制保存：Excel.DisplayAlerts = False，filename路径下有同名文件时，就会直接覆盖该文件，而不提示是否覆盖，如果有特殊需要的，那么写个函数判断一下filename路径下是否存在相同文件

[ 本帖最后由 feiyunkai 于 2010-3-11 14:00 编辑 ]

wujianping · 发表于 2010-3-11 14:00:55

原帖由 May_may 于 2010-3-11 13:27 发表
不明白lz那个随机数里的i有什么作用么？RandomChar的值的不同ms就只跟a1和a2有关系

i是增加excel表的行列值

wujianping · 发表于 2010-3-11 14:19:03

原帖由 feiyunkai 于 2010-3-11 13:36 发表
因为你将RandomChar(a1,a2)作为函数ReportInformation的参数，所以函数体内，所有的RandomChar(a1,a2)的值，都是传入时的值，所以值是固定的，如果想改变这个值，那么就要将RandomChar(a1,a2)放在循环体里边。
解决 ...

修改后的代码跟我想要的还是有点出入，我并不想要把mychar在函数体内写死，我希望能给mychar赋各种各样的值，随机字符串只是其中一种，非常感谢

skyzhu · 发表于 2010-3-11 15:23:34

mychar=RandomChar(65,90)
这个要随机区间的话。。把65和90 换成随机范围的不就好了。。。
或者你再加个参数，也随机一下，就当是个随机的类型。。。
有随机了还要随机区间干什么

feiyunkai · 发表于 2010-3-11 16:49:43

我上面已经说过，你的函数RandomChar(a1,a2)返回值只是个固定的值，一个固定的值，作为参数仍是个固定的值，因此要想在每次使用时，都取不同的值，那么函数必须返回不止一个的值，下面以返回数组为例：
'思路：随即获取10组数据，并存放在数组中，然后将数组作为参数传递给函数，这样在函数体内就可以根据数组的下标，去取相应的数据

''============================================
''从上到下填入10个值，再从左2到右填入10个值
Call ReportInformation("D:\test.xls",RandomChar(65,90))
Sub ReportInformation(filename,mychar)
Set Excel = CreateObject("Excel.Application")
Excel.DisplayAlerts = False
Excel.Workbooks.Add
Set NewSheet = Excel.Sheets.Item(1)
NewSheet.Name = "Test"
For i = 1 to 10
NewSheet.Cells(i,1).value = mychar(i-1)
i = i + 1
NewSheet.Cells(1,i).value = mychar(i-1)
i = i - 1
Next
Excel.ActiveWorkbook.SaveAs filename
Excel.Workbooks.Close
Excel.Quit
Set NewSheet=Nothing
Set Excel = Nothing
End Sub

Function RandomChar(a1,a2)
Dim Charaa(10)
For j=0 to 9
Num1 = RandomNumber(a1, a2)
Num2 = RandomNumber(a1, a2)
Num3 = RandomNumber(a1, a2)
Num4 = RandomNumber(a1, a2)
Num5 = RandomNumber(a1, a2)
Num6 = RandomNumber(a1, a2)
Num7 = RandomNumber(a1, a2)
Num8 = RandomNumber(a1, a2)
Num9 = RandomNumber(a1, a2)
Num10 = RandomNumber(a1, a2)
Charaa(j) = (chr(Num1)&chr(Num2)&chr(Num3)&chr(Num4)&chr(Num5)&chr(Num6)&chr(Num7)&chr(Num8)&chr(Num9)&chr(Num10))
RandomChar=Charaa
Next
End Function

[ 本帖最后由 feiyunkai 于 2010-3-11 17:11 编辑 ]

wujianping · 发表于 2010-3-11 17:39:47

原帖由 feiyunkai 于 2010-3-11 16:49 发表
我上面已经说过，你的函数RandomChar(a1,a2)返回值只是个固定的值，一个固定的值，作为参数仍是个固定的值，因此要想在每次使用时，都取不同的值，那么函数必须返回不止一个的值，下面以返回数组为例：
'思路：随即 ...

横排的都是一样的值，还是没有解决啊老大

wujianping · 发表于 2010-3-11 17:40:34

原帖由 skyzhu 于 2010-3-11 15:23 发表
mychar=RandomChar(65,90)
这个要随机区间的话。。把65和90 换成随机范围的不就好了。。。
或者你再加个参数，也随机一下，就当是个随机的类型。。。
有随机了还要随机区间干什么

你没理解我的想法

feiyunkai · 发表于 2010-3-11 17:48:35

呵呵，那是我调试时候用的代码，，忘记改了，你把（i-1）换成0-9的随即数就行了
For i = 1 to 10
NewSheet.Cells(i,1).value = mychar(i-1)
i = i + 1
NewSheet.Cells(1,i).value = mychar(i-1)
i = i - 1
Next
修改为：
For i = 1 to 10
NewSheet.Cells(i,1).value = mychar(RandomNumber(0,9))
i = i + 1
NewSheet.Cells(1,i).value = mychar(RandomNumber(0,9))
i = i - 1
Next

[ 本帖最后由 feiyunkai 于 2010-3-11 17:52 编辑 ]

skyzhu · 发表于 2010-3-11 21:05:28

汗，LZ绕了好大个圈子
NewSheet.Cells(1,i).value =RandomChar(xxxxx) 赋值的时候调用你的随机函数不就好了
随机函数里要加Randomize，否则容易出一样的
那个随机函数搞的好复杂，1个变量就可以了，每生成一个字符拼接在1个变量里面就好了
还以为你要填满10*10的格子，原来就只要1行1列

wujianping · 发表于 2010-3-11 22:59:19

原帖由 skyzhu 于 2010-3-11 21:05 发表
汗，LZ绕了好大个圈子
NewSheet.Cells(1,i).value =RandomChar(xxxxx) 赋值的时候调用你的随机函数不就好了
随机函数里要加Randomize，否则容易出一样的
那个随机函数搞的好复杂，1个变量就可以了，每生成一个字 ...

“NewSheet.Cells(1,i).value =”我并不是只要随机值而已，我可能要给他常量，或其他的变量，要写死在里面我就不用费这么大劲了

wujianping · 发表于 2010-3-11 23:10:08

原帖由 feiyunkai 于 2010-3-11 17:48 发表
呵呵，那是我调试时候用的代码，，忘记改了，你把（i-1）换成0-9的随即数就行了
For i = 1 to 10
NewSheet.Cells(i,1).value = mychar(i-1)
i = i + 1
NewSheet.Cells(1,i).value = mychar(i-1)
i = i - 1
Nex ...

这样行列都是取相同数组里的10个值，行列的字符串应该都是一样的，只是顺序不同而已，还是没解决啊老大
我想说是不是要定义两个数组，或者数组要定义20个值，干，郁闷了。。。

feiyunkai · 发表于 2010-3-12 09:57:53

原帖由 wujianping 于 2010-3-11 23:10 发表

这样行列都是取相同数组里的10个值，行列的字符串应该都是一样的，只是顺序不同而已，还是没解决啊老大
我想说是不是要定义两个数组，或者数组要定义20个值，干，郁闷了。。。

那就取20个随即数好了，方法有了，自己改下代码就可以了啊，其实在第2次代码的基础上，你完全可以修改下，实现自己想要的结果，为什么不自己动手改下呢？懒！！！！！哈哈
'函数RandomChar(a1,a2)中的
Dim Charaa(10)
For j=0 to 9
'修改为：
Dim Charaa(20)
For j=0 to 19
'函数ReportInformation(filename,mychar)中的
For i = 1 to 10
NewSheet.Cells(i,1).value = mychar(i-1)
i = i + 1
NewSheet.Cells(1,i).value = mychar(i-1)
i = i - 1
Next
'修改为：
For i = 1 to 10
NewSheet.Cells(i,1).value = mychar(i-1)
i = i + 1
NewSheet.Cells(1,i).value = mychar(i+9)
i = i - 1
Next

[ 本帖最后由 feiyunkai 于 2010-3-12 10:06 编辑 ]

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 被个问题困住了，好心人帮我一下哈

相关帖子

修改代码如下：然后再试下

站长推荐 /1