收录日期:2020/11/30 16:43:54 时间:2016/07/06 09:03:18 标签:VB基础类
请求各位帮忙注释一下下面的代码:
Sub macro1()
Dim arr, brr, crr(0 To 9)
arr = [e3].Resize([e65536].End(xlUp).Row - 2)
ReDim brr(1 To UBound(arr), 9)
For i = 1 To UBound(arr)
crr(arr(i, 1)) = crr(arr(i, 1)) + 1
If i > 19 Then
For j = 0 To 9
brr(i, crr(j)) = brr(i, crr(j)) & j & " "
Next
crr(arr(i - 19, 1)) = crr(arr(i - 19, 1)) - 1
End If
Next
[l3].Resize(UBound(brr), 9) = brr
MsgBox "ok"
End Sub
可读性真强
Sub macro1() 
   Dim arr, brr, crr(0 To 9) 
   arr = [e3].Resize([e65536].End(xlUp).Row - 2) 
   ReDim brr(1 To UBound(arr), 9) 
   
   For i = 1 To UBound(arr) 
      crr(arr(i, 1)) = crr(arr(i, 1)) + 1 
      
      If i > 19 Then 
         For j = 0 To 9 
            brr(i, crr(j)) = brr(i, crr(j)) & j & " " 
         Next 
         
         crr(arr(i - 19, 1)) = crr(arr(i - 19, 1)) - 1 
      End If 
   Next 
   
   [l3].Resize(UBound(brr), 9) = brr 
   MsgBox "ok" 
End Sub 

请教!jdbc web(win2000/tomcat) database(solaris oracle8i) 《程序员》杂志2001年第三期稿费已经寄出 我用jb4做EJB,在用import javax.ejb.*时报错找不到这个包,只能找到javax.rmi.* javax.xml.*等,为什么? 软件工程需要什么基础才是学的时候?要全面学完数据结构,编译原理等等吗?thanks!(null) 美眉的问题更急了!!! 菜鸟问题大送分,机不可失噢!!! 本人和一个朋友业余做了个ASP网站,欢迎大家参观。 如何用VB对低层硬件的访问控制? dephi 3.0的代码为什么不能在5.0用 关于层的位置 又是几个简单的问题..... 怎样可以显示字段的中文?请教各位大侠? vc++基础问题 javamail:imap收邮件时中文都是乱码,请问怎么解决? 自来水公司水费管理软件 如何得到主线程的ID 在一个视图中,怎样才能使拉动水平滚动条时,指定区域不滚动? VC中一个令我很头疼的问题,但对于你可能很简单的. 如何能知道窗体当前是哪个控件获得焦点 Sql Server7.0桌面版能发行吗? 谁有《Windows 95 系統程式設計 大奧秘》的源码? 太难了,快 快 快 我是女生,但是我喜欢电脑游戏,所以我喜欢计算机…… 类似workspace的 docking bar 是如何生成的??是用CControlBar改写的吗? 急问高手!这是不是Java的一个Bug?????? HOW TO:用VC建立Excel文件(我很多分数可用,每个有价值的答复至少20分) windows2000 Advance Server下装Apache 1.3.12,总导致一个系统错误,怎么能解决。 Win98中如何检测串口的振铃事件? 送100分 “视“的问题