vba的数组长度太长怎么办

如题所述

使用分隔符
Sub 按钮6_单击()
Dim a As String
a = Array("产品001", "产品002", "产品003", "产品004", "产品005", "产品006", "产品007", "产品008", "产品009", "产品010", "产品011", "产品012", "产品013", "产品014", "产品015", "产品016", "产品017", "产品018", "产品019", "产品020", "产品021", "产品022", "产品023", "产品024", "产品025", "产品026", "产品027", "产品028", "产品029", "产品030", "产品031", "产品032", "产品033", "产品034", "产品035", "产品036", "产品037", "产品038", "产品039", "产品040", "产品041", "产品042", "产品043", "产品044", "产品045", "产品046", "产品047", "产品048", "产品049", "产品050", "产品051", "产品052", "产品053", "产品054", "产品055", "产品056", "产品057", "产品058", "产品059", "产品060", "产品061", "产品062", "产品063", "产品064", "产品065", "产品066", "产品067", "产品068", "产品069", "产品070", "产品071", "产品072", "产品073", "产品074", "产品075", "产品076", "产品077", "产品078", "产品079", "产品080", "产品081", "产品082", "产品083", "产品084", "产品085", "产品086", "产品087", "产品088", "产品089", "产品090", "产品091", "产品092", _
"产品101", "产品102", "产品103", "产品104", "产品105", "产品106", "产品107", "产品108", "产品109", "产品110", "产品111", "产品112", "产品113", "产品114", "产品115", "产品116", "产品117", "产品118", "产品119", "产品120", "产品121", "产品122", "产品123", "产品124", "产品125", "产品126", "产品127", "产品128", "产品129", "产品130", "产品131", "产品132", "产品133", "产品134", "产品135", "产品136", "产品137", "产品138", "产品139", "产品140", "产品141", "产品142", "产品143", "产品144", "产品145", "产品146", "产品147", "产品148", "产品149", "产品150", "产品151", "产品152", "产品153", "产品154", "产品155", "产品156", "产品157", "产品158", "产品159", "产品160", "产品161", "产品162", "产品163", "产品164", "产品165", "产品166", "产品167", "产品168", "产品169", "产品170", "产品171", "产品172", "产品173", "产品174", "产品175", "产品176", "产品177", "产品178", "产品179", "产品180", "产品181", "产品182", "产品183", "产品184", "产品185", "产品186", "产品187", "产品188", "产品189", "产品190", "产品191", "产品192", "产品193" _
"产品198", "产品199", "产品200", "产品201", "产品202", "产品203", "产品204", "产品205", "产品206", "产品207", "产品208", "产品209", "产品210", "产品211", "产品212", "产品213", "产品214", "产品215", "产品216", "产品217", "产品218", "产品219", "产品220", "产品221", "产品222", "产品223", "产品224", "产品225", "产品226", "产品227", "产品228", "产品229")
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2017-01-16
例如某数组名称是a
计算它的长度就是 Ubound(a) + 1,Ubound()函数是用来获取数组中最大上限。例如某数组有5个元素,那么,通过个取得的最大上限就是4,因为vb中的数组是从0开始的,所以在取得这个最大上限之后还需要加上一个1.本回答被网友采纳

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网