时间戳

首页 > 解决方案 > 使用 Excel 测试范围

excel - 使用 Excel 测试范围

问题描述

让我们假设一个由三个单元格组成的 excel 文件：

A1 : 1
A2 : 1
A3: A1+A2

有没有办法通过拖动鼠标来连续改变 A1 中显示的数字，在 1 到 1000 之间，以便能够测试和可视化 A3 中的结果？

标签： excel

解决方案

看不到工作簿或工作表的任何 OnMouseMove 事件，因此该事件是 SheetSelectonChange，只需使用箭头键或单击 about。

A1 将变为 1 到 1000 之间的随机数 A2 的值为 1 A3 = A1 + A2

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
 ByVal Target As Excel.Range)
    Dim rndNumber As Integer
    rndNumber = Int((1000 - 1 + 1) * Rnd + 1)
    Range("A1").Value = rndNumber
    Calculate
End Sub

推荐阅读