VBA ---- 单、多条件筛选

单条件

> Option Base 1
> Function ScreenOne(ByVal sourceArr As Variant, ByVal filedName As String, ByVal screenStr As String) As Variant
>     Dim targetArr As Variant
>     Dim targetFiledCol As Integer
>     Dim col As Integer
>     Dim iFiledCol As Integer
>     Dim i As Integer, j As Integer, k As Integer
>     With sht
>         '获取搜索字段所在列号
>         targetFiledCol = 0
>         For iFiledCol = 1 To UBound(sourceArr, 2)
>             targetFiledCol = targetFiledCol + 1
>             If sourceArr(1, targetFiledCol) = filedName Then
>                 Exit For
>             End If
>         Next iFiledCol
>         rowCount = 0
>         For iRow = 2 To UBound(sourceArr, 1)
>             If sourceArr(iRow, targetFiledCol) = screenStr Then
>                 rowCount = rowCount + 1
>             End If
>         Next iRow
>
>         If rowCount = 0 Then
>             ReDim targetArr(1, UBound(sourceArr, 2))
>             For col = 1 To UBound(sourceArr, 2)
>                 targetArr(1, col) = sourceArr(1, col)
>             Next col
>             MsgBox filedName & " has no data names " & screenStr
>         Else
>
>             ReDim targetArr(1 To rowCount + 1, 1 To UBound(sourceArr, 2))
>             For col = 1 To UBound(sourceArr, 2)
>                 targetArr(1, col) = sourceArr(1, col)
>             Next col
>             k = 2
>             For i = 2 To UBound(sourceArr, 1)
>                 If sourceArr(i, targetFiledCol) = screenStr Then
>                     For j = 1 To UBound(sourceArr, 2)
>                         targetArr(k, j) = sourceArr(i, j)
>                     Next j
>                     k = k + 1
>                 End If
>             Next i
>         End If
>     End With
>     ScreenOne = targetArr
> End Function

多条件

> Function ScreenMore(ByVal sourceArr As Variant, ByVal filedName As String, ByVal screenArr As Variant) As Variant
>
>     Dim targetArr As Variant
>     Dim targetFiledCol As Integer
>     Dim col As Integer
>     Dim iScreen As Integer
>     Dim iFiledCol As Integer
>     Dim i As Integer, j As Integer, k As Integer
>     With sht
>         '获取搜索字段所在列号
>         targetFiledCol = 0
>         For iFiledCol = 1 To UBound(sourceArr, 2)
>             targetFiledCol = targetFiledCol + 1
>             If sourceArr(1, targetFiledCol) = filedName Then
>                 Exit For
>             End If
>         Next iFiledCol
>
>         rowCount = 0
>         For iRow = 2 To UBound(sourceArr, 1)
>             For iScreen = 1 To UBound(screenArr)
>                 If sourceArr(iRow, targetFiledCol) = screenArr(iScreen) Then
>                     rowCount = rowCount + 1
>                 End If
>             Next iScreen
>         Next iRow
>
>         If rowCount = 0 Then
>             ReDim targetArr(1, UBound(sourceArr, 2))
>             For col = 1 To UBound(sourceArr, 2)
>                 targetArr(1, col) = sourceArr(1, col)
>             Next col
>             MsgBox filedName & " has no data names " & screenStr
>         Else
>
>             ReDim targetArr(1 To rowCount + 1, 1 To UBound(sourceArr, 2))
>             For col = 1 To UBound(sourceArr, 2)
>                 targetArr(1, col) = sourceArr(1, col)
>             Next col
>             k = 2
>             For i = 2 To UBound(sourceArr, 1)
>                 For iScreen = 1 To UBound(screenArr)
>                     If sourceArr(i, targetFiledCol) = screenArr(iScreen) Then
>                         For j = 1 To UBound(sourceArr, 2)
>                             targetArr(k, j) = sourceArr(i, j)
>                         Next j
>                         k = k + 1
>                     End If
>                 Next iScreen
>             Next i
>         End If
>     End With
>     ScreenMore = targetArr
> End Function

仅供参考，不解释

https://python-selenium-zh.readthedocs.io/zh_CN/latest/5.Waits/

