Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Последовательная сортировка дат
 
Здравствуйте.
Не могли бы вы мне подсказать, насколько я понимаю , мне нужна правильная формула массива.
Есть таблица с событиями и датами , постоянно пополняющейся.
Хотелось бы рядом увидеть таблицу с той же информацией но только с отсортированными последовательно датами и уже без прошедших событий. Прикладываю пример.
насколько понимаю , мне нужна формула массива.
Изменено: avenger24 - 03.08.2017 05:45:28
Открытие Word из Excel Поверх всех окон
 
Здравствуйте.

Собственно сабж.
Чего-то ничего путнего в инете найти не могу.
На форуме нашёл пару тем , но что-то ничего не помогло.
Нужно чтобы при открытие Word из Excel ,окно Word было поверх всех окон.
Код
Sub za()
    Dim objWrdApp As Object
    Dim objWrdDoc As Object
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
        If objWrdApp Is Nothing Then
            Set objWrdApp = CreateObject("Word.Application")
            Set objWrdDoc = objWrdApp.Documents.Open(ThisWorkbook.Path + "\" + "t.dot")
            objWrdApp.Visible = True
        End If
    Set objWrdDoc = objWrdApp.Documents.Open(ThisWorkbook.Path + "\" + "t.dot")
    Set objWrdDoc = Nothing
    Set objWrdApp = Nothing
    
End Sub
Изменено: avenger24 - 30.03.2016 05:56:37
VBA Вставка картинки из формы
 
Здравствуйте. Нужна маленькая помощь.
Не могу вообще сообразить :)

Прикладываю пример.

Описание проблемы:
При нажатии двойным щелчком на определённый диапазон ячеек , выскакивает форма с перечнем картинок , хотелось бы что при клике на картинку это изображение вставлялось в ячейку)

Помогите пожалуйста.
Буду очень признателен)
ВПР Массивный динамичный, Только определённые значения и меняющих их на аналог
 
Здравствуйте.
Что-то не могу собразить над формулой.
Выкладываю пример.
1. Таблица основаня
2. Таблица Аналогов для замены
3. Таблица:
в 1 столбце должна быть формула динамичная массивная , строки строго по порядку.
Формула должна найти похожие значения из 2 таблицы 1 столбец в 1 таблице вынести их в 3 таблицу и заменить на название на аналоговые значения из 2 таблицы 2 столбец..
во 2 столбце 3 таблице она должна вынести те же размеры что и в 1 таблице.

За раннее огромное спасибо!
Изменено: avenger24 - 02.10.2015 09:53:00
VBA Проблема в цикличности макроса
 
Здравствуйте.
Очень долго тружусь уже над своей программой для работы.
Вроде всё отлично получается и работает , но есть одна проблема.
Есть 2 страница.
1 страница служит для сбора информации ( то есть вводим исходные данные) нажимаем на кнопку , код копирует значения ячеек и отрпавляет их на 2 страницу и копирует 2 страницу
2 страница служит для расчёта , в ней прописан макрос , при изменения 1 ячейки в диапозоне , запускает макрос перерасчёта.

Проблема состоит в том , что макрос цикличный. То есть , он копирует 1 ячейку с первой страницы на 2 , запускает макрос перерасчета на 2 странице и всё по новой. Пока не перекопирует все ячейки. Все работает. Но выполняется это процедура порядка 5-15 секунд. Это очень долго.
Сообразить как исправить эту проблему у меня не получается.

Может вы поможете ? за ранее огромное спасибо    

https://cloud.mail.ru/public/N4yg/Ama6YwFAZ        
Изменено: avenger24 - 24.09.2015 12:57:40
VBA Таблица Excel to Word. Copy/Paste нескольких диапазонов
 
Добрый день.
Хочу сформировать word документ из excel. Хочу сначало скопи-пастить 1 таблицу , затем проблем , затем скопи-пастить 2 таблицу.
Но возникает проблема.
Когда делаю копи паст 2 таблицы , 2 таблица удаляет 1 и встаёт на её место))

Хотелось бы еще услышать, как выровнять таблицы по центру и по левому краю. Но это не обязательно) Главное услышать решения на основную проблему.

Спасибо огромное за раннее!)

 
   Dim wrdApp As Word.Application
   Dim wrdDoc As Word.Document
   Dim i As Integer
   Set wrdApp = CreateObject("Word.Application")
   wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Add
   With wrdDoc

                       Range("A1:B1").Copy
                       .Content.InsertBefore ("1 ñòðîêà! (ïðè êîïè ïàñòè òàáëèöû óäàëÿåòñÿ)")
                       .Content.InsertParagraphAfter
                       .Content.Paste
                       .Content.InsertParagraphAfter
                       .Content.InsertAfter "2 ñòðîêà"
                       
                                               
     
             
       
     
   End With
       Set wrdDoc = Nothing
   Set wrdApp = Nothing
Изменено: avenger24 - 05.06.2015 08:00:49
VBA Создания листа с итоговой суммой всех листов
 
