Объединить две формулы в одну

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

Объединить две формулы в одну (Формулы/Formulas)

CHEVRYACHOK

Дата: Вторник, 08.09.2015, 15:55 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 109

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

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

Excel 2010

Добрый день!
Создаю реестр, чтоб была возможность автоматически считать страницы.
Сделал как смог, но с двумя дополнительными столбцами (выделил желтым).
Можно ли это сделать одной формулой в зеленом столбце?

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

Ответить

_Boroda_

Дата: Вторник, 08.09.2015, 16:01 | Сообщение № 2

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

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

Сообщений: 16895

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?

Код

=СУММ(F$6:F6;-F$6)+1&ЕСЛИ(F7=1;"";" - "&СУММ(F$7:F7))

Чуть укоротил первоначальную, вот так лучше

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

МВТ

Дата: Вторник, 08.09.2015, 16:17 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 476

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

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

Excel 2007

Макрос устроит? [vba]

Код

Option Explicit

Sub tt()
     Dim L As Long: L = Cells(Rows.Count, 1).End(xlUp).Row
     Dim StartPg As Long, EndPg As Long, CntPg As Long
     Dim I As Long
     Dim Res As String
     For I = 7 To L
         StartPg = EndPg + 1
         EndPg = StartPg + Cells(I, "F") - 1
         CntPg = Cells(I, "F")
         If CntPg > 1 Then
             Res = StartPg & " - " & EndPg
         Else
             Res = Str(StartPg)
         End If
         With Cells(I, "G")
             .NumberFormat = "@"
             .Value = Res
         End With
     Next I
End Sub

[/vba]

Ответить

CHEVRYACHOK

Дата: Среда, 09.09.2015, 09:08 | Сообщение № 4

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

Ранг: Форумчанин

Сообщений: 109

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

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

Excel 2010

_Boroda_, добрый день!
Все так, но при добавлении новых строк (зеленые) следующая за ними выдает не правильный результат, хотя дальше все как надо

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

Ответить

YouGreed

Дата: Среда, 09.09.2015, 09:20 | Сообщение № 5

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

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

Сообщений: 589

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

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

Excel 2010

CHEVRYACHOK, У вас формула не протянута была, на 2 ячейки а просто скопирована. Поэтому и считало не правильно.

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

Ответить

CHEVRYACHOK

Дата: Среда, 09.09.2015, 10:02 | Сообщение № 6

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

Ранг: Форумчанин

Сообщений: 109

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

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

Excel 2010

YouGreed,
Если протянуть да, все правильно.
Но я же сделал ее как таблицу, разве формула не должна в этом случае сама копироваться?

Ответить

YouGreed

Дата: Среда, 09.09.2015, 10:12 | Сообщение № 7

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

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

Сообщений: 589

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

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

Excel 2010

CHEVRYACHOK, По идее при простом копировании, должна. Но могут быть такие вот неприятности, лучше всего, проверять на какие ячейки ссылается формула или протягивать ту, что уже написана.

Ответить

_Boroda_

Дата: Среда, 09.09.2015, 10:16 | Сообщение № 8

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

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

Сообщений: 16895

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата CHEVRYACHOK, 09.09.2015 в 10:02, в сообщении № 6

разве формула не должна в этом случае сама копироваться?

Только если во всем столбце одинаковые формулы. А у Вас в строке 7 вообще не формула, а цифра 6.
Варианты решения:
- переделать диапазон таблицы - файл _1
- переделать формулу - файл _2
Я бы выбрал первый вариант