[ 本帖最后由 zhuyuancan 于 2008-10-15 17:11 编辑 ]作者: helius 时间: 2008-10-15 17:25
随机字符串
Function makestring(inputlength)
If IsNumeric(inputlength) Then
For I = 1 To inputlength
'you may add a random function here
A = Array("a","b","c")
Randomize
x=RandomNumber (0,2)
B = A(x)
makestring =makestring +B
Next
msgbox ("output the string:"&makestring )
else
msgbox ("error format:"&inputlength)
End If
End Function
Call makestring("8")作者: wshyzhywx 时间: 2008-10-16 22:00 标题: 回复 2# 的帖子 具体怎么做能给详细说说么 将对应cell的属性改成text 这一步我不会做 能教教么作者: gy21st 时间: 2008-10-17 11:44
最前面加个单引号'作者: wuei9090 时间: 2008-10-17 12:41
excle里面设置单元格格式
把标准改成文本格式