如何通过worksheet_selectionchangep宏调用某指定行的宏？

逆天修炼

一个工作表里设置有很多宏，每个宏对应一个特定的行运行的，请问如何设置“Private Sub Worksheet_SelectionChange(ByVal Target As Range)”，当在工作表里选择一个单元格时自动执行对应行的宏？




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 3 Or Target.Row < 64 Then Exit Sub
    '如果选中的单元格不是第2列，或者小于4行，也就是不在目标范围内，则退出程序
    If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then Exit Sub
    '如果选中的单元格大于1个，则退出程序
    With Sheets("基本数据")
        ii = .ActiveCell.Row
       ss = .ActiveCell.Value
    End With
    Call ss      'ss代表某个对应某行的宏命令
End Sub

liulang0808

楼主的需求描述，不是太明白的
如果选中某行执行指定代码
可以在事件代码中增加if判断，比如取target跟rows（x）的交集，如果存在，证明选中区域涉及x行，那么就执行代码。

不知道理解对不对的

逆天修炼

liulang0808 发表于 2024-1-25 11:55
楼主的需求描述，不是太明白的
如果选中某行执行指定代码
可以在事件代码中增加if判断，比如取target跟ro ...

版主，我的想法主要是有两点：一是如何把事件中得到的target单元格的行号传给另外的宏，其次是通过事件调用宏命令执行，因为得到target的单元格的值与宏名称相同。完成这两个目地，那么针对特定指行号参数的宏就可以随意调整行位置。

sj15627581616

逆天修炼 发表于 2024-1-25 12:37
版主，我的想法主要是有两点：一是如何把事件中得到的target单元格的行号传给另外的宏，其次是通过事件调 ...

行号参数不需要传递，用ActiveCell.Row就可以了

liulang0808

逆天修炼 发表于 2024-1-25 12:37
版主，我的想法主要是有两点：一是如何把事件中得到的target单元格的行号传给另外的宏，其次是通过事件调 ...

另外一个宏，使用这种创灿的方式
sub ttt（rng）
end sub
applicationg.run target.value '这样可以运行target值相同的宏

逆天修炼

liulang0808 发表于 2024-1-25 12:55
另外一个宏，使用这种创灿的方式
sub ttt（rng）
end sub

版主，我定义了公共变量ii,ss，但单元格事件中获取不到ii和ss的值，不知道为什么？
ii=target. Row
ss=target. Value

liulang0808

逆天修炼 发表于 2024-1-25 13:24
版主，我定义了公共变量ii,ss，但单元格事件中获取不到ii和ss的值，不知道为什么？
ii=target. Row
ss= ...

把你的文件上传看看吧

逆天修炼

liulang0808 发表于 2024-1-25 13:33
把你的文件上传看看吧

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 3 Or Target.Row < 64 Then Exit Sub
'如果选中的单元格不是第3列，或者小于64行，也就是不在目标范围内，则退出程序
If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then Exit Sub
'如果选中的单元格大于1个，则退出程序
ii = ActiveCell.Cells.Row
Application.Run Target.Value
End Sub

我把ii定义为全局变量后，工作表单元格选定后发生第一次事件，这个产生的变量值ii可以传递给别的宏用，但是单元格选择改变之后，这个全局变量却不发生变化，仍然是第一次的赋值，请问版主这个如何处理？