学习vba中求大神指点这穿代码的每一句的意思

丿丶微笑

Private Sub Worksheet_Change(ByVal Target As Range)
Dim brr(1 To 9999, 1 To 11)
Application.ScreenUpdating = False
If Target.Address(0, 0) = "F1" Then
If Len(Target) = 0 Then
Exit Sub
Else
arr = Sheet2.UsedRange
For i = 5 To UBound(arr)
If arr(i, 5) = Target Then
m = m + 1
For j = 1 To 11
brr(m, j) = arr(i, j + 1)
Next
End If
Next
If m Then Range("a7:k" & Rows.Count).ClearContents: [a7].Resize(m, 11) = brr
End If
End If
Application.ScreenUpdating = True
End Sub

740688321

在论坛泡1000  个小时，就明白了

liulang0808

欢迎新朋友
楼主这代码要结合附件看吧，表格change事件。
当前f1单元格输入数据的时候，就要遍历Sheet2里的数据，进行对比
提取数据
没有附件，简要描述

小花鹿

这代码谁写的，好歹缩进一下，看着真累                                                                                   

chis3

逐句說說到何時,買本書本學學

ャ想想ャ

liulang0808 发表于 2019-8-2 21:36
欢迎新朋友
楼主这代码要结合附件看吧，表格change事件。
当前f1单元格输入数据的时候，就要遍历Sheet2里 ...

大神，能来我刚发的贴子指教一二吗？

yooha

凑合看吧
Private Sub Worksheet_Change(ByVal Target As Range)'私有Worksheet_Change事件,Target As Range
Dim brr(1 To 9999, 1 To 11)'申明二维数组
Application.ScreenUpdating = False'关闭屏幕刷新
If Target.Address(0, 0) = "F1" Then'假如选中单元格[F1]
If Len(Target) = 0 Then'假如为空
Exit Sub'退出
Else'否则
arr = Sheet2.UsedRange'定义数组arr
For i = 5 To UBound(arr)'使i从5到aar数组末位
If arr(i, 5) = Target Then'假如arr(i,5)=选中单元格值
m = m + 1'm=m+1
For j = 1 To 11'使j从1到11
brr(m, j) = arr(i, j + 1)'数组brr(m, j) 赋值为 arr(i, j + 1)
Next'下一个j
End If'结束if arr(i, 5) = Target Then
Next'下一个i
If m Then Range("a7:k" & Rows.Count).ClearContents: [a7].Resize(m, 11) = brr'目标区域赋值
End If'结束If Len(Target) = 0 Then
End If'结束If Target.Address(0, 0) = "F1" Then
Application.ScreenUpdating = True'启用屏幕刷新
End Sub'结束

lingdo2001

用论坛里的VBA程序解释器可以生成VBA释义，效果如下：
Private Sub Worksheet_Change(ByVal Target As Range)                                  '私有的子程序 Worksheet_Change(变量Target 为 单元格区域)
Dim brr(1 To 9999, 1 To 11)                                                          '定义变量 brr(1到9999,1到11)
Application.ScreenUpdating = False                                                   'Application.ScreenUpdating=False
If Target.Address(0, 0) = "F1" Then                                                  '如果 Target.Address(0,0)="F1" 则执行
    If Len(Target) = 0 Then                                                           '如果 Len(Target)=0 则执行
       Exit Sub                                                                       '退出子程序
       Else                                                                           '否则
       arr = Sheet2.UsedRange                                                         'arr=Sheet2.UsedRange
       For i = 5 To UBound(arr)                                                       '设定变量范围为i=5到UBound(arr)
          If arr(i, 5) = Target Then                                                  '如果 arr(i,5)=Target 则执行
             m = m + 1                                                                'm=m+1
             For j = 1 To 11                                                          '设定变量范围为j=1到11
                brr(m, j) = arr(i, j + 1)                                             'brr(m,j)=arr(i,j+1)
             Next                                                                     '下一个
          End If                                                                      'End如果
       Next                                                                           '下一个
       If m Then Range("a7:k" & Rows.Count).ClearContents: [a7].Resize(m, 11) = brr   '如果 m 则执行 单元格区域("a7:k" & 行数值).ClearContents:[a7的Resize(m,11)=brr
       End If                                                                         'End如果
    End If                                                                            'End如果
    Application.ScreenUpdating = True                                                 'Application.ScreenUpdating=True
End Sub                                                                              'End子程序
                                                                                      '

lzqlaj

lingdo2001 发表于 2019-8-3 17:14
用论坛里的VBA程序解释器可以生成VBA释义，效果如下：
Private Sub Worksheet_Change(ByVal Target As Ra ...

VBA程序解释器作用强大。