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

killerwwww

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i%, rg As Range
  i = [D3]
  If i < 1 Or i > 12 Then Exit Sub
  For Each rg In Target
    If Not Application.Intersect(rg, Range("C6:C11")) Is Nothing Then Sheets("xzq2").Cells(Target.Row - 1, i + 2).Value = rg.Value
  Next rg
End Sub

killerwwww

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i%, rg As Range
  i = [D3]
  If i < 1 Or i > 12 Then Exit Sub
  For Each rg In Target
    If Not Application.Intersect(rg, Range("C6:C11")) Is Nothing Then Sheets("xzq2").Cells(Target.Row - 1, i + 2).Value = rg.Value
  Next rg
End Sub

这里我只看明白了这是一个用于当前打开工作簿的子程序，好象Target是一个变量，但Worksheet_Change(ByVal Target As Range)没明白是什么意思？

i是一个变量，它等于当前工作表的D3单元格的值

如果变量i超过1--12这个范围，就退出该子程序，如果i在1--12之间，就往下执行。

For Each rg In Target
    If Not Application.Intersect(rg, Range("C6:C11")) Is Nothing Then Sheets("xzq2").Cells(Target.Row - 1, i + 2).Value = rg.Value
  Next rg
没有看明白。

asat

向高手们致敬!

VB燕子

谢谢清风老师回答我的问题，顺利通过了~~~

supper-ST

Dim MyData as DataObject
MyData.SetText( range("a1").value) 

cuang2002

Sub lsy()
    On Error Resume Next
    Dim c, i%, j%, fd, sht As Worksheet
    For i = 2 To Range("A65536").End(xlUp).Row Step 5
        For Each sht In Worksheets
            If sht.Name <> "汇总" Then
                With sht.Columns(1)
                    Set c = .Find(Cells(i, 1))
                    If Not c Is Nothing Then
                        fd = c.Address
                       
                        Do
                            For j = 1 To 5
                                Cells(i, 1).Offset(j - 1, Rows(1).Find(sht.Name).Column - 1) = Cells(i, 1).Offset(j - 1, Rows(1).Find(sht.Name).Column - 1) + c.Offset(0, j)
                            Next
                                
                            Set c = .FindNext(c)
                        Loop While Not c Is Nothing And c.Address <> fd
                    End If
                End With
            End If
        Next
    Next
End Sub

请各大虾们帮我看一下我加粗字体的语句是什么意思。。看不懂。。

supper-ST

Sub 按钮7_单击()'用数组筛选不重复数据
Dim i&, j&, p&, q&, k&, arr, arr1(1 To 10000, 0)
p = [a65536].End(xlUp).Row
[i:i].ClearContents
arr = Range("a1:a" & p)
k = 1: i = 1: arr1(1, 0) = arr(1, 1)'这句严重不明白
Do While i < p + 1
   For j = 1 To k
      If arr(i, 1) = arr1(j, 0) Then GoTo l
   Next j
   k = k + 1
   arr1(k, 0) = arr(i, 1)
l:
i = i + 1
Loop
[i1:i10000] = arr1'这句也严重不明

End Sub

Dong2000

Public Sub GetJzdStack(stkJzd As StackJzItem, 记帐开始日期 As Date, 记帐结束日期 As Date)
'生成记帐单堆栈
Dim rs As DAO.Recordset
Dim Jzd As typJz

Set rs = dbJz.OpenRecordset("select 编号 from 记帐 " _
                           & "where 记帐日期>=#" & CStr(记帐开始日期) & "# and 记帐日期<=#" & CStr(记帐结束日期) & "# " _
                           & "order by id desc")
                          
                          
Do Until rs.EOF
  GetJzd Jzd, rs.Fields!编号
  stkJzd.Push Jzd
  rs.MoveNext
Loop

End Sub

请重点解释一下红色代码和什么是堆栈？谢谢。

懒猪猪

你们都是高手哦，我看得一头雾水。急啊

lps123456

好地方