事件，选择多个单元格，点击删除，只删除第1个单元格

pepsi7777

各位老师好，
如何实现：在C3:H33区域内，选择多个单元格时，点击删除，只删除第1个单元格，而不是选择的全部。 感谢！

例如
选择：D4到G9，点击删除后，只删除D4
选择：H3到H2，点击删除后，只删除H3
选择：H3，点击删除后，只删除H3

vitrel

楼主，您好！
您的要求，如果用户是用键盘上的“Del”键来删除的话，
肯定是所选单元格的内容全部都删除的，
也就是说，键盘上的Del键是达不到您的要求的。
可试一下改用VBA来实现，
例如在页面上设置一下按钮，
选择完单元格后，点击按钮，执行VBA代码，
这情况下，就可以实现您的要求了。

vitrel

上附件。

Ps：这与SelectionChange事件无关，与任何事件都无关，
键盘上的Del键，设计就是用来删除所选择的“全部”内容的，
只要您用的是键盘上的Del键，这事情就没办法（高手例外）。

当然，世事无绝对，高手们肯定是有一些特殊方法的，
例如在底层截获键盘“Del”动作，然后……还是能实现的，
但估计会很复杂，我也不会，我只能通过简单的方法来实现，请谅~

pepsi7777

vitrel 发表于 2023-4-6 08:51
楼主，您好！
您的要求，如果用户是用键盘上的“Del”键来删除的话，
肯定是所选单元格的内容全部都删除 ...

通过事件可以感知到，选择的是单一单元格，还是多个单元格吗？   如果是多个，就终止这个操作。或强制选择第一个单元格？

第1步选择单元格
第2步点击删除

在第1步时获取，是否选择了多个单元格，有可能吗？

pepsi7777

vitrel 发表于 2023-4-6 09:04
上附件。

Ps：这与SelectionChange事件无关，与任何事件都无关，

感谢 vitrel 老师，我学习下

yylucke

你试试：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column >= 3 And Target.Column <= 8 And Target.Row >= 3 And Target.Row <= 33 Then
        If Target.Count > 1 Then Cells(Target.Row, "D").Resize(Target.Rows.Count, 1).Select
    End If
End Sub

vitrel

pepsi7777 发表于 2023-4-6 09:05
通过事件可以感知到，选择的是单一单元格，还是多个单元格吗？   如果是多个，就终止这个操作。或强制选 ...

楼主，您的思路不错哦。
用If Target.Count > 1 Then Range(ActiveCell.Address).Select
就可以完美解决您的要求。

剑指E

pepsi7777

yylucke 发表于 2023-4-6 09:26
你试试：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column >= 3 An ...

感谢 yylucke 老师

pepsi7777

vitrel 发表于 2023-4-6 10:37
楼主，您的思路不错哦。
用If Target.Count > 1 Then Range(ActiveCell.Address).Select
就可以完美解 ...

感谢 vitrel 老师   解决！！！