1、首先需要建立一张表格，并简单添加数据并设置基本格式，这样可以明显看到显示结果，如下图所示：
2、进入到vba的project项目中，可以点击sheet1右键找到查看代码，或者直接Alt+F11按键进入到代码编辑界面，如下图所示：
3、vba的project项目的界面如下图所示：
4、使用双击触发代码，Worksheet_BeforeDoubleClick模块，需要在下拉菜单中，如下图所示：
1、接下来就是编辑代码，如下图所示：
2、代码：Sheet1.Range("A2") = Sheet1.Range("D2:I5")(1, 4)将结果显示到表一单元格的A2中。
1、最后就是在表格的界面下，双击鼠标左键执行代码，结果如下图所示：
2、更改数值后，运行结果后就会显示其他数值，如下图所示：
3、在D2:I5区域中，(1, 6)第一行第六列的单元格的数值。
