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

Long_III

QUOTE:

以下是引用mmfei在2006-12-24 22:23:38的发言：

ActiveSheet.Shapes("图表 4").IncrementLeft 230.25
    ActiveSheet.Shapes("图表 4").IncrementTop -153#

上述语句中的图表名可以自定义吗，，

他的名字时自动往后编号的，，用在程序中间段老是出错

有办法解决吗？

建议发新贴并上传你的附件详细说明。

一般可以用循环处理，如

dim p as shape

for each p in sheet1.shapes

debug.print p.name

next

libra_0026

有人在吗？我有一段程序，可是我看不明白，谁能帮帮我！

先谢谢了

[em06]

冰山_2

下面的代码看不明白请老师帮助解释一下：

    

    For Each rng In Range("d2:o2")

            If rng.Interior.ColorIndex <> 39 Then

                If Xrng Is Nothing Then

                    Set Xrng = Range(Cells(5, rng.Column), Cells(irow, rng.Column))

                Else

                    Set Xrng = Application.Union(Xrng, Range(Cells(5, rng.Column), Cells(irow, rng.Column)))

                End If

            End If

        Next

        Xrng.Delete shift:=xlToLeft

        Range([a5], [a5].End(xlToRight)).Interior.ColorIndex = 35

Long_III

QUOTE:

以下是引用冰山_2在2006-12-29 17:52:05的发言：

下面的代码看不明白请老师帮助解释一下：

    

    For Each rng In Range("d2:o2") '在D2到O2里循环
        If rng.Interior.ColorIndex <> 39 Then '假设单元格的底色不等于39的话（可用[a1].Interior.ColorIndex = 39看看它对应的颜色）
            If Xrng Is Nothing Then '假设Xrng变量为空时，肯定开始有dim xrng as range，单元格变量
                Set Xrng = Range(Cells(5, rng.Column), Cells(irow, rng.Column)) '给单元格变量赋第一范围值
            Else
                Set Xrng = Application.Union(Xrng, Range(Cells(5, rng.Column), Cells(irow, rng.Column))) '把这些范围值合在一起
            End If
        End If
    Next       '如果这样不用if，而直接Set Xrng = Application.Union(Xrng, Range(Cells(5, rng.Column), Cells(irow, rng.Column)))
    '的话，由于union里必须为单元格，而xrng在没赋值前为nothing，不能在union函数里使用，故这里需先判断xrng为nothing

    Xrng.Delete shift:=xlToLeft '删除xrng单元格对应的范围，如果上面的循环最终所有的单元格都等于39的话，则xrng就为nothing
    '此时删除时就会保存，完整代码应该这样 if not xrng is nothing then xrng.delete shift:=xltoleft‘如果单元格存在则删除
    Range([a5], [a5].End(xlToRight)).Interior.ColorIndex = 35 '给单元格设置底色为35

Long_III

QUOTE:

以下是引用libra_0026在2006-12-29 15:47:25的发言：

有人在吗？我有一段程序，可是我看不明白，谁能帮帮我！

先谢谢了[em06]

请把代码发上来，让大家看看

或单独发贴求助

caohongliang

我才学，点都不会  从哪点学起

caohongliang

隐行密码塞

Long_III

QUOTE:

以下是引用caohongliang在2006-12-30 11:19:51的发言：

我才学，点都不会  从哪点学起

有一个入门贴，从基础慢慢看，慢慢试，不懂的就问，坚持一段时间你就会小有收获

三青

终于有机会找到学习的好地方。

小答应

Private Sub Frame2_Click()
    ActiveWorkbook.Names.Add Name:="ListValue", RefersToR1C1:= _
        "=OFFSET(Columns!R2C1,,,COUNTA(Columns!C1)-1,3)"
 Dim Erow As Integer
     Erow = Worksheets("Columns").Range("A65536").End(xlUp).Row
 With Me.ListBox1
    .ColumnCount = 3
    .BackColor = &HFFFF00
    .ColumnHeads = True
    .ColumnWidths = "80,50,30"
    .RowSource = Range("ListValue").Address(External:=True)
 End With
End Sub

能不能帮我解释一下这段代码?

[此贴子已经被作者于2006-12-31 16:05:20编辑过]