Начал изучать VBA, используя книгу Уокенбах Дж. - Excel 2010. Профессиональное программирование на VBA.
Один пример у меня дает не верный результат.
Текст книги:
Структуры Select Case можно вкладывать друг в друга. Например, следующая процедура использует процедуру VBA TypeName для определения того, что выделено в настоящий момент (диапазон ячеек, ничего или что-либо еще). Если выделен диапазон, процедура вызывает на выполнение вложенный оператор Select Case, а также проверяет количество ячеек в диапазоне. Если выделена одна ячейка, отображается сообщение Выделена одна ячейка. В противном случае отображается сообщение, в котором указывается количество выделенных строк.
Sub SelectionType()
Select Case TypeName(Selection)
Case "Диапазон"
Select Case Selection.Count
Case 1
MsgBox "Выделена одна ячейка "
Case Else
MsgBox Selection.Rows.Count & " строк "
End Select
Case "Ничего"
MsgBox "Ничего не выделено"
Case Else
MsgBox "Выделен объект, отличный от диапазона "
End Select
End Sub
У меня выдает выдает постоянно один результат: "Выделен объект, отличный от диапазона ".
Помогите, пожалуйста разобраться в чем ошибка.
Один пример у меня дает не верный результат.
Текст книги:
Структуры Select Case можно вкладывать друг в друга. Например, следующая процедура использует процедуру VBA TypeName для определения того, что выделено в настоящий момент (диапазон ячеек, ничего или что-либо еще). Если выделен диапазон, процедура вызывает на выполнение вложенный оператор Select Case, а также проверяет количество ячеек в диапазоне. Если выделена одна ячейка, отображается сообщение Выделена одна ячейка. В противном случае отображается сообщение, в котором указывается количество выделенных строк.
Sub SelectionType()
Select Case TypeName(Selection)
Case "Диапазон"
Select Case Selection.Count
Case 1
MsgBox "Выделена одна ячейка "
Case Else
MsgBox Selection.Rows.Count & " строк "
End Select
Case "Ничего"
MsgBox "Ничего не выделено"
Case Else
MsgBox "Выделен объект, отличный от диапазона "
End Select
End Sub
У меня выдает выдает постоянно один результат: "Выделен объект, отличный от диапазона ".
Помогите, пожалуйста разобраться в чем ошибка.