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

mxflyy

可不可以告诉我，如果我想输入一个值代出另一个值，代码要怎么写，谢谢

花生8

兰老师您好!

我个问题想请教,如何选择一张表内的全部行和列!我使用巨集录制,

得到的语句为:   ActiveCell.Cells.Select

               Selection.copy

但是我重新写进程序里时,却行不通,选中的只是一个单元格,请问这是为什么!请兰老师邦助一下,多谢!

lzpwcysbx

小白问题：创建一个宏后，怎样才能运行它．代码直接贴到编辑器里，然后运行是不是就可以了．

boykgl

Sub aTry()
  Dim i%, j%
  Dim dt1 As Date, dt2 As Date, bz%, cnt%, ct1, ct2
  Dim arrs, arrd
  dt1 = [b1]
  dt2 = [d1]
  bz = [b2]
  arrs = Sheets("数据源").Range("A2:F" & Sheets("数据源").[a65536].End(xlUp).Row)
  ReDim arrd(1 To UBound(arrs), 1 To 4)
  ct1 = 0
  ct2 = 0
  cnt = 0
  For i = 1 To UBound(arrs)
    If arrs(i, 1) < dt1 Or arrs(i, 1) > dt2 Or arrs(i, 3) <> bz Then GoTo nxt
    For j = 1 To cnt
      If arrs(i, 4) = arrd(j, 1) Then Exit For
    Next j
    If j > cnt Then
      cnt = j
      arrd(j, 1) = arrs(i, 4)
    End If
    If arrs(i, 2) = "D生产领货" Then
      arrd(j, 2) = arrd(j, 2) + arrs(i, 6)
      arrd(j, 4) = arrd(j, 4) + arrs(i, 6)
      ct1 = ct1 + arrs(i, 6)
    ElseIf arrs(i, 2) = "E车间成品" Then
      arrd(j, 3) = arrd(j, 3) + arrs(i, 6)
      arrd(j, 4) = arrd(j, 4) - arrs(i, 6)
      ct2 = ct2 + arrs(i, 6)
    End If
nxt:
  Next i
  [a4:d10] = arrd
  [b11] = ct1
  [c11] = ct2
  [d11] = ct1 - ct2
End Sub

tobaccohy

Private Sub CommandButton1_Click()
    Dim Sql$
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=NO';Data Source=" & ActiveWorkbook.FullName
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "汇总" Then
             With Sheets("汇总")
             rowend = Application.WorksheetFunction.Max(.[E65536].End(xlUp).Row, .[H65536].End(xlUp).Row, .[M65536].End(xlUp).Row) + 1
             Sql = "Select * FROM [" & Sheets(i).Name & "$A5:O15] where f5<>null or f8<>null or f13<>null"
             .Cells(rowend, 1).CopyFromRecordset cn.Execute(Sql)
             End With
        End If

Tailor

我在写代码时用到

Dim rs As DAO.Recordset

系统提示DAO.Recordset未定义

我不知道要怎么定义,还请老师给予指点.

[em04]

Tailor

在程序中,我想知道最后一行的行号是多少,用什么样的方法去实现呀.

只知道在EXCEL中用公式=row()

688627100

这是走论坛上下的SQL查询方面的代码,不太懂,还请老师指教!!

Private Sub CommandButton1_Click()
Dim sql$
Set conn = New ADODB.Connection
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1;';data source=" & ThisWorkbook.Path & "\数据区.xls"
sql = "select * from [sheet1$]"
[a2].CopyFromRecordset conn.Execute(sql)
conn.Close: Set conn = Nothing
End Sub

lsjlyh

ActiveWorkbook.Names.Add Name:="ActiveR", RefersToR1C1:=Target.Row

看不懂，只知道它的作用：在一定区域，所在单元格行如要这片区域就会在该区域这行单元格显色

求教大侠