[英]Assign range from a different workbook to variable
我想使用WorksheetFunction.Match函数,并需要用一个区域加载它。
Row = WorksheetFunction.Match(country, Countries, 0)
您能帮我构造Countrys变量吗? 我尝试了很多方法(包括以下方法),但似乎都没有效果...
Countries = Workbooks("PERSONAL.XLSB").sheets("Sheet1").Range("B:B")
Countries = Worksheets("PERSONAL.XLSB!Sheet1").Range("B:B")
Countries = Worksheets.Range("PERSONAL.XLSB.Sheet1!B:B") ...
我也尝试了上面的一些“ Set”,但是那还是没有帮助。
好吧,我使用下面的代码,它可以正常工作。 您确实有一个PERSONAL.XLSB文件,该文件在启动Excel时正在加载并隐藏吗? 错误消息是什么-下标是否超出范围?
Public Sub test()
Dim r As Integer
Dim Countries As Range
Dim Country As Range
Set Countries = Workbooks("PERSONAL.XLSB").Worksheets("Sheet1").Range("C1:C8")
Set Country = Workbooks("PERSONAL.XLSB").Worksheets("Sheet1").Range("A1")
r = WorksheetFunction.Match(Country, Countries, 0)
MsgBox (r)
End Sub
OK问题解决了,thanx Dave!
我实际上将其用作返回国家所属“区域”的函数:
Function AreaEMEA(Country As String)
Dim Countries As Range
Dim Areas As Range
Set Countries = Workbooks("PERSONAL.XLSB").Worksheets("Sheet1").Range("B:B")
Set Areas = Workbooks("PERSONAL.XLSB").Worksheets("Sheet1").Range("A:A")
Row = WorksheetFunction.Match(Country, Countries, 0)
AreaEMEA = WorksheetFunction.Index(Areas, Row)
End Function
我称之为使用
"=PERSONAL.XLSB!Module1.areaemea(A1)"
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.