Добрый день.
Выкладываю пример.
Есть Excel для расчёта. Количество листов будет постоянно меняться, в каждом листе будет таблица с наименованием и количеством. Наименование в каждой таблице тоже разные.
Хотелось бы создать отдельную страницу итогов при нажатие на кнопку.
По моему примеру в Итоговой странице , примерно показано чего я хочу добится))
Итоговая таблица с суммой таблиц с нескольких листов, количество листов меняется
 
Добрый день всем.
ОЧень плохо объясняю чего хочу :cry:
VBA
Сразу говорю начинающие пользователь VB. Имею малый опыт создания приложений в vb форм.
Пользуюсь Visual Studio 2010.
Занимаюсь расчётами заказов. Создал для себя несколько программок в эксели для расчёта.
Хочу совершенствоваться дальше) Вообщем проблема такая.
Чаще всего , заказывают много разных конструкций. Например 2 ДВери одного типа , 3 Двери другого типа другого размера и допустим еще 3 Окна.
Приходится создавать файл эксель для каждого типа заказа.
И в конце концов, чтобы сделать итоговую сумму всех расчётов в одной таблице приходится создавать отдельный файл и суммировать все файлы функцией SUMIF :cry:
Хочу создать 1 общий excel файл с макрасами.
Выкладываю как примерно как должна выглядеть Главная форма.
Мы выбираем тип Дверь или Окна. ( Расчётные файлы тоже выкладываю , Итоговая таблица на другой странице "Итог")
Вводим Высоту ширину , нажимаем Добавить заказ.
Создается Новый лист с таблицей с расчётами.
Создали несколько заказов.
Нажимаем Расчёт суммы заказов.
Создаётся новый лист с итоговой таблицей с суммой всех заказов :D
Расчётные таблицы с формулами ,я хочу держать скрытыми ))
Хотелось бы услышать ваши советы , а может увидеть какие-то исходники , чтобы видеть в каком направление двигаться )) Думаю что моя задача очень простая)
Изменено: avenger24 - 26.05.2015 12:47:29
Как написать формулы деления для того чтобы получилось наиболее близкое в целому число
 
Добрый вечер.
Не могу сообразить как написать формулу.
Допустим у меня есть длинна 79000 , я хочу поделить его допустим на числа от 6000-6500 и найти ответ при котором будет минимальное допустимое целое и дробная часть наиболее близкая к целому.  
Масив Таблица Как объединить одинаковые значения
 
Доброго дня всем.
Что-то уже голова кипит , не могу сообразить.
Вообщем есть у меня таблица(вложил) её , она является массивом и постоянно меняется при смене исходных значений.
Вопрос такой , бывает такое что у Одинаковых шифров ( смотрим мою таблицу) одинаковые размеры
в Данном примере возьмем шифр
Прижимная планка(F127) и Размер 1011 , они полностью одинаковы , но идут от разных данных(они в таблице не указаны , думаю это мало имеет значение)

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

За ранее огромное спасибо! Всем хорошего дня)
Изменено: avenger24 - 24.02.2015 18:08:06
Как мне посчитать сумму опредленых динамичных значений
 
Вообщем есть таблица , она постоянно меняется и значения в ней.
Как мне рядышком создать такую же таблицу ,но с итогом.
1 столб названия профиля 2 столб СУмма всех размеров профилей с таким же названием))
Думаю ясно объяснил. Спасибо !

Лист 4 , А20  :D  23 .
В верхней части 4 листа , можно менять профиля из выпадающего списка. Тогда значения  в таблице будут меняться
Спасибо Leanna за помощь!!! 1 вопрос решился))) но сразу для себя выпал второй
А вот как сделать например не подскажите Кол-во ?

Например основная таблица:
Продукт: Размер:
Яблоко 2
ЯБлока 2
Апельсин 3
Апельсин 1

А сводная таблица выглядела так:
Продукт Размер Кол-во
Яблоко 2 2
Апельсин 3 1
Апельсин 1 1
Изменено: avenger24 - 16.02.2015 11:47:38
Нужно посчитать в таблице опредленые значения когда список постоянно меняется
 
Привет всем. Вообщем нужно дикая помощь. Устроился на работу , заставили делать эксель.
Вообще что мне нужно. На листе 4 видим таблицу с A20  :D  23 рядом мне нужны посчитать итог по этой таблице. Но ладно если бы была она постоянной ,но значения в ней меняются при смени профилей.
Для наглядности я ввел ручками значения итоговой таблицы , но как мне сделать полноценно функционирующую  формулу функцию таблицу.

Вообщем попытался объяснить, что мне нужно. Извините за мой русский , надеюсь вы меня поняли. Спасибо всем за все! Слава Эксель!
ВОобщем перезалул файл , должен полноценно работать. но не сохраняйте его. а то все полетит. Слишком большие формулы задал,уверен что можно было сделать все в 1000 раз проще , он их обрезает.
Изменено: avenger24 - 13.02.2015 18:42:38
Страницы: 1
Наверх