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

Long_III

QUOTE:

以下是引用tengsz在2007-1-16 16:04:19的发言：

锁定单元格区域的代码知道，如：

Sheet1.ScrollArea = "A1:T22"

请问：解除上述单元格区域锁定代码如何写？

Sheet1.ScrollArea = ""

3rdfang

请帮忙：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$12" Or Target.Address = "$B$12" Or Target.Address = "$C$12" Then
        Range("a17:F65536").Clear
        Set X = CreateObject("ADODB.Connection")
        X.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no;';data source=" & ThisWorkbook.FullName（指该ＥＸＣＥＬ文件？）
        Sql = "select * from [sheet1$A3:F9]"
        If [a12] <> "" Then
            Sql = Sql & " where f1=" & [a12] & ""
            If [b12] <> "" Then Sql = Sql & " and f2=" & [b12] & ""
            If [c12] <> "" Then Sql = Sql & " and f3='" & [c12] & "'"（为什么F2与F3不一样？区别在哪里？F1/F2/F3是不是随便定义的？）
        Else
            If [b12] <> "" Then
                Sql = Sql & " where f2=" & [b12] & ""
                If [c12] <> "" Then Sql = Sql & " and f3='" & [c12] & "'"
            Else
                If [c12] <> "" Then
                    Sql = Sql & " where f3='" & [c12] & "'"
                End If
            End If
        End If
        Set yy = X.Execute(Sql)这句话是什么意思？
        Sheet1.[a17].CopyFromRecordset yy
        Set yy = Nothing: Set X = Nothing
    End If
End Sub

凡人无忧

谢谢Long_III 天王，放这好多天了，以为不会有人发现了呢~感激之心无法言表~我会好好向你学习的~

zhang2

好

Long_III

To 3rdfang，你的代码是以ADO方式来编写的，很多人都不会

建议你单独发贴求助，附上自己的附件，给爱歌版主短信试试

chenxi2911

[u3].Resize([b3].End(xlDown).Row - 2, 1) = "=rc9+rc11+rc13-rc15"
这是什么意思，请老师指点。这是什么函数，用法是什么？[em06]

CONG65

在SHEET1上有记录,用USERFORM查询并修改后,一旦保存到SHEET2中,能够在SHEET1中使该条记录变没有或者变颜色,或者在原该条记录上做个标记,代码该如何写?

谢谢大哥

CONG

Long_III

QUOTE:

以下是引用chenxi2911在2007-1-19 14:05:26的发言：
[u3].Resize([b3].End(xlDown).Row - 2, 1) = "=rc9+rc11+rc13-rc15"
这是什么意思，请老师指点。这是什么函数，用法是什么？[em06]

前面部分，Resize(行，列)，重置大小，如[a1].resize(2,1)，表示[a1:a2]，[a1].resize(3,3)表示[a1:c3]

后面的是一个公式，RC是一种显示单元格的方式，R表示行，C表示列，RC9表示的是一个单元格，即当前行的第9列的单元格，其他类似

两个点都可以搜索帮助

Long_III

QUOTE:

以下是引用CONG65在2007-1-19 17:13:25的发言：

在SHEET1上有记录,用USERFORM查询并修改后,一旦保存到SHEET2中,能够在SHEET1中使该条记录变没有或者变颜色,或者在原该条记录上做个标记,代码该如何写?

谢谢大哥

CONG

建议单独发贴求助，并上传你的附件说明问题

CONG65

谢谢GG

能够说清楚点吗?我还是不懂.

万分感谢