复选框功能，如果选中则粘贴值答案

【问题标题】：Check box function to paste value if check复选框功能，如果选中则粘贴值
【发布时间】：2013-04-06 00:29:43
【问题描述】：

我正在尝试这样做，如果未选中复选框 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

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

【问题讨论】：

标签： vba excel checkbox paste

【解决方案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

【讨论】：

【解决方案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

【讨论】：