Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 222|回复: 3

[已解决]like 如何取區段日期及多條件

[复制链接]
发表于 2021-7-23 11:46 | 显示全部楼层 |阅读模式
請教各位先進,like 如何取區段日期及多條件,感謝.
最佳答案
2021-7-23 13:20
dou10801 发表于 2021-7-23 13:05
感謝cutecpu指點,If Cells(r, 1) >= MB1 And Cells(r, 1)

日期区间判断不是用 like
关键字查询才是用 like 喔

Like 运算子参考

多條件查詢5.rar

22.12 KB, 下载次数: 1

发表于 2021-7-23 12:32 | 显示全部楼层
Sub 按鈕5_Click()
    Sheets("工作表2").Range("a2:I100").ClearContents  '清除資料
    Worksheets("工作表1").Activate
    MA1 = Range("A2:c" & [A2].End(4).Row)
    MB1 = Cells(2, "L")
    MB2 = Cells(2, "M")
    MB3 = Cells(2, "N")
    K = 2
    '===========================================
    SrhKey = MB1 & MB2 & MB3
    For r = 2 To UBound(MA1) + 1
        If Cells(r, 1) >= MB1 And Cells(r, 1) <= MB2 And Cells(r, 2) = MB3 Then  '搜尋
    '===========================================
           For J = 1 To 8 '
               Sheets("工作表2").Cells(K, J) = Cells(r, J + 1)
           Next
           K = K + 1
        End If
    Next
Worksheets("工作表2").Activate
End Sub

祝順心,南無阿彌陀佛!



多條件查詢5.rar

22.9 KB, 下载次数: 4

回复

使用道具 举报

 楼主| 发表于 2021-7-23 13:05 | 显示全部楼层
本帖最后由 dou10801 于 2021-7-23 13:07 编辑
cutecpu 发表于 2021-7-23 12:32
Sub 按鈕5_Click()
    Sheets("工作表2").Range("a2:I100").ClearContents  '清除資料
    Worksheets(" ...

感謝cutecpu指點,If Cells(r, 1) >= MB1 And Cells(r, 1) <= MB2 And Cells(r, 2) = MB3 Then  我之前有試過,但在學[like]時不會用,是否用[like]查詢,謝謝.
回复

使用道具 举报

发表于 2021-7-23 13:20 | 显示全部楼层    本楼为最佳答案   
dou10801 发表于 2021-7-23 13:05
感謝cutecpu指點,If Cells(r, 1) >= MB1 And Cells(r, 1)

日期区间判断不是用 like
关键字查询才是用 like 喔

Like 运算子参考
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-9-16 19:10 , Processed in 0.257529 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表