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

cary2009

看了几天，受益非浅啊，终天找到组织了，对楼主致于最诚挚的感谢！！！
小菜鸟，要慢慢飞～～

jhonsun

太好了，多谢！！！！

trustwxq

老师好：下面代码中的Timer我查了一下Help，说他返回的是一个Single，那在下面的定义中Dim start As Double改为Dim start As Single是不是会更合适一些，物尽其用嘛！
Sub mysub()
  Dim start As Double
  start = Timer
MsgBox "程序共执行了" & Timer - start & "秒!"
End Sub

wshcw

详细看一看,讲得很生动,我应该能入门.

moon2778

原帖由 wshcw 于 2009-9-22 15:07 发表
详细看一看,讲得很生动,我应该能入门.

一定可以的啦。老师加油。

zznjcs

这几天好忙,都忘记来报到.
补上.

zhouzhijie

我最近好想学习这个，多多谢了

zyh196712

真对不起，我是一个笨笨鸟，到现在循环语句还弄不明白，我把那个P值试了一下，会复制4次同一张表，惭愧啊！
另我改写了IF语句（应是这句出错吧？），但还是不成功，不知应该怎样写，还是那里写错了，请指教，谢谢！
Sub mysub()
    Application.ScreenUpdating = False
    Dim start As Double
      start = Timer
    Sheets(1).[b3:f65536].ClearContents
    For i = 2 To 8
        aa = Sheets(1).[b65536].End(xlUp).Row + 1
        bb = Sheets(i).[b65536].End(xlUp).Row
    If Sheets(i).Range("A3").Value = Sheets(1).Range("a" & aa).Value Then
        Sheets(i).Range("b3:c" & bb).Copy
        Sheets(1).Cells(aa, 2).PasteSpecial (xlPasteValues)
        Sheets(i).Range("e3:e" & bb).Copy
        Sheets(1).Cells(aa, 4).PasteSpecial (xlPasteValues)
        Sheets(i).Range("k3:k" & bb).Copy
        Sheets(1).Cells(aa, 6).PasteSpecial (xlPasteValues)
        Sheets(i).Range("l3:l" & bb).Copy
        Sheets(1).Cells(aa, 5).PasteSpecial (xlPasteValues)
        End If
      Next
    MsgBox "程序共执行了" & Timer - start & "秒!"
  Application.ScreenUpdating = True
End Sub

zznjcs

原帖由 zyh196712 于 2009-9-22 21:11 发表
真对不起，我是一个笨笨鸟，到现在循环语句还弄不明白，我把那个P值试了一下，会复制4次同一张表，惭愧啊！
另我改写了IF语句（应是这句出错吧？），但还是不成功，不知应该怎样写，还是那里写错了，请指教，谢 ...

i,aa,bb三个变量没有定义.

nisimpossible

努力学习中