求excel VBA 自动生成名称,高手来帮忙!

发布网友发布时间：2022-10-23 04:28

共2个回答

热心网友时间：2024-04-26 03:03

右键工作表标签，选择"查看代码"，然后贴入下面事件代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        ActiveWorkbook.Names.Add Name:=Target.Value, RefersTo:="=Sheet1!$B$1:$H$1"
    End If
End Sub

追问先谢谢您，可以满足我提问的要求，但我需要的是A1输完后，向下继续输入：
A2，A3,A4.............对应的引用位置也是向下相对引用，如何编写？

追答

修改了

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        ActiveWorkbook.Names.Add Name:=Target.Value, RefersTo:="=" & ActiveSheet.Name & "!" & Target.Offset(0, 1).Resize(1, 7).Address
    End If
End Sub

热心网友时间：2024-04-26 03:03

下班后再来看看……

热心网友时间：2024-04-26 03:03

右键工作表标签，选择"查看代码"，然后贴入下面事件代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        ActiveWorkbook.Names.Add Name:=Target.Value, RefersTo:="=Sheet1!$B$1:$H$1"
    End If
End Sub

追问先谢谢您，可以满足我提问的要求，但我需要的是A1输完后，向下继续输入：
A2，A3,A4.............对应的引用位置也是向下相对引用，如何编写？

追答

修改了

热心网友时间：2024-04-26 03:03

下班后再来看看……