在Excel VBA中查找功能

阿美屋

我想搜索属于一个月的所有日期。用户将选择月份。我无法搜索所有日期,只能得到输入的最后一个日期。我正在使用查找功能,无法提供具体条件。

    mois = InputBox("Choisissez le mois (Entrer la valeur Numérique)!!! (1 pour Janvier, 2 pour Fév .... )", "Titre")
   If mois > 0 & mois < 12 Then
    ' Search for matching date
    Set cellsearch = Range("G1:G" & NbrLinesDate).Find(What:=mois_chercher)

    If cellsearch Is Nothing Then
        If mois < 0 Then
        ElseIf mois > 12 Then
        End If
    Else
    ligne = cellsearch.Row
    Date_to_search = Range("G" & ligne).Value
End If
End If
    MsgBox Date_to_search                           '' Checkpoint_1
    JourTest = Day(Date_to_search)
    JourTest = Trim(JourTest)
    MsgBox JourTest                                 '' Checkpoint_2

Mois是变量,用于存储用户提供的月份值。在这段代码中,我没有使用此变量mois搜索属于该月的日期。我无法实现这一目标。

Date_de_Survenance
 30/01/2013
 31/01/2013
 31/01/2013
 04/02/2013
 05/02/2013
 07/02/2013
 11/02/2013
 13/02/2013
 13/02/2013
 13/02/2013
 15/02/2013
 20/02/2013
悉达思·劳特(Siddharth Rout)

请参阅此示例。我不是使用Inputbox来接受输入,而是使用硬编码值来进行演示。

可以说您的Excel数据如下所示。

在此处输入图片说明

只需将此代码粘贴到模块中并运行即可。

代码

'
' Excel Constants for Months for Autofilter
'
'   xlFilterAllDatesInPeriodJanuary = 21
'   xlFilterAllDatesInPeriodFebruray = 22
'   xlFilterAllDatesInPeriodMarch = 23
'   xlFilterAllDatesInPeriodApril = 24
'   xlFilterAllDatesInPeriodMay = 25
'   xlFilterAllDatesInPeriodJune = 26
'   xlFilterAllDatesInPeriodJuly = 27
'   xlFilterAllDatesInPeriodAugust = 28
'   xlFilterAllDatesInPeriodSeptember = 29
'   xlFilterAllDatesInPeriodOctober = 30
'   xlFilterAllDatesInPeriodNovember = 31
'   xlFilterAllDatesInPeriodDecember = 32


Sub Sample()
    Dim ws As Worksheet
    Dim lRow As Long, lMnth As Long, constmonth As Long

    '~~> Feb
    lMnth = 2
    constmonth = lMnth + 20 '~~> (See the commented section for constants)

    '~~> Change this to the relevant sheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row

        '~~> Remove any filters
        .AutoFilterMode = False

        With .Range("A1:A" & lRow)
            .AutoFilter Field:=1, Criteria1:= _
            constmonth, Operator:=xlFilterDynamic
        End With
    End With
End Sub

输出

在此处输入图片说明

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

我使用查找功能在vba Excel中查找单词

来自分类Dev

Excel VBA-查找功能-查找变量

来自分类Dev

带IF的VBA Excel中的功能

来自分类Dev

Excel VBA中的查找功能仅引用新创建的工作表

来自分类Dev

VBA Excel:在另一个工作簿中查找字符串的功能

来自分类Dev

使用查找功能并使结果单元格在excel VBA中作为选择

来自分类Dev

Excel VBA查找功能需要很长时间

来自分类Dev

在Excel VBA中查找并替换循环

来自分类Dev

简单功能中的奇怪输出-Excel VBA

来自分类Dev

VBA EXCEL Google查找

来自分类Dev

Excel VBA查找#N / A

来自分类Dev

Excel VBA 查找

来自分类Dev

圆形功能VBA EXCEL

来自分类Dev

在 Excel 中的后续列中重复 VBA 查找

来自分类Dev

查找`find`方法在excel vba中是否不返回`

来自分类Dev

通过Outlook VBA从Excel附件中查找LastRow

来自分类Dev

在Col A中查找更改,并使用Excel VBA插入4行

来自分类Dev

VBA Excel中-查找字符串通配符

来自分类Dev

Excel VBA-将查找结果存储在范围变量中

来自分类Dev

Excel VBA:vlookup在日期范围表中查找日期行

来自分类Dev

使用VBA代码在Excel中查找循环链接

来自分类Dev

在Excel 2010中查找和替换VBA /宏

来自分类Dev

从Excel VBA查找在Word中不起作用

来自分类Dev

在单元格Excel VBA中查找最小值

来自分类Dev

通过Outlook VBA从Excel附件中查找LastRow

来自分类Dev

Excel VBA 在单行的两列中查找数据

来自分类Dev

VBA(Excel)中的查找函数找不到最小值

来自分类Dev

Excel VBA 在 .txt 文件中查找/替换文本

来自分类Dev

VBA最小化Excel中的功能区