[已解决]请高手们帮忙用vba解决这个名称指定的问题

qiongmei

我附件上f列想求得一代码，当我执行他的时候，他根据f列最后一个有数据的单元格重新定义名称指定。因为用数据有效性的时候要用到这个序列，但有时候我得在这个序列下加别的字，还得重新定义名称指定，所以恳请高手帮忙，谢谢。

最佳答案

月排行榜 / 总排行榜

snrvgbb

2011-12-17 15:49

函数：插入名称－班级

1. =OFFSET(界面!$F$1,,,COUNTA(界面!$F:$F))

复制代码

VBA:

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Address = "$A$1" Then
   
3.     With Target.Validation
   
4.         .Delete
   
5.         .Add xlValidateList, , , Join(WorksheetFunction.Transpose(Range("f1:f" & [f65536].End(3).Row)), ",")
   
6.     End With
   
7. End If
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

snrvgbb

函数：插入名称－班级

1. =OFFSET(界面!$F$1,,,COUNTA(界面!$F:$F))

复制代码

VBA:

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Address = "$A$1" Then
   
3.     With Target.Validation
   
4.         .Delete
   
5.         .Add xlValidateList, , , Join(WorksheetFunction.Transpose(Range("f1:f" & [f65536].End(3).Row)), ",")
   
6.     End With
   
7. End If
   
8. End Sub
   

复制代码

windimi007

怎么在07测试总感觉有点问题！{:4712:}

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim i&
   
3.     If Target.Column = 6 Then
   
4.         With Sheet1
   
5.             i = .Cells(.Rows.Count, 6).End(3).Row
   
6.             ActiveWorkbook.Names(Range("F1").Value).Delete
   
7.             ActiveWorkbook.Names.Add Range("F1").Value, "=" & .Name & "!$F$2:$F" & i
   
8.         End With
   
9.     End If
   
10. End Sub
    
11. 
    

复制代码

回家用10测试看看。{:912:}

windimi007

找到原因了，原来少了个绝对引用的符号（$）。{:4712:}

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim i&
   
3.     If Target.Column = 6 Then
   
4.         With Sheet1
   
5.             i = .Cells(.Rows.Count, 6).End(3).Row
   
6.             ActiveWorkbook.Names(Range("F1").Value).Delete
   
7.             ActiveWorkbook.Names.Add Range("F1").Value, "=" & .Name & "!$F$2:$F$" & i
   
8.         End With
   
9.     End If
   
10. End Sub

复制代码