Обратиться к ячейке по номеру в разорванном (несвязанном) диапазоне - VBA

Узнай цену своей работы

Формулировка задачи:

Добрый день! Есть обычный несвязанный диапазон
и я хочу выделить в нем 4 ячейку, пишу код:
и в итоге машина выделяет мне ячейку А4, а должна по логике выделить А6. Что я делаю не так? Как это можно решить без использования циклов. Заранее спасибо!

Решение задачи: «Обратиться к ячейке по номеру в разорванном (несвязанном) диапазоне»

textual
Листинг программы 
Function MyItem(MyRange, ByVal ItemNum)
    Dim singleArea As Range
    For Each singleArea In MyRange.Areas
        If ItemNum <= singleArea.Cells.Count Then
            Set MyItem = singleArea.item(ItemNum)
            Exit For
        Else
            ItemNum = ItemNum - singleArea.Cells.Count
        End If
    Next
End Function

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.2 из 5
Похожие ответы