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

bl13927751826

正好哦，现在在搞统计，又正好遇到要用VBA解决的问题，不过没学过，先恶补

zhaohongyu

For i = 3 To xrow Step 1
    arr(j, 1) = sh.Cells(i, 2)
    arr(j, 2) = sh.Cells(i, 3)
    arr(j, 3) = sh.Cells(i, 5)
    arr(j, 4) = sh.Cells(i, 12)
    arr(j, 5) = sh.Cells(i, 11)
    j = j + 1
    Next

zhaohongyu

二维数组为什么被赋值为一个单元格的形式啊？还有，想把一个工作表中的内容有选择的复制到另一个工作表中，怎么表达？sheets1到sheet2/3等。。。

globsky

太好了，谢谢楼主分享

zyh196712

请老师看看我的代码如何才能提速，谢谢！
Sub Macro1() '....如果知道单元格的值，如何确定它所在的地址？比如如何确定“姓名”在哪一行哪一列，如何表示
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Columns("D:D").Insert Shift:=xlToRight
    Range("D1").FormulaR1C1 = "检查次数"
        Dim i As Long
            For i = 2 To Sheets(1).[a65536].End(xlUp).Row Step 1
                Cells(i, 4) = Application.WorksheetFunction.CountIf(Range("$c$1:c" & i), Range("c" & i)) '....用这个方法好慢，对原始数据足足运行了近半小时，想求一个用数组的方法。
                With Cells(i, 4)
                    If .Value > 1 And Cells(i, 5) <> Cells(i - 1, 5).Value Then
                       .Interior.ColorIndex = 3
                    Else: .Interior.ColorIndex = xlNone
                    End If
                End With'......或换成 Cells(i, 4).Interior.ColorIndex = IIf(Cells(i, 4).Value > 1 And Cells(i, 5) <> Cells(i - 1, 5).Value, 3, xlNone)
            Next
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

ttbt5020

偶然的机会来到论坛，虽然很早就听说VBA，但这么多年也就仅仅停留在“听说”上，现在因为工作的关系不得不从头开始学习
这个教程确实很吸引人，希望这次自己能坚持学习下去
因为个人的原因，还是比较习惯看PDF的文档（doc和PDF各有好处），所以花时间做了个PDF，说实话，还是第一次这么认真的复制一个帖子来慢慢排版，中途的时候因为不小心还来了一次覆盖，前功尽弃，只得重头再来，不过好处是比前一次看着要清晰那么一点
希望这个PDF能方便更多象我一样的初学者

ACC11111

(ByVal Target As Range)
请问这个是什么意思

橘子红了

打个记号。。。。。。。学习

xueyuguoke1

好好学习，天天向上，需要先明白各语句的含义哦

xueyuguoke1

可否在当前工作簿中设置VBA，然后在其它工作簿中实现？
另外，如果是网络使用，也就是说我作为邮件附件使用，还可以使用到另外的工作薄中吗？