使用 VBA 或公式生成随机 8 位值，但复制并在其上特殊粘贴以保留该值

Question

我对 Excel VBA 和公式很陌生，但我需要在我创建的表单上有一个带有随机值的单元格，以便像唯一 ID 一样创建（我知道可能会有重复的数字，但它很苗条）发送给人们填写表格，但问题是如果我使用 RandBetween（00000000,99999999），隐藏和取消隐藏只是继续激活公式，如果我要发送，我很难跟踪这个模板供其他人填写。那么，当我有公式并且用户打开 Excel 表单时，有什么方法会随机化一个 8 位数字并复制和特殊粘贴覆盖它的值以冻结值。 （也欢迎其他方式，提前谢谢大家）

Answer 1

我不确定您在这里实际尝试做什么，但如果您想生成一个随机数并将其值存储在一个单元格中，您可以在 VBA 的“ThisWorkbook”中使用此代码：

Option Explicit

Const MySheetName As String = "Sheet1"      ' Change this to your sheet name

Private Sub Workbook_Open()
    ' Called every time you open the excel document

    Dim myRandNumber As Long
    Randomize
    myRandNumber = CLng(Rnd() * 999999999)    ' CLng converts the floating point number to a long integer

    Dim rowNum As Integer
    Dim colNum As Integer
    rowNum = 3
    colNum = 5

    ThisWorkbook.Sheets(MySheetName).Cells(rowNum, colNum).Value = myRandNumber

End Sub

如果您想确保这个数字是唯一的，这可能是您真正想要做的，您可以将这些值存储在单独的隐藏工作表中，并在每次要生成新数字时检查这些值。

您也可以使用这行代码而不是随机数为数字加上时间戳：

ThisWorkbook.Sheets(MySheetName).Cells(rowNum, colNum).Value = CDbl(Now() * 100000)

这将根据系统时间每 1 秒创建一个新的唯一编号。

如果我理解正确，您想生成一次这个数字。我可以想到几种方法来做到这一点：

1. 仅当单元格为空白时生成数字
2. 在隐藏工作表中设置标志

在这两种情况下，如果您想再次生成数字，您只需清除包含数字的单元格（选项1）或清除工作表中的标志（选项2）

选项1可以通过替换上面这部分代码来完成：

ThisWorkbook.Sheets(MySheetName).Cells(rowNum, colNum).Value = myRandNumber

用这个：

With ThisWorkbook.Sheets(MySheetName).Cells(rowNum, colNum)
    If (.Value = "") Then
        .Value = myRandNumber
    End If
End With

希望对你有帮助