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

Long_III · 发表于 2005-8-5 17:28

6、第6个代码，工作表一种格式转化为另外一种格式 orlHmw0Y.rar (11.4 KB, 下载次数: 536)

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

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

[此贴子已经被plxmm于2006-7-28 18:29:37编辑过]

power · 发表于 2005-8-5 17:50

要好好学习．

ghl-ghl · 发表于 2005-8-5 18:34

顶一下,漂亮妹妹和龙三哥的贴子者是相当不错的东西

绯红之王 · 发表于 2005-8-5 18:41

支持高手如此带新手

王晖辉 · 发表于 2005-8-5 19:37

谢谢高手,如此带我们新手, 要好好学习．

donghua200 · 发表于 2005-8-6 02:45

踏踏破铁鞋无觅处得来全不费功夫

张振林 · 发表于 2005-8-6 06:28

这才是提供我们初学者学习编程的好帖子，非常的经典。谢谢版主和各位高手的无私奉献。你们辛苦了！我真心的谢谢你们了，谢谢！谢谢！！谢谢了！！！[em27][em26][em23][em24]

布衣铁剑 · 发表于 2005-8-6 08:55

顶上一个，慢慢研究

不像话哦,也来一个撒~~

jack.zhou · 发表于 2005-8-6 09:08

LongIII兄的分享精神值得敬佩!谢谢!

hongliang · 发表于 2005-8-6 11:57

谢谢高手们！

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