from selenium import webdriver
from selenium.webdriver.common.by import By
from selenium.webdriver.support.ui import WebDriverWait
from selenium.webdriver.support import expected_conditions as EC

class BasePage(object):
def init(self,chrome_driver,web_url):
self.chrome_driver_path=chrome_driver
self.web_url=web_url

    # 打开网页def SetUp(self):self.driver = webdriver.Chrome(self.chrome_driver_path)self.driver.maximize_window()self.driver.get(self.web_url)# 关闭网页def close_page(self):self.driver.quit()

class LoginPage(BasePage):
def init(self,chrome_driver,web_url):
BasePage.init(self, chrome_driver, web_url)
# 默认等待时间为20s
self.timeout = 20
def wait_input_element(self,ID_locator,input_text):
try:
WebDriverWait(self.driver, self.timeout).until(
EC.presence_of_element_located((By.ID, ID_locator))
).send_keys(input_text)
finally:
print(“yes”)
# driver.quit()

driver_path=r"C:\Program Files (x86)\Google\Chrome\Application\chromedriver.exe"
url =
driver=LoginPage(driver_path,url)
driver.SetUp()

Private Declare PtrSafe Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Sub QQ1722187970()
Dim hwnd As Long
'用内置的属性获得excel应用程序句柄
hwnd = Excel.Application.hwnd
'用 FindWindow获得excel应用程序句柄
i = FindWindow(vbNullString, “Restart Required”)
'对比两个句柄值
Debug.Print hwnd, i
End Sub

VBA ---- 单、多条件筛选相关推荐

Excel VBA 多条件筛选及汇总统计
Excel VBA 多条件筛选 AdvancedFilter 汇总统计 sumproduct Range与Array交换在日常工作中,面对Excel表格数据,为了分类进行统计,通过对表格数据筛选获取 ...
Excel·VBA多条件筛选组合结果
Function strTOF(str$) As Boolean'用于计算字符串判断True/False,默认返回False'适用vba比较运算符:速度比较慢,但通用Dim i&, j& ...
Excel VBA 高级编程-跨表格多条件筛选
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教!微信公众号 ...
【MySQL入门指北】第六篇按条件筛选
SQL 按条件筛选文章目录 SQL 按条件筛选 1.WHERE 子句 2.WHERE 语法 3.缺失值总结 1.WHERE 子句 WHERE 子句用于过滤记录.WHERE 子句用于提取那些满足指定 ...
thinkphp 多条件筛选如何实现，添加大于小于条件，时间范围查询
近期在做一个社区APP,管理后台中的文章管理功能涉及到了对文章进行一个条件筛选的功能,后台不是很懂,只能按照自己的思路来实现它: 管理界面中做一个表单,内容有:标题.作者.文章状态.起止时间范围等in ...
Android仿IOS封装通用的弹出框Dialog和底部弹出列表选择框仿美团顶部条件筛选框附自定义ViewGroup
弹出框背景提示与询问弹出框实现使用列表选择框实现使用顶部条件筛选框实现自定义ViewGroup 使用总结背景鉴于Android提供的默认弹出框很一般,IOS的弹出框样式还不错 ...
VBA代码实例---高级筛选
首先介绍Excel工作簿的内容进行说明:一个工作簿两个工作表,学生/高级筛选,七个字段: 实现功能:在高级筛选中, 做一个快速的条件筛选. Option ExplicitSub 高级筛选()'判断高级 ...
pandas使用组合条件筛选、过滤数据行
pandas使用组合条件筛选.过滤数据行目录 pandas使用组合条件筛选.过滤数据行 #仿真数据
Pandas常见的数据过滤方法、通过列条件筛选行数据
Pandas常见的数据过滤方法.通过列条件筛选行数据不废话了,直接看代码吧: 一般情况下,前面5种就覆盖了绝大多数需求 import pandas as pd import numpy as npd ...
python对excel进行筛选-PythonEXCEL读取-保存-矩阵合并-条件筛选
PythonEXCEL读取-保存-矩阵合并-条件筛选 2018-04-23 10:57阅读: 南北山泉博主很神秘,什么也没有留下~ 关注 # 监测点1的预处理,选出降雨量大于0的数据 import ...

VBA ---- 单、多条件筛选

VBA ---- 单、多条件筛选相关推荐

最新文章

热门文章