Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 从visual basic中将随机值指定给excel单元格_Vb.net - Fatal编程技术网

Vb.net 从visual basic中将随机值指定给excel单元格

Vb.net 从visual basic中将随机值指定给excel单元格,vb.net,Vb.net,我曾尝试在VisualBasic中使用随机函数和字符串生成器,但它对每个单元格重复相同的值。。。我需要所有的细胞都不同 我想说的是 Dim validchars As String = "abcdefghijklmnopqrstuvwxyz" Dim sb As New StringBuilder() Dim rand As New Random() For i As Integer = 1 To 12 Dim idx As Integer = r

我曾尝试在VisualBasic中使用随机函数和字符串生成器,但它对每个单元格重复相同的值。。。我需要所有的细胞都不同

我想说的是

    Dim validchars As String = "abcdefghijklmnopqrstuvwxyz"
    Dim sb As New StringBuilder()
    Dim rand As New Random()
    For i As Integer = 1 To 12
        Dim idx As Integer = rand.Next(0, validchars.Length)
        Dim randomChar As Char = validchars(idx)
        sb.Append(randomChar)
    Next i
    txtPass.Text = sb.ToString
    If txtPass.Text.Length > 1 Then
        Dim newvar As String
        newvar = txtPass.Text
    End If

我需要使用这段代码为excel单元格分配大约1000个单元格的值。

既然您要输出到excel,就让excel处理随机字符生成

以下内容将在4x4网格中创建10个字符长的随机字符串A-Z:

Dim excelRandomChar As String = "CHAR(RANDBETWEEN(65, 90))"
Dim numberOfChars As Integer = 10

' Write generation formula to Excel (replace with your Excel objects).
xlObject.Sheet.Range("A1:D4").FormulaR1C1 = "=" & _
    String.Join(" & ", Enumerable.Repeat(excelRandomChar, numberOfChars).ToArray)

代码是否在按钮点击中?我怀疑此代码是否重复相同的值。但是,这可能是在另一个循环中生成的,例如行,那么随机实例将创建得太快,并且将对每一行重复。作为对上面注释的响应^yes,这是一个按钮单击,这只是一个示例…如果我使用随机字符,例如。。。इ増ईऊ艾अゑدㄽㅅ本はछ丝ㅁऊ ङㅊ勒غ我是否要更换65、90和putछ丝ㅁऊ ङㅊ勒... ?@BillyFizGerald-我看不懂字符,但基本上你定义了你想用于生成的ASCII范围。好的,是的,感谢代码现在正在运行。。。但是如果我想说用字母ulh和17GF怎么办!既然它们不在同一范围内,我怎么能做到这一点呢?@billyfizgerald-你必须定义一个连续的范围来进行选择。你的问题只使用了我在回答中提到的字母。如果你想要更复杂的东西,那么需要额外的逻辑。