vba - 复选框功能，如果选中则粘贴值

Question

我正在尝试这样做，如果未选中复选框 82，则单元格 J39 留空，但如果选中，则值为 3.8。在 "Sheet.Range("J39").PasteSpecial Paste = "3.8"" 行上，我收到一条错误消息 1004

Sub ChckBx_Deisel_Engines()

Dim Sheet As Worksheet: Set Sheet = ThisWorkbook.Worksheets("NSR FORM")
    If Sheet.Shapes("Check Box 82").ControlFormat.Value = 0 Then
        Sheet.Range("J39").PasteSpecial Paste = ""
    End

    ElseIf Sheet.Shapes("Check Box 82").ControlFormat.Value = 1 Then

        Sheet.Range("J39").PasteSpecial Paste = "3.8"
    End If
End Sub

关于如何以更好的方式执行此功能的任何想法也将不胜感激

Answer 1

弄清楚了！这是我更改它以使此功能正常工作的代码

 Sub Button82_Click()
     If ThisWorkbook.Worksheets("NSR FORM").Shapes("Check Box 82").OLEFormat.Object.Value = 1 Then
     Range("J39").Value = "3.8"

     Else
     Range("J39").Value = ""
     End If

 End Sub

Answer 2

Dim Sheet As Worksheet: Set Sheet = ThisWorkbook.Worksheets("NSR FORM")
    If Sheet.Shapes("Check Box 82").ControlFormat.Value = 0 Then
        Sheet.Range("J39").PasteSpecial Paste = "" :Exit sub <<< to exit direct from your project

    ElseIf Sheet.Shapes("Check Box 82").ControlFormat.Value = 1 Then

        Sheet.Range("J39").PasteSpecial Paste = "3.8"
    End If
End Sub