Question

我正在工作中使用多用途电子表格。在一个电子表格中，我试图找到一种方法来添加一个按钮，该按钮可以根据当前活动的单元格（当前选择？）清除一些单元格值。

我正在尝试添加某种按钮，该按钮将：选择E7后，只会清除可编辑的单元格：E7，F7，H7，I7，J7，K7，L7，P7，R7。

这将使我的生活变得更加轻松，因为我需要保持文件的保护/锁定...就像您可以想象的那样，清除整个行将不起作用...

我目前在另一个杂烩中使用类似的解决方案： Range（“ AN3”，“ AN15”）。Value = 0'.Value =“”也有效。我只是不确定如何咬住当前选择，并且只咬住它旁边的某些单元格：/

非常感谢您的帮助<3

Answer 1

    Sub Cleardata()
Set ma = ActiveCell.MergeArea
On Error GoTo errHand
If ma = ActiveCell Then
If MsgBox("FORMAT C:/ ?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Intersect(ActiveCell.EntireRow, Range("E:F,H:L,P:P,R:R")).ClearContents
GoTo final
errHand:
MsgBox "WOW! You are not Trump...you can't grab 'em merged cells..."
Exit Sub
final:
On Error GoTo 0
'End With
End If
End Sub

这将是我的完整解决方案，因为我在同一张工作表中也有其他数据，这样，如果同事在错误的位置误单击或假定Excel可以使同事避免看到混乱的调试消息，为他们做很多xD 再次谢谢你！

宏，连续擦除数据（单元格处于锁定状态的混合位置）

1 个答案: