[分享]最新排序法（中括号[]的应用）

HHAAMM · 发表于 2008-7-30 04:16

QUOTE:

以下是引用winland在2008-7-30 0:08:49的发言：

这个PublishObjects的方法非常之妙[em17]

这两天仔细看了一下Shape对象复制到剪贴板后的JFIF数据格式，写了下面的代码从Shape对象中提取原始JPG文件内容。不过这个只是针对JPG文件插入的情况，如果是PNG文件的话需要使用另外的代码。

唉，这两晚上看二进制数据看晕了。

经典，经典，混了这么多年了，第一次见到图片被这么干干净净的从excel里弄出来

wsx7zone · 发表于 2008-7-30 09:34

占个位子

hxyz25 · 发表于 2008-7-30 13:31

学习学习

kkkyo · 发表于 2008-7-30 17:33

明白一点,还有些不理解[em06]

ifhwfu · 发表于 2008-7-30 19:19

留个记号，两篇精华。慢慢学习了。

zhaodx · 发表于 2008-7-31 13:24

行数不能确定时：

Dim n%
n = Range("A65536").End(xlUp).Row

Range("B1:B" & n) = Evaluate("large(A1:A" & n & ",row(A1:A" & n & "))*row(A1:A" & n & ")^0")
Range("C1:C" & n) = Evaluate("small(A1:A" & n & ",row(A1:A" & n & "))*row(A1:A" & n & ")^0")

syz105729913 · 发表于 2008-7-31 19:34

占位学习

laoq123456 · 发表于 2008-8-1 10:58

记号

ifhwfu · 发表于 2008-8-2 12:18

Wuj093ON.rar (8.15 KB, 下载次数: 17)

明显的，如果是通过单元格区域的数组函数方式，是能得到正确的结果，但是采用 VBA 中的 [ ] 方式却不行。为什么？

ldy · 发表于 2008-8-2 13:30

QUOTE:

以下是引用ifhwfu在2008-8-2 12:18:09的发言：

明显的，如果是通过单元格区域的数组函数方式，是能得到正确的结果，但是采用 VBA 中的 [ ] 方式却不行。为什么？

Private Sub t1()
    [z3:z23] = "=VLOOKUP(Y3:Y23,A3:B23,2,0)"
    [z3:z23] = [z3:z23].Value
End Sub
Sub t2()
    [z3:z23] = Application.VLookup([y3:y23], [a3:b23], 2, 0)
End Sub
Sub t3()
    [z3:z23] = [VLOOKUP(Y3:Y23,A3:B23,2,0)]
End Sub
Sub t4()
    [z3:z23] = Evaluate("VLOOKUP(Y3:Y23,A3:B23,2,0)")
End Sub

这4 个过程都能得到数据

t1 相当于手工输入公示，然后选择性粘贴

t2 直接调用函数，得到数组

t3 t4 其实一样 Evaluate 不能返回数组，只有数组第一项，所以[z3:z23]全都一样

		自动登录	找回密码
密码			免费注册

[分享]最新排序法（中括号[]的应用）

[求助]为何我的函数引用（数组方式）得不到正确结果。