Excel VBA - 数组及其他知识 - McDelfino

Excel VBA - 数组及其他知识

来源：http://blog.csdn.net/alexbnlee/article/details/6917800

数组：定义数组：
　　Dim arr(30 To 50) As Single 定义数组，从30到50，定义为浮点型~
　　arr(30) = 34.3

产生随机数，但是随机数要不同（1到20之间产生10个不同的随机数）

    Sub sdlkfjl()  
        For i = 1 To 10  
            Cells(1, i) = Int(1 + Rnd() * 19)    '给个随机数  
            For j = 1 To i - 1  
                Do While Cells(1, j) = Cells(1, i)     '判断这个数与前面的数是否相同，知道不相同退出循环  
                    Cells(1, i) = Int(1 + Rnd() * 19)      '若是相同，则重新产生随机数  
                Loop         
            Next          
        Next  
    End Sub

→ On Error Resume Next 说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。

→ Collection对象可以去除重复值
在Collection对象中，由两部分组成，一部分是值的部分，一部分Key的部分，其中Key的部分是用来区分重复值的，若是相同的Key，则只取第一个的值作为Collection的值，所以在写的时候，要是想去掉要素的重复值，可以直接将要素值作为Key值，但是Key必须为字符型，所以可以用 CStr函数做转换~
另外由于会有重复的Key值，所以要用On Error Resume Next语句来越过错误~

    Private Sub UserForm_Initialize()  
        Dim r As Integer  
        Dim i As Integer  
        Dim MyCol As New Collection  
        Dim arr() As Variant  
        On Error Resume Next  
        With Sheet1  
            r = .Cells(.Rows.Count, 1).End(xlUp).Row  
            For i = 1 To r  
                If Trim(.Cells(i, 1)) <> "" Then  
                    MyCol.Add Item:=Cells(i, 1), key:=CStr(.Cells(i, 1))  
                End If  
            Next  
        End With  
        ReDim arr(1 To MyCol.Count)    '最大值已经变了，因为有重复的值会变成不重复的~  
        For i = 1 To MyCol.Count  
            arr(i) = MyCol(i)  
        Next  
        ListBox1.List = arr  
    End Sub

→ 当ComboBox1发生Change的时候，触发如下事件

    Private Sub ComboBox1_Change()  
        Dim MyAddress As String  
        Dim rng As Range  
        ComboBox2.Clear  
        With Sheet1.Range("A:A")  
            Set rng = .Find(What:=ComboBox1.Text)  
            If Not rng Is Nothing Then  
                MyAddress = rng.Address  
                Do  
                    ComboBox2.AddItem rng.Offset(, 1)  
                    Set rng = .FindNext(rng)  
                Loop While Not rng Is Nothing And rng.Address <> MyAddress  
            End If  
        End With  
        ComboBox2.ListIndex = 0  
        Set rng = Nothing  
    End Sub

其中

rng.Address <> MyAddress

一句很重要，因为FindNext函数还会向上找回去，若是没有这个限制条件，就会一直循环下去~
→ VbCrlf和Chr(13)都是表示换行的意思
→ 按Ctrl+J可以提示方法和属性
→ 空格+下环线可以将一行分成多行来写 Space+Underscore
→ Array函数返回一个包含数组的Variant

    Dim A As Variant  
    A = Array(10,20,30)  
    B = A(2)

→ Split函数返回一个小标从零开始的一维数组，它包含指定数目的子字符串

    Sub SplitExample()  
        Dim Str() As String  
        Str = Split("a,b,c,d,e", ",")  
        For i = 0 To UBound(Str)  
            s = s & Str(i) & vbCrLf  
        Next  
        MsgBox s  
    End Sub

参考：http://club.excelhome.net/forum.php?mod=viewthread&tid=196095
单元格简单复制，将单元格的值存成数组

    Private Sub CommandButton1_Click()  
        arr = Sheet2.Range("a1:e83")  
        Range("a1:e83") = arr  
    End Sub

→ Split函数&Join函数例子，从一个句子里面提取姓名和性别

    Sub SplitExample()  
        Dim Str() As String  
        Cells(2, 1) = "全部"  
        Cells(2, 2) = "姓名"  
        Cells(2, 3) = "性别"  
        Str = Split(Cells(1, 1), ",")  
        For i = 0 To UBound(Str)  
            Cells(i + 3, 1) = Str(i)  
            If Right(Str(i), 3) = "(女)" Then  
                Cells(i + 3, 2) = Left(Str(i), InStr(Str(i), "(") - 1)  
                Cells(i + 3, 3) = "女"  
            Else  
                Cells(i + 3, 2) = Str(i)  
                Cells(i + 3, 3) = "男"  
            End If  
        Next  
        MsgBox Join(Str, ",")  
     End Sub