Здравствуйте Уважаемые Форумчане!!!

Помогите с макросом, что бы решить задачу…

У нас есть Данные на Листе1 (не календарные, а рабочие). Нужно их разделить с Периодом – Месяц, показал на Листе2. Если еще сразу при разделении получится добавить Столбец – Нумерации, показал на Листе3, будет просто здорово.

Помогите пожалуйста с макросом.

Изначально я написал макрос – Корректировка Данных для переноса значения из строки - H5:N5, в ячейку – Р5.

Sub КорректировкаДанных()    
    Selection.Copy    
    Range("P5").Select    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        
    :=False, Transpose:=False    
    Application.CutCopyMode = False    
    Run "Зеленый1"    
    Range("A1").Select
End Sub

Но в документе добавилось еще 2 строки: H8:N8 и H11:N11. Хотел для каждой писать отдельный макрос, но подумал, что можно их объединить через – Если, но моих знаний не хватает…

Пишу объяснительную:

1. Если активная ячейка находится в диапазоне - H5:N5, мы копируем данные активной ячейки и вставляем как значение в ячейку – Р5.

Отключаем выделение. Запускаем макрос - Зеленый1.

Активируем ячейку – А1. Все!!!

2. Если активная ячейка находится в диапазоне – H8:N8, мы копируем данные активной ячейки и вставляем как значение в ячейку – Р8.

Отключаем выделение. Запускаем макрос – Зеленый2.

Активируем ячейку – А1. Все!!!

3. Если активная ячейка находится в диапазоне – H11:N11, мы копируем данные активной ячейки и вставляем как значение в ячейку – Р11.

Отключаем выделение. Запускаем макрос – Зеленый3.

Активируем ячейку – А1. Все!!!

Решил проблему самостоятельно, с помощью дополнительного столбца, в котором значения изменяются линейно. Ну и конечно формул, левого ВПР и поиска максимально приближенного значения.

artyrH Спасибо за помощь, но формула вперед работает не совсем корректно, а формула назад пишет ошибку. Наверное – это из–за моего плохого объяснения.

Файл прикрепил может быть кому-то пригодится.

Огромное Спасибо artyrH!!!

Позже проверю и отпишу о результатах, сегодня родные не дадут, подготовка к Новому Году полным ходом…

Пользуясь случаем Поздравляю Всех Форумчан с Новым Годом!!!

Желаю Всем Шикарных Формул и Красивых Макросов!!!

Да Вы правы artyrH!!!

Прошу прощения, что не смог нормально объяснить…

Сделал таблицу с результатом: стартовая Дата/Время – 19.02.2020 08:00, ей соответствует значение – 330,12826. Изменял на: 10, 20, 30, 40, 50.

Файл в котором рассчитывал в предыдущем посте.

БМВ Ваши формулы рассчитывают почти идеально, но бывает выбирают не ближайшее к искомому значение.

Спасибо за помощь!!!

Постараюсь более понятно написать логику вычислений.

1. Выбираем на Листе1 Дату/Время – 13.05.2019 08:00 (ячейка D5) ей соответствует значение - 52,29297 (ячейка F5).

2. Выбираем на Листе1 значение - 27,6 (ячейка Н5), для перемещения вперед и назад от стартового значения.

3. Рассчитываем на Листе1 значение для движения вперед – 79,89297 (ячейка F12).

4. Производим поиск вперед на Листе2 вниз по столбцу – В от стартового значения, ячейка – В2513. Находим значение – 79,81953 (ячейка В2685).

5. Найденному значению соответствует Дата/Время – 11.06.2019 00:00 (ячейка А2685), ее мы показываем на Листе1 в ячейках D12 (artyrH) или D16 (БМВ).

6. Рассчитываем на Листе1 значение для движения назад – 24,68297 (ячейка F21).

7. Производим поиск назад на Листе2 вверх по столбцу – В от стартового значения, ячейка – В2513. Находим значение – 24,74825 (ячейка В2343).

8. Найденному значению соответствует Дата/Время – 15.04.2019 00:00 (ячейка А2343), ее мы показываем на Листе1 в ячейках D21 (artyrH) или D25 (БМВ).

БМВ Спасибо Вам!

Сейчас буду проверять… Надеюсь Вы угадали!!! Если нет буду писать объяснительную…  

Огромное Спасибо artyrH!!!

Ваши формулы просто чудо!!!

Заметил во второй (та которая ищет назад) маленькую неточность.

У нас есть значение, которое мы будем искать (89,7) и найденное значение (89), погрешность – это разность этих значений 89,7 – 89 = 0,7.

Но далее в таблице идет значение 90 которое ближе к искомому значению, 90 – 89,7 = 0,3.

Первая формула нашла самое близкое значение (150).

Показал на Листе1.

Еще раз Огромное Спасибо artyrH!!!

P.S. Если я правильно понял, то в формуле тип сопоставления равен 1, а это означает, что найденное значение меньше либо равно чем искомое значение.

Вот блин дилемма!

Согласен с Вами БМВ, я не совсем корректно написал… Но как тогда написать? Ведь точным совпадением это тоже не назовешь… Пусть это будет первым близким значением, так правильно?

