Not Null in VBA

Question

If Sheets("DealComparison").Cells(z + 1, 1) <> "" Then 

Действительно ли это утверждение? Я хочу, чтобы проверить, если конкретный лист не равен NULL в VBA

Dim x As Integer 

    x = 2 

Dim z As Long 
Dim Myarray(1 To 9) As String 

    For z = 1 To 9 
     If Trim(Sheets("DealComparison").Cells(z + 1, 1)) <> "" Then 
      Myarray(z) = Sheets("DealComparison").Cells(z + 1, 1) 

      Debug.Print Myarray(z) 
     End If 
    Next z 

Это полный код ребята,

Теперь то, что я хочу, я хочу, чтобы проверить, если он пуст, и если он не пуст, я должен его передать.

Так whaat я должен упомянуть в заявлении еще так, что было бы хорошо ..

Answer 1

Если вы хотите, чтобы определить, есть ли какой-либо объект является NULL, вы должны использовать IsNull функцию:

Debug.Print IsNull(Sheets("DealComparison").Cells(z + 1, 1)) 

или

Debug.Print IsNull(Sheets("DealComparison")) 

, чтобы проверить, является ли конкретный лист NULL, как задает ваш вопрос.

Если вы хотите проверить строку нулевой длины является более эффективным, чтобы проверить с помощью Len(string) = 0 чем string = "", как строки хранятся в памяти с числом символов первого, а затем это число символов и оканчивающихся нулем характер. Это делает длину строки более доступной, чем тестирование символов, и позволяет избежать операций выделения памяти, которые будут задействованы.

If Len(Trim(Sheets("DealComparison").Cells(z + 1, 1))) = 0 Then 
     Myarray(z) = Sheets("DealComparison").Cells(z + 1, 1) 

     Debug.Print Myarray(z) 
    End If 

Там интересный обзор о том, как строки хранятся в VB6/VBA here.

Answer 2

Это работает для проверки, если ячейка (строка г + 1, столбец A) на DealComparison листа равна нулю или нет, Можно также использовать VBNullString

Такие, как:

If Sheets("DealComparison").Cells(z + 1, 1) <> VBNullString Then 

Answer 3

Да до тех пор, как "Z" является длинное целое. Хе-хе, смешное предложение.

Answer 4

Поскольку у вас могут быть пробелы в вашей камере, иногда они не оцениваются в приведенном выше утверждении. поэтому я всегда использую функцию TRIM, а также ..

If TRIM(Sheets("DealComparison").Cells(z + 1, 1)) <> "" Then