单击一下即可用另一个单元格的值填充一个单元格
Populate a Cell with another cell's value in a single click
我是 VB 在 Excel 中编码的新手，我想知道如何点击一个特定的单元格并让该单元格加载另一个单元格的值点击。例如，如果值“SVE”在单元格 AP1 中，我如何单击空白单元格 B8 并单击一次将“SVE”加载到 B8 中，而无需在单击单元格之前键入值“SVE”？是需要公式还是必须用VB代码来完成？
单击填充单元格
- 您需要 VBA 才能执行此操作。 Select
Developer > Visual Basic 打开 Visual Basic 编辑器。打开View > Project Explorer。 Double-click 在您的项目 (VBAProject(YourWorkbookName.xlsm)) 和 double-click 工作 sheet（例如 Sheet1(Data)）中您需要的地方。进入新打开的sheet模块window，copy/paste如下代码：
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("B8"), Target) Is Nothing Then Exit Sub
Target.Value = Range("AP1").Value
End Sub
- 它实际上只有在您 select 单元格时才有效，即单元格未 selected 并且您单击它。
我是 VB 在 Excel 中编码的新手，我想知道如何点击一个特定的单元格并让该单元格加载另一个单元格的值点击。例如，如果值“SVE”在单元格 AP1 中，我如何单击空白单元格 B8 并单击一次将“SVE”加载到 B8 中，而无需在单击单元格之前键入值“SVE”？是需要公式还是必须用VB代码来完成？
单击填充单元格
- 您需要 VBA 才能执行此操作。 Select
Developer > Visual Basic打开 Visual Basic 编辑器。打开View > Project Explorer。 Double-click 在您的项目 (VBAProject(YourWorkbookName.xlsm)) 和 double-click 工作 sheet（例如Sheet1(Data)）中您需要的地方。进入新打开的sheet模块window，copy/paste如下代码：
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("B8"), Target) Is Nothing Then Exit Sub
Target.Value = Range("AP1").Value
End Sub
- 它实际上只有在您 select 单元格时才有效，即单元格未 selected 并且您单击它。