Дело в том, что у меня на Листе2 один цикл (от 0 до 360) и для поиска и использую формулу поиска максимально приближенного значения. Неудобство заключается в том, что на Лист2 нужно постоянно загружать по одному циклу новые данные, что не совсем удобно. Хотелось бы это реализовать, когда на Листе2 несколько циклов, чтобы каждый раз не загружать.

Огромное Спасибо Вам Ігор Гончаренко!!!

Все работает как надо!!!

Помогите с макросом, изменяющим значение в активной ячейке. Допустим мы рассчитали, копировали и вставили нужные нам таблицы (в данном примере 9). Так как мы делаем расчет на перед, мы не знаем какое будет событие, поэтому у нас в таблицах, в столбце – АВ стоят прочерки. Но когда событие произойдет то мы можем указать какое это событие изменив знак.

Пример: Допустим мы хотим изменить знак в 1 таблице – выделяем ячейку – АВ24, далее в окне UP/DN выбираем нужный знак – UP, в ячейке - АВ16 появился знак – стрелка вверх, мы копируем и вставляем как значение в ячейку – АВ24.

Изменим для 2 таблицы, выделяем ячейку – АВ30, далее в окне UP/DN выбираем нужный знак – DN, в ячейке - АВ16 появился знак – стрелка вниз, мы копируем и вставляем как значение в ячейку – АВ30.

Ячейка – АВ16 это фиксированная ячейка, из которой мы будем постоянно копировать, а вот куда вставлять мы указываем выделением ячейки, перед запуском макроса.

Показал в документе.

Огромное Спасибо Вам _Igor_61!!!

Огромное Спасибо Вам _Igor_61!!!

Я хотел немного не так, но Ваш вариант тоже хорош и меня полностью устраивает.

Еще раз Огромное Спасибо!!!

Теперь встал вопрос удаления добавленных таблиц после строки – Данные расчетных таблиц, помогите с макросом.

И еще нужен макрос изменяющий значение в активной ячейке. Допустим мы рассчитали, копировали и вставили нужные нам таблицы (в данном примере 9). Так как мы делаем расчет на перед, мы не знаем какое будет событие, поэтому у нас в таблицах, в столбце – АВ стоят прочерки. Но когда событие произойдет то мы можем указать какое это событие изменив знак.

Пример: Допустим мы хотим изменить знак в 1 таблице – выделяем ячейку – АВ24, далее в окне UP/DN выбираем нужный знак – UP, в ячейке - АВ16 появился знак – стрелка вверх, мы копируем и вставляем как значение в ячейку – АВ24.

Изменим для 2 таблицы, выделяем ячейку – АВ30, далее в окне UP/DN выбираем нужный знак – DN, в ячейке - АВ16 появился знак – стрелка вниз, мы копируем и вставляем как значение в ячейку – АВ30.

Ячейка – АВ16 это фиксированная ячейка, из которой мы будем постоянно копировать, а вот куда вставлять мы указываем выделением ячейки, перед запуском макроса.

Показал в документе.

Доброго времени Уважаемые Форумчане!!!

Помогите пожалуйста с макросом. Имеется таблица с фиксированным положением (G14:G16, K14:K16, O14:V16, Z14:AB16), в которой формулами рассчитываются нужные значения. После расчета, таблицу нужно скопировать и вставить – как значение, в таблицу ниже.

Для вставки я подготовил таблицы (Данные расчетных таблиц) – это как бы архив рассчитанных таблиц, по структуре они полностью идентичны – расчетной таблице.

Мы рассчитали, скопировали и вставили данные, в ячейке – С22 появилась цифра – 1, что соответствует порядковому номеру таблицы. В соответствующих ячейках столбца С прописаны формулы, для нумерации таблиц, его мы не трогаем.

Далее мы рассчитываем новые значения, копируем и вставляем в архив таблиц. Нужно чтобы макрос видел, что первая таблица уже заполнена и скопированные данные вставлялись, в следующую за ней пустую таблицу, в нашем случае – это вторая таблица. В ячейке – С28 появляется цифра – 2. И так далее, мы рассчитываем, копируем и вставляем, столько таблиц – сколько нужно.

Для примера я вручную заполнил две таблицы.

Здравствуйте Уважаемые Форумчане!!!

Помогите построить график окружности, в которой 0 смещен на 270 градусов (показал на рисунке).

На этой окружности нужно обозначить три точки по значениям из ячеек: J5, K5, L5 (все показал на рисунке в файле), соответственно, чтобы при изменении значений в этих ячейках менялось и положение этих точек на окружности.

Sanja Огромное Спасибо!!!

У меня просто нет слов. Все просто супер!!!

СПАСИБО!!!

Sanja Огромное Спасибо!!!

Почти то что нужно. Данные со столбца С не нужны – это всего лишь порядковые номера строк.

Я так понимаю на старое место D:I, удалив старые данные, вставить эти новые данные не получится? Если нет то можно, что бы новые данные вставлялись на новый Лист2 начиная с А1.

Еще раз Огромное Спасибо!!!

Доброго времени Уважаемые Форумчане!

Помогите пожалуйста с макросом.

На Листе1 находятся данные в столбцах D:I. Нужно оставить данные от Начала – ячейка В4 до Конца – ячейка D4, а все остальные удалить. Нужный результат показал на Листе2.

В столбце В склеил данные столбцов D и Е, что бы можно было производить поиск строк с нужным значением.