[已解决]有效性显示格式问题

scl5801

有效性显示格式问题，详见附件

最佳答案

月排行榜 / 总排行榜

轩辕轼轲

2014-8-27 15:27

1. 
   
2. Sub sss()
   
3.     Dim arr, aa, i%
   
4.     With [b2].Validation
   
5.         .Delete
   
6.     End With
   
7.         arr = Sheet1.Range("e4:e15")
   
8.     For i = 1 To UBound(arr)
   
9.          aa = aa & Format(arr(i, 1), "yyyy年mm月dd日") & ","
   
10.     Next i
    
11.     With [b2].Validation
    
12.        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
    
13.         Operator:=xlBetween, Formula1:=aa
    
14.     End With
    
15.          aa = ""
    
16. End Sub

复制代码

跳转到最佳答案楼层

十五的月亮

是这样？

scl5801

十五的月亮 发表于 2014-8-27 14:41
是这样？

就要这样的效果，但是要用vba代码实现   请修改vba代码。

zjdh

Sub Macro1()
    With Range("B2").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$E$4:$E$16"
    End With
End Sub

轩辕轼轲

1. 
   
2. Sub sss()
   
3.     Dim arr, aa, i%
   
4.     With [b2].Validation
   
5.         .Delete
   
6.     End With
   
7.         arr = Sheet1.Range("e4:e15")
   
8.     For i = 1 To UBound(arr)
   
9.          aa = aa & Format(arr(i, 1), "yyyy年mm月dd日") & ","
   
10.     Next i
    
11.     With [b2].Validation
    
12.        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
    
13.         Operator:=xlBetween, Formula1:=aa
    
14.     End With
    
15.          aa = ""
    
16. End Sub

复制代码

zjdh

工作簿1.rar (14.89 KB, 下载次数: 5)

2014-8-27 15:34 上传

点击文件名下载附件

scl5801

感谢三位，zjdh的办法，2007版本以上可行，在2003版本报错。