菜鸟谈VBA最最基础入门《原创》

trustwxq

“worksheets(target.value).name”为反运算，如同(１０^2)^0.5一样，不知为什么要这么写，其值有可能不存在，如果存在等价于Target.value.

草根糖

原帖由 trustwxq 于 2009-10-15 08:47 发表
“worksheets(target.value).name”为反运算，如同(１０^2)^0.5一样，不知为什么要这么写，其值有可能不存在，如果存在等价于Target.value.

这是我无意识犯下的错~
可能是困了，就冒出来了，没什么深意。
我也是今天早上在办公室发现的，“有点脱了裤子放屁的感觉”呵呵~

DailyW

谢谢，楼主！

zznjcs

学的好累,不过还要学呀.

anyonegogo

你是我的vba启蒙老师了
谢谢

lxz-yd

谢谢楼主无私奉献。

edie14

之前一直不知道门在哪，现在终于快入门了，谢谢楼主老师

草根糖

各位老师、同学。
我碰到一段数组代码看不懂了，请求帮忙。
代码在附件里面。
谢谢拉！

trustwxq

这个程序编的不错，语句写的很简练，思维却比较深，破解别人好代码的同时，对自己也是一种提高。
Sub test()
    Dim arr, brr(5, 9), i As Long, j As Long, k As Long
    arr = [a2].Resize(5, 40)                                  '把A2:AN6区域数值赋给数组arr，这样arr为一个40行5列的二维数组
    For j = 3 To 40                                           ’j为arr列标，从第3列到第40列循环
        If j Mod 10 <> 1 Then                                 ’当列标值不等于10的整数倍加1，即数据表中图案被设为浅绿色的字段列时，执行以下语句，为数据表中浅绿色的字段列时，直接跳到下一列
            For i = 1 To 5                                    ，i为行标，在j列内i从1到5循环，如：当j=3时，arr（i，j）在上表中遍历C1:C6每一个单元格
                If Len(arr(i, j)) Then                        ’如果如上行所说的单元格不为空，执行下面语句，为空直接跳到j列下一个单元格
                    k = 11 - arr(i, 10 * ((j - 1) \ 10) + 1)  ’表中数据分四个区域10 * ((j - 1) \ 10) + 1取得数字所属区域的首列（字段所在列）的列标，arr(i, 10 * ((j - 1) \ 10) + 1)即为arr（i，j）所属的字段，11减之即为结果数组brr的行标。同样，如果字段为101，100，99，98，97，96，就得用101去减。
                    brr(k, arr(i, j)) = brr(k, arr(i, j)) + 1 ’k为结果数组的行标，arr（i，j）为数据表中的值同时为结果数组的列标，其值在二维循环的过程中只要出现一次，结果数组中相应的值就增加1（起始为0），这样就得到了arr（i，j）这个数出现的次数
                End If
            Next
        End If
    Next
    [d10].Resize(6, 10) = brr                                  ’结果输出到D10:M15区域
End Sub

wdsxh

真是太感谢楼主了,让我找到了学VBA的突破口.