Excel: вопрос - ответ : Закупщик

█ 17.04.2013 11:14

Добрый день Петр! По первому и второму пункту сделал следующее:
добавил дополнительный лист "База", в который макросом переносятся введенные данные (данные автоматом переносятся после ввода в ячейку столбца М).Далее формулы вытаскивают общее кол-во коробов и среднюю высоту паллет по каждому сборщику.
P.S Макрос не мой,подходящий был позаимствован на "планете" :)
По третьему пункту методом тыка вроде получилось что-то похожее...
В общем посмотрите, может такой вариант подойдет.

█ 17.04.2013 16:55

А я то думал что надо взять сумму и среднее с Лист2 :oops: :D

если вдруг случится что на время сборки надо больше 1 суток есть такой вариант

Код:

=ЕСЛИ(ЦЕЛОЕ(E20/24)>0;ЦЕЛОЕ(E20/24)&" дн. "&ТЕКСТ((E20-E31*24)/24;"чч:мм:сс");ТЕКСТ(E20/24;"чч:мм:сс"))

█ 18.04.2013 11:32

Цитата:

RazVal Да, через с учётом этих самых тренда и сезонности. :)

Что-то не получается у меня. Прошу помощи, а именно "потыкать лицом где я делаю не так"

█ 18.04.2013 11:49

Цитата:

Aleksandr H.

Цитата:

RazVal Да, через с учётом этих самых тренда и сезонности. :)

Что-то не получается у меня. Прошу помощи, а именно "потыкать лицом где я делаю не так"

Всё правильно делаешь, просто, ряд данных - без явной сезонной составляющей, его обычное среднее лучше предсказывает, чем данная модель. Поэтому XYZ - можно считать по классике, через среднее. ;)

█ 18.04.2013 14:34

Всем спасибо, всё получилось замечательною

█ 18.04.2013 15:15

Цитата:

Aleksandr H.

Цитата:

RazVal Да, через с учётом этих самых тренда и сезонности. :)

Что-то не получается у меня. Прошу помощи, а именно "потыкать лицом где я делаю не так"

Прогноз с сезонной составляющей можно использовать, когда сила периода в сезоне условно постоянная.

█ 20.05.2013 11:53

Друзья, допилите, пожалуйста, макрос.
Задание:
1. формат ячеек выделенного диапазона превратить в текстовый.
2. удалить все пробелы в выделенном диапазоне.

мой код

Код:

Sub ToText()
'
' ToText wyrzuc spices
'
'
    Selection.NumberFormat = "@"
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

не срабатывает на тексте например "00004 ". Результатом должен быть текст "00004" а выдает "4"

█ 20.05.2013 17:56

Добрый день Александр. Когда то находил на одном из форумов:

Код:

Sub ToText()
Dim N As Range
  For Each N In Cells.SpecialCells(2, 2)
    If N Like "[0-9]*[ ]*[0-9]" Then
      N.NumberFormat = "@"
      N.Value = CStr(Replace(N, " ", ""))
End If: Next: End Sub

Макрос в выделенном диапазоне удалят все пробелы в числах,и меняет формат на текстовый( только в тех ячейках где есть число). Может подойдет.

█ 21.05.2013 23:40

Цитата:

tgm Добрый день Александр. Когда то находил на одном из форумов:

Код:

Sub ToText()
Dim N As Range
  For Each N In Cells.SpecialCells(2, 2)
    If N Like "[0-9]*[ ]*[0-9]" Then
      N.NumberFormat = "@"
      N.Value = CStr(Replace(N, " ", ""))
End If: Next: End Sub

Макрос в выделенном диапазоне удалят все пробелы в числах,и меняет формат на текстовый( только в тех ячейках где есть число). Может подойдет.

█ 22.05.2013 00:28

Судя по видео(если не ошибаюсь), окно VBA осталось открыто..