如何根据点击单元格，自动获取其左侧数据？

lk710618 · 发表于 2024-9-28 09:47

各位老师，我想在点击单元格时，让宏自动获取这个单元格左侧的数据，并填进宏中，这个语言该如何修改呀，感谢帮助

Sub 宏1()
'
' 宏1 宏
Sheets("BBB").Select
ActiveWindow.SelectedSheets.Delete
End Sub

liulang0808 · 发表于 2024-9-28 10:27

工作簿事件，供参考

liulang0808 · 发表于 2024-9-28 10:29

。。。。。。。。。。

lk710618 · 发表于 2024-9-28 14:32

本帖最后由 lk710618 于 2024-9-28 14:45 编辑

liulang0808 发表于 2024-9-28 10:27
工作簿事件，供参考

感谢斑竹出手相助

可能是我表述不是很清楚，我不是想修改A列单元格内的文字，而是想在点击"B"列时，自动获取"A"列单元格内的文字，然后改写到宏中去，我最终的目的，是想点击B列单元格，自动删除对应A列单元格中名称的sheet。
如果可能，还希望能继续得到斑竹的帮助

A刘志勇 · 发表于 2024-9-28 16:00

你试试吧，又一个白嫖者，其实不难

lk710618 · 发表于 2024-9-28 17:00

A刘志勇发表于 2024-9-28 16:00
你试试吧，又一个白嫖者，其实不难

首先谢谢您的相助

同时，我也希望老师不要这种语调羞辱学习者，您能力强，不代表可以随意侮辱别人。

A刘志勇 · 发表于 2024-9-28 17:05

lk710618 发表于 2024-9-28 17:00
首先谢谢您的相助

同时，我也希望老师不要这种语调羞辱学习者，您能力强，不代表可以随意侮 ...

不是侮辱，是激励自己学习，加个微信互相学习

liulang0808 · 发表于 2024-9-28 17:39

lk710618 发表于 2024-9-28 14:32
感谢斑竹出手相助

可能是我表述不是很清楚，我不是想修改A列单元格内的文字，而 ...

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
If Target.Value = "DEL" Then
      On Error Resume Next
      Application.DisplayAlerts = False
      Sheets(Target.Offset(0, -1).Value).Delete
      Application.DisplayAlerts = True
End If
End Sub

liulang0808 · 发表于 2024-9-28 17:40

附件内容供参考。。。。。。

		自动登录	找回密码
密码			免费注册

[求助] 如何根据点击单元格，自动获取其左侧数据？

评分

评分