首页新闻找找看学习计划

EXCEL VBA下拉列长度限制问题解决方案

0
悬赏园豆:100 [已解决问题] 解决于 2013-10-22 15:29

PrivateSub Worksheet_SelectionChange(ByVal Target As Range)
With Range("d7").Validation
.Delete
.Add Type:
=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70"
EndWith
End Sub
如代码:
 Formula1 里面的值有70个,我用VBA导出后,直接下拉一条也不显示了
 但是我换成
PrivateSub Worksheet_SelectionChange(ByVal Target As Range)
With Range("d7").Validation
.Delete
.Add Type:
=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19"
EndWith
End Sub

则可以支持下拉!请问这里是否能手动设置下下拉长度呢?求高手赐教!!!不胜感激!

木子乐言的主页 木子乐言 | 初学一级 | 园豆:112
提问于:2012-09-14 14:36
< >
分享
最佳答案
0

能不能通过引用其它表的数据来显示下拉列表呢,在excel里是可以,不知道程序能不能设置。。

收获园豆:100
向往-SONG | 老鸟四级 |园豆:4853 | 2012-09-14 15:54

恩!已经实现了!思路其实跟你的思路是差不多的!此问题相信困扰过很多人,所以在这里给大家分享一下!代码是其次,主要是思路问题!

1、首先我在导出EXCEL的时候把用一列将数据源存储,然后隐藏起来!

        If _dt.Rows.Count > 0 Then
            For m = 0 To _dt.Rows.Count - 1
                '在第39行插入业务单元的参数用于下拉菜单的引用
                If _dt.Rows(m)(0).ToString() <> "" Then
                    cell = ws.Cells(m, 39)
                    cell.Value = _dt.Rows(m)(0).ToString()
                    cell.Style.Font.Size = 10 * 20
                End If
            Next
            ws.Columns(39).Hidden = True
        End If

2、在用VBA做下拉的时候直接引用"=$AN$1:$AN$55“就OK了

 xlsRange = xlsSheet.Range(GetColPosition(i))
                        xlsRange.Validation.Delete()
                        xlsRange.Validation.Add(Microsoft.Office.Interop.Excel.XlDVType.xlValidateList, Microsoft.Office.Interop.Excel.XlDVAlertStyle.xlValidAlertStop, Microsoft.Office.Interop.Excel.XlFormatConditionOperator.xlGreater, "=$AN$1:$AN$55")

木子乐言 | 园豆:112 (初学一级) | 2012-09-14 16:00
清除回答草稿
   您需要登录以后才能回答,未注册用户请先注册