选择区域中的单元格将值输入到另一个工作表中的单元格

Question

在下面的代码中，当我选择一个区域中的一个单元格时，弹出一个输入框，我的输入被发送到我在工作表2中单击的同一个单元格。我想更进一步。我想完全绕过输入框，只发送值F，而且我只想在单击单元格b2之后执行此操作。因此单元格b2必须作为某种切换来工作(也许在它上面放一个看不见的形状来充当按钮？)

示例1:工作表1，选择单元格B2打开宏，选择范围内的单元格示例: D10在工作表2上的单元格D10中输入字母F，选择单元格B2关闭宏，因此如果我选择单元格D10或该范围内的任何单元格，将不再发生任何事情。如果在宏打开时再次单击单元格，则还需要从D10中删除值F。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Dim xRtn As Variant
     If Selection.Count = 1 Then
         If Not Intersect(Target, Range("D9:AS20")) Is Nothing Then
             xRtn = Application.InputBox("Insert your value please")
             Sheets("2020").Range(Target.Address).Value = xRtn

         End If
     End If
End Sub

Answer 1

未经测试。我不确定我是否理解了你所有的目标。

我认为如果你在你的工作表中添加一个名为“checkbox 1”的复选框(调整大小并存储在你想要的任何地方；也许在单元格B2中)，那么下面的代码应该可以工作。

添加复选框的一种方法可能是：Excel > Developer > Insert > Check Box (Form Control) (取决于您的Excel版本)。如果看不到Developer选项卡，您可能需要先使用get it to show。

Option Explicit

Private Function GetCheckBox() As Shape
    Set GetCheckBox = Me.Shapes("Check Box 1")
End Function

Private Function IsCheckBoxTicked() As Boolean
    IsCheckBoxTicked = (GetCheckBox.OLEFormat.Object.Value = 1)
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge <> 1 Then Exit Sub
    If Intersect(Target, Me.Range("D9:AS20")) Is Nothing Then Exit Sub

    If IsCheckBoxTicked() Then
        With ThisWorkbook.Worksheets("2020").Range(Target.Address)
            .Value = IIf(.Value = "F", Empty, "F")
        End With
    End If
End Sub