Разбить на диапазоны строку в Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Разбить на диапазоны строку в Excel (Формулы/Formulas)

DimanYamoz

Дата: Понедельник, 26.08.2019, 13:46 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Приветствую! Как можно сделать чтобы макрос разделил на диапазоны выделенную строку. Пример на строке 29. (Высота H=15, Длина R 0, 7 - 15)
Мой макрос:

[vba]

Код

Dim kolv As Integer
Dim intC As Integer
Dim r As Range
Dim mar()
x = 0
ReDim mar(x + 1)
kolv = Selection.Cells.Count

With Selection
For i = 0 To kolv - 1
If .Cells(i + 1).Value >= 1 Then
intC = .Cells(i + 1).Column - 2

ReDim Preserve mar(x)
mar(x) = intC
x = x + 1
ReDim Preserve mar(x)
End If
Next i
End With

MsgBox ("Stolbec: " & Join(mar(), "_"))

End Sub

[/vba]

К сообщению приложен файл: 11.xlsx (15.0 Kb)

Сообщение отредактировал DimanYamoz - Понедельник, 26.08.2019, 15:00

Ответить

DimanYamoz

Дата: Понедельник, 26.08.2019, 14:30 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Ещё чуть доработал программу. Теперь она показывает ответ даже просто ткнув в любую ячейку. Но как можно сделать чтобы длина была в виде диапазона?

[vba]

Код

Dim kolv As Integer
Dim intC As Integer
Dim r As Range
Dim mar()
Selection.End(xlToLeft).Select
Range(Selection, Selection.End(xlToRight)).Select
x = 0
ReDim mar(x + 1)
kolv = Selection.Cells.Count

With Selection
For i = 0 To kolv - 1
If .Cells(i + 1).Value >= 1 Then
intC = .Cells(i + 1).Column - 2

ReDim Preserve mar(x)
mar(x) = intC
x = x + 1
ReDim Preserve mar(x)
End If
Next i
End With
Selection.End(xlToLeft).Select
MsgBox ("Visota: " & (ActiveCell) & " ; " & "Dlina: " & Join(mar(), "_"))
End Sub

[/vba]

Сообщение отредактировал DimanYamoz - Понедельник, 26.08.2019, 15:00

Ответить

китин

Дата: Понедельник, 26.08.2019, 14:42 | Сообщение № 3

Группа: Модераторы

Ранг: Экселист

Сообщений: 7034

Репутация: 1079 ±

Замечаний: 0% ±

Excel 2007;2010;2016

DimanYamoz, - Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)
тэги с букавкойf для формул

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Pelena

Дата: Понедельник, 26.08.2019, 18:06 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19516

Репутация: 4632 ±

Замечаний: ±

Excel 365 & Mac Excel

Не совсем понятно, что делает Ваш макрос, но исходя из темы, посмотрите готовое решение Получение интервалов из числовой последовательности

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

DimanYamoz

Дата: Вторник, 27.08.2019, 09:13 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Нужно распределить на диапазоны область красных ячеек в строке. Например по строке 29 хочу получить такой результат. H=15, R= 0, 7-15. (Ось R сверху, ось H слева)

Сообщение отредактировал DimanYamoz - Вторник, 27.08.2019, 09:14