[已解决]新人求助：简单的系统

卧龙

内容在时面，请高手帮忙

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2012-11-5 14:21

不需要用拼音了，直接用动态数据有效性选择即可。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Address <> "$B$3:$E$3" Then Exit Sub
   
3. Dim Arr, i&
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Arr = Sheet2.[a1].CurrentRegion
   
6. For i = 2 To UBound(Arr)
   
7.     d(Arr(i, 2)) = i
   
8. Next
   
9. t = d.items
   
10. With Target.Validation
    
11.     .Delete
    
12.     .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
    
13.         Operator:=xlBetween, Formula1:=Join(d.keys, ",")
    
14. End With
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

蓝桥玄霜

不需要用拼音了，直接用动态数据有效性选择即可。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Address <> "$B$3:$E$3" Then Exit Sub
   
3. Dim Arr, i&
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Arr = Sheet2.[a1].CurrentRegion
   
6. For i = 2 To UBound(Arr)
   
7.     d(Arr(i, 2)) = i
   
8. Next
   
9. t = d.items
   
10. With Target.Validation
    
11.     .Delete
    
12.     .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
    
13.         Operator:=xlBetween, Formula1:=Join(d.keys, ",")
    
14. End With
    
15. End Sub
    

复制代码

卧龙

太感谢蓝桥玄霜 老大了

卧龙

不过最好还是请老大们把程序编全了,我现在的级别还达不到独立完成这个作业的水平