数据验证清单清除

Question

目前，我有三个数据字段。两个是数据验证列表，另一个只是我输入数字值的普通单元格。选择所需的数据后，我按一个ActiveX按钮，它将数据复制到另一个电子表格中。目前的样子：

我遇到的问题是我想按按钮以清除字段，但保留其信息。我已经尝试过.Clear和.ClearContents，但是它们完全删除了我的数据验证列表。我只希望他们下次再回到空白状态。

我希望将其重置为：

有什么办法吗？还是我需要重新思考整个电子表格并使用VBA？

Answer 1

VBA：如果myCell是您要清除的单元格，请使用

 myCell.FormulaR1C1 = ""

编辑：在下面的注释之后，并假设上面的屏幕快照中的3个字段分别为c4，c7和c10，我建议更改您的像这样：

Private Sub Command5Button21_Click()
    Dim s1, s2
    Set s1 = Worksheets("Master")
    Set s2 = Worksheets("Sheet1")

    With s1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).EntireRow
        .Cells(, "a").Value = s2.Range("p20").Value
        .Cells(, "b").Value = s2.Range("p21").Value
        .Cells(, "c").Value = s2.Range("c4").Value
        .Cells(, "d").Value = s2.Range("c7").Value
        .Cells(, "e").Value = s2.Range("c10").Value
        s2.Range("c4").FormulaR1C1 = ""
        s2.Range("c7").FormulaR1C1 = ""
        s2.Range("c10").FormulaR1C1 = ""
    End With
End Sub