VBA Vlookup с использованием ActiveCell в качестве ссылки [дубликат]

В Java все переменные, которые вы объявляете, на самом деле являются «ссылками» на объекты (или примитивы), а не самими объектами.

При попытке выполнить один метод объекта , ссылка просит живой объект выполнить этот метод. Но если ссылка ссылается на NULL (ничего, нуль, void, nada), то нет способа, которым метод будет выполнен. Тогда runtime сообщит вам об этом, выбросив исключение NullPointerException.

Ваша ссылка «указывает» на нуль, таким образом, «Null -> Pointer».

Объект живет в памяти виртуальной машины пространство и единственный способ доступа к нему - использовать ссылки this. Возьмем этот пример:

public class Some {
    private int id;
    public int getId(){
        return this.id;
    }
    public setId( int newId ) {
        this.id = newId;
    }
}

И в другом месте вашего кода:

Some reference = new Some();    // Point to a new object of type Some()
Some otherReference = null;     // Initiallly this points to NULL

reference.setId( 1 );           // Execute setId method, now private var id is 1

System.out.println( reference.getId() ); // Prints 1 to the console

otherReference = reference      // Now they both point to the only object.

reference = null;               // "reference" now point to null.

// But "otherReference" still point to the "real" object so this print 1 too...
System.out.println( otherReference.getId() );

// Guess what will happen
System.out.println( reference.getId() ); // :S Throws NullPointerException because "reference" is pointing to NULL remember...

Это важно знать - когда больше нет ссылок на объект (в пример выше, когда reference и otherReference оба указывают на null), тогда объект «недоступен». Мы не можем работать с ним, поэтому этот объект готов к сбору мусора, и в какой-то момент VM освободит память, используемую этим объектом, и выделит другую.

11
задан Jean-François Corbett 15 August 2014 в 08:13
поделиться

3 ответа

У меня была эта проблема с моей собственной программой. Я выяснил, что ценность, которую я искал, не была в моей справочной таблице. Я установил справочную таблицу, а затем ошибка исчезла.

2
ответ дан mjpowers0903 19 August 2018 в 10:42
поделиться

У меня была та же проблема. Кажется, что передача Me.ComboBox1.Value в качестве аргумента для функции Vlookup вызывает проблему. То, что я сделал, присваивало этому значению значение double, а затем помещало его в функцию Vlookup.

Dim x As Double
x = Me.ComboBox1.Value
Me.TextBox1.Value = Application.WorksheetFunction.VLookup(x, Worksheets("Sheet3").Range("Names"), 2, False) 

Или, для более короткого метода, вы можете просто преобразовать тип в функцию Vlookup с помощью Cdbl(<Value>) .

Итак, это будет

Me.TextBox1.Value = Application.WorksheetFunction.VLookup(Cdbl(Me.ComboBox1.Value), Worksheets("Sheet3").Range("Names"), 2, False) 

Как это ни странно, это работает.

Надеюсь, это поможет.

2
ответ дан Omar Khan 19 August 2018 в 10:42
поделиться

Попробуйте ввести код

Я рекомендую использовать обработчик ошибок при использовании vlookup, потому что ошибка может возникнуть, если lookup_value не найден.

Private Sub ComboBox1_Change()


    On Error Resume Next
    Ret = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, Worksheets("Sheet3").Range("Names"), 2, False)
    On Error GoTo 0

    If Ret <> "" Then MsgBox Ret


End Sub

ИЛИ

 On Error Resume Next

    Result = Application.VLookup(Me.ComboBox1.Value, Worksheets("Sheet3").Range("Names"), 2, False)

    If Result = "Error 2042" Then
        'nothing found
    ElseIf cell <> Result Then
        MsgBox cell.Value
    End If

    On Error GoTo 0
11
ответ дан Santosh 19 August 2018 в 10:42
поделиться
Другие вопросы по тегам:

Похожие вопросы: