Question

我不是VBA开发者，但我需要一个函数multile值返回VLOOKUP。

我找到了这个：

CREATE TABLE FLIGHT_LEG (
    Flight_number NVARCHAR(15) NOT NULL,
    Leg_number INTEGER NOT NULL,
    Departure_airport_code NVARCHAR(10) NOT NULL,
    Scheduled_departure_time TIME NOT NULL,
    Arrival_airport_code NVARCHAR(10) NOT NULL,
    Scheduled_arrival_time TIME NOT NULL,
    PRIMARY KEY (Flight_number, Leg_number),
    FOREIGN KEY (Flight_number) REFERENCES FLIGHT (Flight_number)
           ON UPDATE CASCADE ON DELETE CASCADE
);

我将其编辑为休闲

Public Function CercaTableMultiplo(lookupval, lookuprange As Range, indexcol As Long)
    'updateby Extendoffice 20151118
    Dim x As Range
Dim result As String
result = ""

For Each x In lookuprange
    If x = lookupval Then
        result = result & " " & x.Offset(0, indexcol - 1)
    End If
Next x
CercaTableMultiplo = result
End Function

参数是（F217; Foglio2！E：G; 3;＆＃34;，＆＃34;）

它适用于：

第一个列很少，第二个 为空，第三个就会填充。

在以下时间不起作用：

第一个列很少第二个 填充（如说明文字），第三个是填充。

我认为这是一个溢出问题，但我的短VBA开发者体验在此停止，我可以做一些检查吗？

vba函数foreach范围错误#value

0 个答案: