[Greyman]

Rudy

по этому принципу объединить данные по всему листу

Так объедини построчно данные, а потом полученные в столбце данные...

[Rudy]

объедини построчно данные

Объединяю. Подскажите, как потом закрепить данные на всем листе?

[Greyman]

Думал в "ПО" или "Програмирование" - решил пока в "ПО", ибо речь все же о формулах, а не о VBA... Если что, можно будет и перенести.
Привет человеки. Возникла тут у меня необходимость в таблицах MS Excel расчитывать даты сроков исполения различных работ, реализацию которой и хотелось бы обсудить.
Дано: дата начала работы и срок (в днях) ее исполнения. Надо: найти дату исполнения. Все бы ничего, однако срок задается не в календарных, а в рабочих днях, отсюда и определенные сложности.

Пока сделал формулу, учитывающую сроки за вычетом выходных, следующего вида:

Код:

=C24+D24+1+ОТБР((ДЕНЬНЕД(C24;2)+D24)/5;0)*2

, где C24 - ячека с датой (в формате - дата);
D24 - ячейка со сроком в рабочих днях (общее или целочисленный).
Вроде нормально, вот только праздники не учитываются.

Может кто знает, есть ли способ с помощью формул расчитать даты исполнения, но еще и с учетом праздников? Можно с использованием всякой экзотики, типа ссылочных массивов, матриц, областей и т. п.

Есть гуру в этом вопросе?

[Pliomera]

Dim i As Integer
Dim Day_in_Year(365) As Boolean 'В массиве храним инфу: True - рабочий день, False - выходной или праздник

'Заполняем значения массива на текущий год
'считывая данные из столбца B на вспомогательном листе Sheet2
'в котором единичками отметим рабочие дни
'В столбце A протащим даты от 1.01. до 31.12.

For i = 0 to 365
Day_in_Year(i) = (Sheets("Sheet2").Cells(i + 1, 2).Value = 1)
Next i

'Пусть на листе Sheet1 в ячейке a1 - исходная дата, а в ячейке b1 срок в рабочих днях

'Далее можно на кнопку (или еще куда) повесить:

Private Sub Result()

Dim i As Integer, x As Integer, n As Integer

For i = 0 to 365
'Порядковый номер в году исходной даты
If Sheets("Sheet1").Cells(1, 1).Value = Sheets("Sheet2").Cells(i + 1, 1).Value Then x = i + 1
Next i

n = Sheets("Sheet1").Cells(1, 2).Value 'Считываем количество рабочих дней

Do
If Day_in_Year(x) Then n = n - 1 'Обратный отсчет рабочих дней
x = x + 1
If n = 0 Then Exit Do
Loop

'Выводим в ячейку a3 листа Sheet1 искомую дату
Sheets("Sheet1").Cells(1, 3).Value = Sheets("Sheet2").Cells(x, 1).Value

End Sub

Это просто как пример, возможно всё реализуется проще
И всё-таки программирование

[Greyman]

Pliomera
Спасибо, конечно... Однако речь идет все же именно о формулах, а не о использолваниии VBA (я в оффтопике об этом уже говорил). Мне бы все же формулы... Я понимаю, что на VBA многое реализваить проще, но... задача-с...

[Man itu]

Доброе время суток!

Подскажите как в Excel сделать так, чтобы числовое значение (например 234) переводилось в текст (двести тридцать четыре)

Заранее спаибо!

[Blast]

• Программы для представления числа прописью на русском языке

[Man itu]

Blast, Огромное спасибо!

[APOSTOL]

До кучи

http://www.allok.ru/index.php?id=3

[Taiss22]

Как сделать так, чтобы в ячейке Excel отображалась сама формула, а не ее значение. В справке Excel, а также в интернете через поиск, удается найти только один вариант - CTRL+(` знак левой кавычки). Я так понимаю, что речь идет о знаке, расположенном вместе с буквой Ё и знаком тильда. Но данный вариант у меня почему-то не работает. Тильда, буква Ё и сама левая кавычка (по-английски) отображаются нормально. Но в сочетании с CTRL ничего не работает. Может что-то еще нужно выставить в параметрах Excel? Или есть другой способ переключения между режимами отображения значения ячейки и формулы ячейки? Система Windows XP Pro Russ SP-2. Стоит версия Microsoft Excel 2002.