Tag: 随机

VBA从不同的工作簿复制指定的随机数据: Sub getdata() 'CTRL+J Windows("sample rnd.xlsm").Activate Range("A1:L5215").Select Range("A2").Activate Selection.Copy Application.CutCopyMode = False Selection.Copy Application.CutCopyMode = False Selection.Copy Windows("rnd sample draft.xlsm").Activate Sheets("Random Sample").Select Sheets("Random Sample").Name = "Random Sample" Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Save End Sub 以上是我的代码到目前为止。它只是从另一个工作簿复制数据并粘贴到我指定的工作表中。我想要的是随机数据（行）没有重复，我总是想包括第一行，因为它包含标题。此外，我想有一个文本框，我可以input数字，以便我可以指定从另一个工作簿中获得多less数据。相当新的vba。需要帮忙。我附上了一个截图。

在VBA中写一个函数返回一个三angular形的随机数: 我正在尝试为excel编写一系列VBA函数，它将返回随机数字types以在子例程中调用。一旦我进入更复杂的公式，我会遇到类似的错误。例如：非对称三angular随机variables。这是function： Function AsymetricTriangleInVBA (min As Double, mode As Double, max As Double) As Double Application.Volatile Randomize Dim Temp As Variant Temp = Rnd AsymetricTriangleInVBA = WorksheetFunction.if(Temp < ((mode – min) / (max – min)), min + (max – min) * WorksheetFunction.sqrt(((mode – min) / (max – min)) * Temp), min + (max […]

在excel中编程一个macros，在a，b之间生成一个随机数: 我在Excel中构build一个电子表格，电子表格作为一个数据保持表，它根据需要更新不同的值，我感兴趣的其中一个值本质上是一个随机数生成器。我已经在excel的单元格里面有了简单的RANDBETWEEN（）函数的知识。然而，这只返回一（1）值，我想能够分配给一个函数，让它每次按下button时返回一个不同的值。我可以创buildbutton，我有单元格..我不确定为什么我不能链接这两个？我已经试过通过已经问过这个问题，但没有发现任何超级接近我的问题（虽然我认识到一个擅长Excel的人可能是一个微不足道的问题。）但是我不擅长擅长，而且还在学习所有内部工作和我可以用excel做的事情。长话短说，有人可以帮我得到一个button，每次点击一个单元格（可以说单元格a1）得到值之间的不同值a，b。再次抱歉，如果这是微不足道的，我尽我所能做到这一点，我只是没有任何运气。

具有指定百分比的Excel随机数: 我想要创build一组范围在1到10之间的随机数据。现在，我正在使用： =RANDBETWEEN(1,10) 问题是，我怎样才能让整数1组成90％的随机数据呢？所以Cell A1到A100有90％的整数1和10％的任何其他整数在= RANDBETWEEN（）范围内。

Excel-VBA中的数组中的随机元素: 我冲进了互联网，仍然没有find任何解决这个问题的方法：我有一个这样的数组; Dim PayRate As Variant PayRate = Array(10, 20, 30) Cells(i, "E").value = PayRate(Int((2 – 1 + 1) * Rnd + 1)) 但这只会给我20和30arrays（元素1和2），我也想元素0 = 10在混合？我该怎么做呢？

总计n个随机数（用于模拟目的）: 有没有可能在Excel中定义一个填充随机数vector的命名字段，只有一个公式？在我想只有一个随机数的情况下，我可以定义一个名为random具有值=RND()的命名字段现在我想创build一个名为random_vector包含一个n随机值的向量。规范的方法是通过OFFSET(RND();0;0;n)定义一个命名字段，但是这不起作用。这个问题很容易做到，用我的随机数填充一个列，然后在这个列上定义一个命名的字段。这个解决scheme是行不通的，因为我必须用一个公式填充许多单元格。问题的背景其中一个应用就是我想用一个简单的方法计算n个随机variables的和（或乘积，或分位数）。例如，我可以用公式计算出5个统一的随机数的和 =RND()+RND()+RND()+RND()+RND() 现在我想计算50个均匀随机variables的总和，我可以扩展这个公式来包含50个项RND()但是这将是一团糟。一些精确度我非常感谢你的帮助，因为我必须在不使用VBA或插件的情况下在Excel中实现这个function（否则我会用C ++编写代码，然后将其链接到Excel）均匀随机variables的和不是均匀分布的。无论如何，我不是统一的随机variables的总和，但在一般情况下。均匀分布仅用于说明目的。我的目标是计算一个随机vector本身的第n卷积。

在使用rand（）函数的单元格上使用Solver加载项: 我有一个蒙特卡罗仿真模型，我需要设置一个参数（服务级别）至less95％。问题是，据我所知，当Solver运行时，它会尝试不同的解决scheme，但是由于RAND（）函数，目标单元格总是在不停地变化。有什么办法可以解决这个问题吗？禁用RAND（）暂时更改？我试图将计算切换到手动，但不起作用，因为那么目标单元根本不会更新。我感谢任何帮助，谢谢！

在表中生成随机数字: 我想要在从第14行到第1013行，从第B行到第C行，从第E行到第QR行的表中生成随机数。我有这个代码： Sub GenerateRandom() Dim i As Long For i = 14 To 1013 Range("B" & i) = Rnd() Range("C" & i) = Rnd() Range("E" & i) = Rnd() Range("F" & i) = Rnd() Range("G" & i) = Rnd() Range("H" & i) = Rnd() Next i Randomize End Sub 我将不得不每次写Range(" " & i)=RND()直到行QR。我想知道一个快速简单的方法来做到这一点。

生成随机数据时两列之间的链接: 我有德文和英文的电子表格。例如： ABCD 1 Hallo Hello random word 2 Blau Blue 3 Hund Dog 4 Blumen Flowers 5 Auto Car 在一个随机的单元格中（比如在单元格D1中），我可以使用以下命令从列A生成一个随机的german单词： =INDEX($A:$A|RANDBETWEEN(1|COUNTA($A:$A))|1) 现在在E1，我想打印适当的english单词。所以当我们按F9生成一个新的随机词时，我总是得到修正翻译。任何build议如何使这个链接？

随机项目从一个列表使用多个条件: 我使用下面的公式从一个列表中输出一个随机的项目，并以某些因素为条件。在这个例子中，学生姓名在A列，考试成绩在B列。随机select的学生的条件是他或她的考试成绩超过80％： {=INDEX(Database!A1:A100,SMALL(IF(Database!B1:B100>=80%,ROW(Database!A1:A100)-MIN(ROW(Database!A1:A100))+1),RANDBETWEEN(1,COUNTIF(Database!B1:B100,">=80%"))))} 除了这些专栏之外，我还有C列的教育水平（选项是小学，高中和大学）。如何修改上述公式，输出一个随机的学生条件的testing成绩超过80％，大学教育？