Fork me on GitHub
2011年11月7日
VB二维数组
摘要： Public Sub aa()Dim xc(1) As Variantxc(0) = Array(49, 132, 155)xc(1) = Array(146, 208, 80)RangeColorSort Sheets("Sheet1"), Sheets("Sheet1").Range("F2:F15"), Sheets("Sheet1").Range("F2:F15"), xcEnd SubPublic Sub RangeColorSort(sourceSheet As Worksheet, 阅读全文
posted @ 2011-11-07 21:46 逍遥メ风 阅读(1014) 评论(0) 推荐(0)