老师，能否教下我下面代码的含义，谢谢

吉仔

请教各位老师，能否教下我下面两段代码的意思，谢谢


Sub 筛选()
Application.ScreenUpdating = False
Dim ob As OLEObject
yf = [h1]
If yf = "" Then MsgBox "请输入月份！": End
r = Cells(Rows.Count, 2).End(xlUp).Row
AutoFilterMode = False
Rows(2).AutoFilter
For Each ob In ActiveSheet.OLEObjects
    If ob.Object.Value = True And Left(ob.Name, 12) = "OptionButton" Then
        If ob.Object.Caption = "全部" Then GoTo 10
        mc = Replace(ob.Object.Caption, "公司", "")
        Range("a2:h" & r).AutoFilter Field:=2, Criteria1:=yf, Operator:=xlAnd
        Range("a2:h" & r).AutoFilter Field:=3, Criteria1:=mc, Operator:=xlAnd
        Exit For
    End If
Next
10:
Application.ScreenUpdating = True
End Sub






Sub Macro1()
'
' Macro1 Macro
'

'
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="1,2,3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With
End Sub

蓝桥玄霜

对完全没有VBA基础的人解释代码，就如同一个老师要教一个小学生学高等数学，你知道的会有多难教。     
如果一句也不懂又有强烈兴趣学VBA的，建议从看一本VBA入门书开始学习。

7176386

1. Sub 筛选()                                                                      '子过程 筛选()
   
2.     Application.ScreenUpdating = False                                          '关闭屏幕刷新
   
3.     Dim ob As OLEObject                                                         '定义局部变量 ob 为OLEObject
   
4.     yf = [h1]                                                                   'yf=[h1]
   
5.     If yf = "" Then MsgBox "请输入月份！": End                                  '如果yf=空值 那么 <消息框>："请输入月份！":结束
   
6.     r = Cells(Rows.Count, 2).End(xlUp).Row                                      'r=单元格坐标(行数值,2 )的<末端>(方向向上 )的行标
   
7.     AutoFilterMode = False                                                      'AutoFilterMode=False
   
8.     Rows(2).AutoFilter                                                          '<行>坐标(2 )的自动筛选
   
9.     For Each ob In ActiveSheet.OLEObjects                                       '设定循环变量的范围为：每一个ob 位于  活动工作表的OLEObjects
   
10.         If ob.Object.Value = True And Left(ob.Name, 12) = "OptionButton" Then   '如果 ob的对象的值=True 并且 <截取字符串左侧>( ob的名称,12)="OptionButton" 那么
    
11.             If ob.Object.Caption = "全部" Then GoTo 10                          '如果 ob的对象的标题="全部" 那么  跳至10
    
12.             mc = Replace(ob.Object.Caption, "公司", "")                         'mc=<替换字符串>( ob的对象的标题,"公司","")
    
13.             Range("a2:h" & r).AutoFilter Field:=2, Criteria1:=yf, Operator:=xlAnd  '单元格区域("a2:h" & r )的自动筛选Field=2,Criteria1=yf,操作符=xlAnd
    
14.             Range("a2:h" & r).AutoFilter Field:=3, Criteria1:=mc, Operator:=xlAnd  '单元格区域("a2:h" & r )的自动筛选Field=3,Criteria1=mc,操作符=xlAnd
    
15.             Exit For                                                            '退出当前for循环,执行NEXT后面的语句
    
16.         End If                                                                  'If判断过程结束
    
17.     Next                                                                        '下一个
    
18.     10:                                                                         '10:
    
19.     Application.ScreenUpdating = True                                           '开启屏幕刷新
    
20. End Sub                                                                         '子过程结束
    
21. 
    
22. Sub Macro1()                                                                    '子过程 Macro1()
    
23.     With Selection.Validation                                                   '工作于  选中的数据有效性
    
24.         .Delete                                                                 '<With对象>的删除
    
25.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=        xlBetween, Formula1:="1,2,3"  
    
26. '<With对象>的添加 类型=值必须存在于指定列表中,警告类型=停止图标,操作符=介于,公式1="1,2,3"
    
27. 
    
28.         .IgnoreBlank = True                                                     '<With对象>的忽略空白值=True
    
29.         .InCellDropdown = True                                                  '<With对象>的InCellDropdown=True
    
30.         .InputTitle = ""                                                        '<With对象>的“输入信息”对话框的标题=空值
    
31.         .ErrorTitle = ""                                                        '<With对象>的出错警告对话框的标题=空值
    
32.         .InputMessage = ""                                                      '<With对象>的输入信息提示=空值
    
33.         .ErrorMessage = ""                                                      '<With对象>的出错警告对话框的错误信息=空值
    
34.         .IMEMode = xlIMEModeNoControl                                           '<With对象>的输入法模式=无控制
    
35.         .ShowInput = True                                                       '<With对象>的ShowInput=True
    
36.         .ShowError = True                                                       '<With对象>的ShowError=True
    
37.     End With                                                                    'With语句结束
    
38. End Sub                                                                         '子过程结束

复制代码

吉仔

蓝桥玄霜 发表于 2023-2-7 11:23
对完全没有VBA基础的人解释代码，就如同一个老师要教一个小学生学高等数学，你知道的会有多难教。     
如 ...

谢谢老师，正在学习中

吉仔

7176386 发表于 2023-2-7 11:56

谢谢谢谢帮助

tanglf188

上一段是筛选的，下一段是添加数据验证（下拉列表）