Tag: 找不到

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

我试图在列表中find一个id并得到它的地址，但是如果没有发现，也要处理一个情况。 这是我有： Function find_in_two_ranges_two_sheets(ws1 As String, col1 As Integer) As Range Dim rows1 As Integer rows1 = Get_Rows_Generic(ws1, 1) Dim range1 As Range ' range of first search With Worksheets(ws1) Set range1 = .Range(.Cells(1, col1), .Cells(rows1, col1)) End With Dim found1 As Range Set found1 = range1.Find("test id", LookIn:=xlValues) If found1 = Nothing Then MsgBox […]

VBA查找返回“没有”在用户窗体中

我有一个工作表，其中列“A”到“我”充满了数据。 列a包含从2011年11月30日至2011年6月12日的date。 我有一个用户窗体，其中有2个选项button。 select第一个时，将使用所有date。 当第二个被选中的文本框可以用来input一个开始和结束date。 这些date用于创build一个包含所有数据/选定时间间隔的范围。 我使用.find来创build一个选定的开始和结束date范围。 我为此写了一个代码，它在单独的模块中工作，但是我无法在用户表单中工作，因为range.Find返回“ range.Find ”。 我花了一段时间让它在模块中工作，因为range.find很难与date结合使用，但现在它的工作原理我不知道为什么它不能在用户窗体中工作。 我已经广泛search论坛，但找不到任何帮助我的东西。 我希望这只是一个打字错误，但我真的找不到为什么它不工作。 这是模块中的代码： sub Find() Dim Dates As Range Dim Data As Range Dim LastRow As Long Dim LastCol As Long Dim RngStart As Range Dim RngEnd As Range Dim RngDates As Range Dim DateStart As String Dim DateEnd As String Dim TextboxDate1 As […]