带你入门VBA系列之：不懂的代码快点贴过来

jiangrushu · 发表于 2006-9-14 16:18

Sub yy()
Dim i%, j%, k%
k = Application.WorksheetFunction.CountIf(Columns(8), ">0")
With Sheet2
For i = .[a65536].End(xlUp).Row To 9 Step -1
If IsDate(.Cells(i, 1)) Then .Rows(i).Delete
Next i
.Activate
.Rows(9).ClearContents
.Rows(9).Copy
If k > 9 Then
.Rows("10:" & 9 + k).Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    Else
    .Rows("10:18").Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    End If
    End With
j = 9
For i = 2 To [a65536].End(xlUp).Row
If IsNumeric(Cells(i, 8)) Then
With Sheet2
.Cells(j, 1) = Format(Cells(i, 9), "yyyy/m/d")
.Cells(j, 2) = Cells(i, 2)
.Cells(j, 7) = Cells(i, 8)
j = j + 1
End With
End If
Next
Sheet2.Cells(j, 2) = "以下空白"
End Sub

这段代码能不能解释一下,谢谢!!!

jiangrushu · 发表于 2006-9-15 22:57

    Dim sht1 As Worksheet
    Dim sht2 As Worksheet
    Dim sht3 As Worksheet
    Dim n, m, k As Integer
    Dim arr2 As Integer
    arr2 = Range("基本信息!a2:基本信息!gb2")

    Set sht1 = Worksheets("基本信息")
    Set sht2 = Worksheets("统计报表")
    Set sht3 = Worksheets("信息备份")
    n = sht2.Range("A3000").End(xlUp).Row + 1
    sht2.Cells(n, 1) = sht2.Cells(n, 1) + n - 2
    sht2.Cells(n, 2) = sht1.Range("B2")
    sht2.Cells(n, 3) = sht1.Range("H2")
    sht2.Cells(n, 4) = sht1.Range("C2")
    sht2.Cells(n, 5) = sht1.Range("F10")
    sht2.Cells(n, 6) = sht1.Range("M2")
    sht2.Cells(n, 7) = sht1.Range("FV2")
    sht2.Cells(n, 9) = sht1.Range("F11")
    m = sht3.Range("A3000").End(xlUp).Row + 1
    For k = 1 To 184
    sht3.Cells(m, k) = arr2(1, k)   '为什么这个地方,电脑提示编译错误,缺少数组
    Next

paper1222 · 发表于 2006-9-17 22:17

请问楼主：Application.ScreenUpdating = False 是什么意思？谢谢

bsasseen · 发表于 2006-9-18 16:43

Sub Macro1()
[g2].FormulaArray = "=TEXT(LARGE((R2C[-1]:R250C[-1]=RC[-1])*(R2C[-3]:R250C[-3])*(R2C[-6]:R250C[-6]=RC[-6]),1)-LARGE((R2C[-1]:R250C[-1]=RC[-1])*(R2C[-3]:R250C[-3])*(R2C[-6]:R250C[-6]=RC[-6]),SUMPRODUCT(1*(R2C[-1]:R250C[-1]=RC[-1])*(R2C[-6]:R250C[-6]=RC[-6]))),""hh:mm:ss"")"
[g2].AutoFill [G2:G250]
End Sub

能帮我解释一下，整个语句的意思嘛！

HXJWC · 发表于 2006-9-20 19:38

真是一个学VBA 的好地方.收藏起来. 3Q

RPYang · 发表于 2006-9-22 11:42

有谁能告诉我，我现在一点都不懂VbA，应该怎么入门，要看那些书，有高人指点吗？

爱excel · 发表于 2006-9-22 17:15

Sheets("数据库").Rows("3:3").lnsert shift:=xlDown 请问这一句是什么意思？有错误吗？

gorden_d · 发表于 2006-9-24 00:12

受益良多，谢谢。

kfzlzxtfl · 发表于 2006-9-29 00:07

Rows("1:3") 当是变量如等为x时怎样表示，不能写成Rows("X:X+3")

Range("A1:B1").Merge 也示上题时怎样设定变量，不能写成Range(cells(X,1):cells(x,2))

我不知怎样写了，请教

　　　　　　　　　　　回我信箱:Sg8772108@126.com

万分感谢

绯红之王 · 发表于 2006-9-29 22:29

我有一段代码不清楚

不过估计清楚的没几个

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