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

tcogh

山菊花老师，有个问题想请教您。

有如下的一系列一维数组（等长）：

X1=001110110

X2=110010101

……

Xi=101011010

将其中的01结构解码成实数以后，求平方值Yi，然后，问题来了，怎么才能让Xi与Yi一一对应，再按照Yi的大小将Xi排序呢？

恳请指教，谢谢！

山菊花

给Y排序时，同时给X排序。

或者，将X转换成二维数组。

tcogh

不太理解，山菊花老师能给一个简单例子代码吗？

gfs57

超级版主：

循循善诱，诲人不倦，人民教师的风范！再次谢谢你！[em23]　[em17]　[em23]

提到测试程序，我试了：汇报如下：

①　CS1最慢，13.4507秒；CS2较快，才0.0313秒；CS3更快，0.0156-0.0313秒！

②　启用工作表事件后，CS1为13.4-13.7秒；CS2变为0.0156-0.0313秒；CS3仍为0.0156-0.0313秒！

看起来CS3最省时。

数组真的很有趣！碰到问题还要劳驾你的。谢谢了。

shizi123

QUOTE:

以下是引用山菊花在2008-6-12 17:19:52的发言：

QUOTE:

Sub test()
        Dim arr(1 To 10, 1 To 1)
        For i = 1 To 10
            arr(i, 1) = "=sum(a" & i & ":b" & i & ")"
        Next
        Range("c1:c10") = arr '将数组中的公式写入单元格
    End Sub

QUOTE:

Sub test2()
        Range("d1").Formula = "=sum(a1:b1)" '用代码或人工建立第一个公式
        Range("d1:d10").FillDown '用 FillDown 方法填充公式
    End Sub

QUOTE:

Sub test3()
        Range("e1:e10").Formula = "=sum(a1:b1)" '利用自动填充特性将公式写入单元格区域
    End Sub

一般情况下，利用数组填充公式并没有优势。

压缩文件打不开。山版，你的意思是要实现在一组单元格内写函数公式，得写三个宏代码？

山菊花

三个代码取其一。

shizi123

QUOTE:

以下是引用山菊花在2008-6-13 8:24:25的发言：
三个代码取其一。

哦，我好好琢磨。

山版，可不可以重新上传那个附件，我下载后打不开。

[此贴子已经被作者于2008-6-13 8:53:42编辑过]

liangyuhong

谢谢楼主的精彩讲解，非常感谢！

胡剑0227

山版，我太爱你了！

开始学VBA，呵呵

水无形

我太爱你了，爱死你了