[接龙...]部分程序代码注释，目录更新20051222

fokus

经典

liusjie

高深！！！

djmzjz

如果能在填写了时间后，不能更改就好了，这样可以保证数据的真实性

djmzjz

以下是引用浩月在2005-11-17 22:59:16的发言： Sub ch() For Each c In Worksheets Rem c.Visible = True Next c End Sub 是何解?

在预算书中，点开Ｂ列，看不全定额库的全部数据，无法选择．应该怎么选择

pengtianxu

真的要十分感谢这些前辈无私的奉献，对我们这些还未入门的上小弟们太有帮助了，祝好人健康平安！！！

zshcpv

学海无涯！

hongkongnote

总算爬完了271楼，非常感谢LONG三兄弟，对我的学习帮助很大，世界有你才完美

杨杨777

我占用272楼，多谢龙三兄，强烈建议此帖置顶。

djmzjz

以下是引用[I]Long_III[/I]在2005-8-5 17:28:06的发言：[BR]

6、第6个代码，工作表一种格式转化为另外一种格式

Private Sub CommandButton1_Click() Dim irow%, i%, h%, l% h = 1: l = 2 '从第一个a2开始复制，l表示行，h表示列 Application.ScreenUpdating = False With Sheet3 .Range("2:65536").ClearContents '删除2至65536行的内容 irow = [a65536].End(xlUp).Row 'a列最后一非空行 For i = 2 To irow '从第2行到最后一行 Cells(i, 1).Resize(1, 4).Copy .Cells(l, h) 'resize表示重新设置大小，resize（行，列） '如[a1].resize(2,2)则表示[a1:b2] h = h + 4 '列移动4列，第一次复制到第1列，运行一遍之后就是第5列 If h > 12 Then h = 1: l = l + 1 '如果列大于12，就设置列为1，行数增加1，再次循环 Next End With Application.ScreenUpdating = True End Sub

『其实基本上都是我最近回复别人的代码，加些注释便于理解』

龙三大师的这篇代码写的解释最全，我算是看懂了一点，如果能再全一点就好了，对一个初学者来说，可能是什么也不知道，无从下手的，比如：irow%，是什么意思？加%与不加有什么不同，我看到你的代码中有的就没加。 另外再请教一个问题，如果文档不在一个盘里，需要将D盘的文档复制到E盘怎么办，代码怎么改写？

djmzjz

plxmm，能不能够判断多行的有效性，我用你的代码，只有1。2行有，3行就没有了，在代码里什么地方修改，别外，如果要设在别的行，又怎么修改。谢谢你能讲清楚点！