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

xyz_1_2_3

请教： Addins 属性 问题是这样的：

If AddIns("Analysis ToolPak").Installed = True Then
    MsgBox "Analysis ToolPak add-in is installed"
Else
    MsgBox "Analysis ToolPak add-in is not installed"
End If

在这个语句中，Addins是Application的一个属性，其返回值是给Addins集合。那么，在addins的
集合里也没有Intalled的属性和方法。我不明白的为什么可以这样写呢？？？

多谢！！
                                                           菜鸟提问

Long_III

QUOTE:

以下是引用tobaccohy在2007-1-30 20:22:57的发言：

Sub FindMe()
    Dim intS As Integer
    Dim rngC As Range
    Dim strToFind As String, FirstAddress As String
    Dim wSht As Worksheet
    Application.ScreenUpdating = False
    intS = 1
    Set wSht = Worksheets("搜索结果") '设置查找的工作表，用一个变量wsht来表示
    strToFind = "您好" '指定搜索的值
    With ActiveSheet.Range("A1:C20") '可根据实际工作表改变范围.在这个范围里查找
        Set rngC = .Find(what:=strToFind, LookAt:=xlPart) '在范围里查找，非绝对匹配
        If Not rngC Is Nothing Then 如果找到的话
            FirstAddress = rngC.Address 用变量firstaddress来记录第一次找到的单元格的地址
                Do
                    rngC.EntireRow.Copy wSht.Cells(intS, 1) 如果找到单元格的整行到wsht里的a列最后一个单元格
                    intS = intS + 1 变量加1，用来确认最后一个单元格
                    Set rngC = .FindNext(rngC) 循环，在第一次找到的后面继续找下一个
                Loop While Not rngC Is Nothing And rngC.Address <> FirstAddress 当单元格可以找到且找到的单元格不是第一个时，继续执行循环
        End If
    End With
    Application.ScreenUpdating = True
End Sub

兰版请帮忙加下注释

FYI

Long_III

QUOTE:

以下是引用hjmnyz在2007-1-30 22:56:50的发言：

我来问一问

dim fd as string
fd = D:\我的文档\djgie.txt
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fd, Destination:=Range("A3"))
     .TextFileOtherDelimiter = "#" 
     .Refresh BackgroundQuery:=False
    End With
    End If

请录制一个导入外部数据的宏，这段就是导入text文件到excel里，这样的代码一般可录制宏得到

612321

sheet1的A列为当日出库数     H01      H03   H15 ............（录入当日的数据）
sheet2的 A列为库存数      H01   H02   H03   H04    H05  .....
在SHEET1中有控件，点击后直接在sheet2 中把包含SHEET1 表中所有数据  删掉
怎么写代码？

wjzm915

请求解释下面代码：

Private Sub CommandButton6_Click()
Application.ScreenUpdating = False
n = Sheet6.[b65536].End(xlUp).Row + 1
For i = Sheet2.[b65536].End(xlUp).Row To 5 Step -1
If Sheet2.Range("s" & i) = "" Or Sheet2.Range("s" & i) <= 0 Then
Sheet2.Select
Sheet2.Range("a" & i & ":ad" & i).Select
Selection.Copy
Sheets("人员花名册").Select
                  Sheets("人员花名册").Range("a" & n).Select
                  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sheet2.Rows(i).Delete
End If
n = n + 1
Next
MsgBox "ok"
Application.ScreenUpdating = True
Sheet1.Select
End Sub

okordin

Range("A1").FormulaR1C1 = "=ERROR(TRUE,R5C1)"

 

R1C1不是行一列一吗?前面又有Range("A1").看得晕...R1C1的用处和好处是什么?版主指教.

[em10]

banana0925

.Range(.Cells(2, 12), .Cells(a, 12)) = "=""F--""&trim(RC2)&trim(RC3)"
        .Range(.Cells(2, 12), .Cells(a, 12)).Copy
        .Range(.Cells(2, 12), .Cells(a, 12)).PasteSpecial Paste:=xlPasteValues
        Cells.Select
        Selection.Sort Key1:=Range("L2"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:=xlSortTextAsNumbers
        .Range(.Cells(2, 13), .Cells(a, 13)) = "=IF(RC[-1]=R[1]C[-1],0,1)"
        .Range(.Cells(2, 13), .Cells(a, 13)).Copy
        .Range(.Cells(2, 13), .Cells(a, 13)).PasteSpecial Paste:=xlPasteValues

yanghongchao

1010101010

zhxj7008

Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.Path & "\1.xls"
这个是什么意思？