Значение в ячейке разделить пополам.

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

Значение в ячейке разделить пополам. (Формулы/Formulas)

Mark1976

Дата: Воскресенье, 25.12.2016, 11:12 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 809

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

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

Excel 2010, 2013

Доброго дня. У меня есть прайс. В прайс листе указан размер так: 92/96/100/104/108/112/116/120/124/128 Мне надо сделать так: 46/48/50/52/54/56/58/60/62/64 Чтобы каждое число разделилось пополам. Помогите с решением. Спасибо.

К сообщению приложен файл: report_2016-12-.xls (27.5 Kb)

Сообщение отредактировал Mark1976 - Воскресенье, 25.12.2016, 11:12

Ответить

Michael_S

Дата: Воскресенье, 25.12.2016, 11:36 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

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

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

Excel2016

То, что желтым выделено - тоже в репорте есть, или это пример?
Получить в том столбце, или рядом?
Формулами, теоретически возможно, но решение будет сложным. Можно макросом или UDF (что практически тоже самое)

Ответить

Mark1976

Дата: Воскресенье, 25.12.2016, 11:40 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 809

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

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

Excel 2010, 2013

Michael_S, желтый это пример, поставил ручками. Любому решению буду рад. Руками очень долго править.

Ответить

Mark1976

Дата: Воскресенье, 25.12.2016, 11:41 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 809

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

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

Excel 2010, 2013

Цитата Michael_S, 25.12.2016 в 11:36, в сообщении № 2 ()

Получить в том столбце, или рядом?

Можно рядом.

Ответить

Michael_S

Дата: Воскресенье, 25.12.2016, 11:47 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

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

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

Excel2016

Пример UDF:
[vba]

Код

Function Report$(Размер$)
    Dim a, i&
    a = Split(Размер, "/")
    For i = 0 To UBound(a)
        a(i) = CDbl(a(i)) / 2
    Next
    Report = Join(a, "/")
End Function

[/vba]

UDP
На втором листе пример с макросом, меняет на месте.
Выделяем нужный диапазон, жмем кнопку.
[vba]

Код

Sub Report1()
    Dim a, C As Range, i&
    For Each C In Selection
        a = Split(C, "/")
        For i = 0 To UBound(a)
            a(i) = CDbl(a(i)) / 2
        Next
        C = Join(a, "/")
    Next
End Sub

[/vba]

К сообщению приложен файл: 5750937.xls (54.5 Kb)

Сообщение отредактировал Michael_S - Воскресенье, 25.12.2016, 11:56

Ответить

Mark1976

Дата: Воскресенье, 25.12.2016, 12:02 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 809

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

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

Excel 2010, 2013

Michael_S, спасибо. Все поменял.

Сообщение отредактировал Mark1976 - Воскресенье, 25.12.2016, 12:03

Ответить

Значение в ячейке разделить пополам. (Формулы/Formulas)

Страница 1 из 1
1