墙上那一串串红辣椒——数组入门讲座

weiyingde

山菊花 发表于 2006-10-26 16:15
对同一数组反复改变大小的时候，也有规则必须遵守。如果数组中存在数据，再次定义的时候默认把原数据清除， ...

把它改成3列，变成：
Private Sub CommandButton1_Click()
    Dim Xm() As String, Arr() As String '声明两个动态数组，定义为字符型
    Dim s As Integer, n As Integer
    Xm = Split(Range("a1"), ",") '把文本转换为数组
    s = UBound(Xm)
    n = 0
    For i = 0 To s
        n = n + 1
        ReDim Preserve Arr(1 To 3, 1 To n)  '改变动态数组的大小，共2行，n列
        Arr(1, n) = n
        If Right(Xm(i), 3) = "(女)" Then '如果后面三个字符是“(女)”
            Arr(2, n) = Left(Xm(i), Len(Xm(i)) - 3)  '取前面的字符
            Arr(3, n) = "女"
        Else
            Arr(2, n) = Xm(i)            
            Arr(3, n) = "男"
        End If
    Next
    Range("b6").Resize(n, 3) = WorksheetFunction.Transpose(Arr)  '把结果保存到工作表指定的单元格中
End Sub

weiyingde

山菊花 发表于 2006-10-26 16:15
园子里是不是有红苹果？你手中的牌是不是有红桃K？我们用眼睛一瞄就知道。数组元素中是不是有“张三”，是 ...

Dim xm() As String, arr() As String, Temp() As String '声明变量
    Dim s%, r% '声明单值变量
    On Error Resume Next '启动一个错误处理程序
    xm = Split(Range("a1"), ",") '用A1单元格的数据创建数组
    r = 0 '初值
    s = UBound(xm) '最大下标
    For i = 0 To s '循环
        Temp = Filter(arr, xm(i)) '搜索数组
        If UBound(Temp) = -1 Then '如果未找到
            r = r + 1 '序号，自增1
            ReDim Preserve arr(1 To r) '定义动态数组大小
            arr(r) = xm(i) '把姓名复制到数组Arr()中。
        End If
    Next
    Range("a3").Resize(1, r) = arr '填充到工作表
    Range("a2") = Join(arr, ",")

请问版主：其中UBound(Temp) = -1 很费解，没找到，也就是说，temp为空数组，应该是Ubound（temp）=0，为什么是-1呢，愿得到点破。

山菊花

weiyingde 发表于 2016-9-11 16:37
temp为空数组，应该是Ubound（temp）=0
   ...

这个想法，用一个成语来点评再合适不过了：自以为是。
其实它不是，当数组为空时，Ubound()结果等于-1。最大下标与数组包含元素的个数是两个概念， 不要混淆了。
今天给过你两个建议，现在再给一个建议。
调试程序时可以在适当位置插入临时语句，如把值赋给变量、插入Debug.Print 语句把值输出到立即窗口，用这些方法观察程序运行的结果，从而判断程序运行是否正常，方法是否正确等。

weiyingde

谢谢提醒和指导，对数组，尽管学EXCeL已有些时日，尽管在求助别人解决具体问题的时候，也有涉及到数组，但都是囫囵吞枣的拿过来用，从没有真正涉及到数组本身。这个学期，比较清闲，才有功夫和心情静下心来仔细研究，奈何时不我待，眼花脑笨，精力不济，忘性颇大，领悟不快，恐今后在学习过程中，还会说出和作出大侠们不齿的蠢话、蠢事，望不嫌弃，继续指导。
谢谢了！！

小小水皮1

学习学习,非常感谢

山菊花

weiyingde 发表于 2016-9-11 17:37
还会说出和作出大侠们不齿的蠢话、蠢事 ...

这句话说重了，谁的VBA都不是从娘胎里带来的，都是从零学起的，学习过程中犯一些错误是正常现象，不足为奇，你会，我也会，在学习过程中不断改进、提高就是。在论坛交流，除了正正经经的代码，其它言语不必较真，如果我说的一些话你不喜欢听，请原谅，我没有恶意，楼上我用“自以为是”纯粹是借用成语，没有讥笑你的意思。

weiyingde

山菊花 发表于 2016-9-11 17:59
这句话说重了，谁的VBA都不是从娘胎里带来的，都是从零学起的，学习过程中犯一些错误是正常现象，不足为 ...

没什么，能得到指导，实属难得。这些指导，是你在工作之余的无私奉献，感谢都来不及了。面对那么多的参差不齐的“菜鸟”，特别是对我这样的愚顽的l老菜鸟，久不开化，提出的问题，对你们这些大侠来说，幼稚可笑，就像我们面对那些幼稚的学生一样，有时使出浑身解数，仍不能使之开窍，也会无奈的说这样的话……
希望你继续指导，做您的学生，真的很荣幸。

山菊花

论坛是个大课堂，我们身在其中，慢慢体味，很奇妙，在某一时刻或在讨论某一话题中，自己像个小学生，认真学习，孜孜不倦。而一转身，在另一个话题或另一群人中，自己可以是个称职的老师，对他人娓娓道来、热情奉献。
共同学习，共同提高。

weiyingde

山菊花 发表于 2016-9-11 19:58
论坛是个大课堂，我们身在其中，慢慢体味，很奇妙，在某一时刻或在讨论某一话题中，自己像个小学生，认真学 ...

版主如果方便，帮我看一看这段代码：
见
http://club.excelhome.net/thread-1300215-4-1.html
36——37楼
代码运行平台：ppt
代码意图    ：将指定路径的所有视频文件名录入数组 arr。
              以便课间休息时随机播放。

notcom

真的很佩服这位老师，这可是十年之前的帖子，现在依然看到山老师的解答，真是实实在在的传道授业解惑的师者，赞一个，狂赞一个。。。。