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

Страницы: 1 2 След.
Работа макроса из Excel в Word. Редактирование текста., Нужна помощь в создании макроса в эксель, который будет редактировать документ вода по чётко у алгоритму.
 
Добрый день, не получается собрать макрос который будет делать следующее:1. Вставлять все содержимое конкретного листа из книги, есть чёткая структура документа, меняется только количество строк, текст в ячейках форматирование, имеет жирный шрифт, хотелось бы сохранить.

2. Из выставленный таблицы частично преобразовать в текст, с разделением по табу. Или дополнять по мере преобразования таблицы из экселя.

3. Все полученное обрамить границами абзаца.

Файлы выложить не могу, пишу с тлф, работа на режимом компе.

И простое линкование не прокатит, как и использование библиотек ворда, или нужно их автоматическое подключение.  
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Суммирование части уникальных значений ячеек макросом, Подсчет суммы частей диапазона ячеек, с выборкой уникальных
 
Добрый день, столкнулся с очередной проблемой, есть сводная ведомость, с данными конкретной структуры (количество/дата). Необходимо подсчитать итог по столбцам, но:
- если все даты (после "/") равны, то суммируется количество (работает);
- если есть расхождения по датам, то необходимо суммировать каждую дату, и тут проблема, если отличная дата одна и не повторятся, то считает правильно, если отличных дат несколько или они повторяются, то получается ерунда.
помогите с решением проблемы,
заранее спасибо, и да, знаю что опять не угадал с названием темы, приму любое название какое предложите.
Изменено: Irbis_evs - 18.05.2022 15:38:15
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Сохранить как средствами VBA убивает файл, При выполнении СОХРАНИТЬ КАК сохраненный файл оказывается пустым, почему???????
 
Добрый день, суть задачи, открыть файл из открытой рабочей книги, проверить содержимое (сейчас не актуально) и сохранить открытый файл с новым именем, файл сохраняется, НО  НЕВАЖНО какие листы и что на них, ФАЙЛ сохраняется ПУСТЫМ, хотя в редакторе VBA листы есть.
Вопрос, где косяк, почему листы не видны???
заранее спасибо
И ДА, ЗАРАНЕЕ СОРИ ЧТО НЕ УГАДАЛ С НАЗВАНИЕМ ТЕМЫ      :-)))
ps: файл 123456 исполнительный, файл НАРЯД ПДТ исполняемый пересохраняемый, название типовое, изменяемая только дата, (макрос ее изменяет)
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
ComboBox с динамическим списком, динамический список в комбо без умной таблицы
 
Добрый день, есть список, который подставляется в комбо, количество строк списка меняется, переводить в умную таблицу пока не желательно, не могу понять куда надо вставить поиск последней строки в столбце.
Видимо корона влияет негативно.
в общем нужно чтобы в форме выпадающий список был только из заполненных строк и изменялся в зависимости от списка на листе Личное
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Удаление и самоудаление модулей через VBA., необходим макрос на поиск конкретных модулей во всех файлах и их удаление
 
Добрый день, старый вопрос об авторских правах, на просторах инета нашел много необходимого, в том числи и на этом форуме, но во всех примерах выскакивает ошибка, как с ней бороться не пойму. версии офиса разные, и 2013 года и 2021, одинаково.в чем подвох? или может у кого есть уже готовый файлик удаления модулей?
и да в идеале нужно задать конкретный список названий модулей, по которым будет определение необходимого файла и потом удаление модулей.
Изменено: Irbis_evs - 11.02.2022 18:54:17
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Удаление строк на разных листах одной книги., Удаление строк на разных листах при условии подстановки части данных с первого листа
 
Доброго времени. есть проблемка, в файле есть однотипные листы с данными, на 2 и последующем листах ФИО берутся с первого путем копирования данных ячейки формулой и "равно".
проблема, при удалении строки на первом листе идет смещение данных на остальных листах. смещение критично, объем данных большой.
вопрос: как 1 - удалить строку с первого листа и получить удаление строк на остальных без смещения данных(макросом предпочтительно)
                   2 - как запретить удаление данных на 2 и остальных листах, или удалить на всех включая 1, (желательно, но пока не является проблемой).
заранее спасибо.

(поиск по форуму пролистал, есть идеи, но не смог приспособить для себя, нужна хотя бы идея реализации)
Изменено: Irbis_evs - 18.10.2021 20:16:28
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
[ Закрыто] Word and VBA.
 
Доброго времени, знаю что не по правилам и не по теме, но ищу живой форум (подобный этому), но по Ворду. есть задача по поиску и замене шрифта и текста в файле, условие отбора - конкретный шрифт.
подскажите ссылки на сайты, плиз. заранее спасибо.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Запуск макроса другой книги с вывертом
 
Доброго времени. в книге открывается вторая книга через команду GetObject с условно переменным именем файла
Код
            ipath = bs.Path & "\"
            s = ipath & Cells(i, 4) & ".xlsm" ' ячейка Cells(i, 4) содержит текст "подведение итогов"
            filt = s
            Set wb = GetObject(s)
и это прекрасно работает, но возникла необходимость запустить макрос находящийся во втором файле. и тут трудности. как запустить макрос я разобрался,
Код
Application.Run "'подведение итогов.xlsm'!test"
но хотелось бы понять как заставить работать  команду RUN или CALL в формате например
Код
Application.Run wb!Module1.test
не ясно, главное попробовать избавиться от привязки к названию файла в тексте кода, чтобы менять только содержимое ячейки.
Заранее всем спасибо.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Отображение окна книги после выполнения макроса, пропало содержимое окна но не книги.
 
Доброго времени. есть два файла (должны быть в одной папке, любой но вместе), из файла СТАРТ при открытии происходит поиск файла по содержимому ячейки и через GetObject обращение к нему ( моем случае файл "итоги")(и да, я нашел решение как в GetObject задать переменный путь к файлу). Далее происходит процесс чтения/записи ячейки в файле "итоги" (проверял, работает) и его закрытие через Close.
а далее самое интересное, при ручном открытии файла "итоги" открывается окно Экселя с серым экраном. через редактор VBA  все листы на месте, содержимое листов тоже на месте.
Вопрос: почему не отображается как положено? Заранее спасибо за помощь.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
VBA открыть книгу и задать значение конкретной ячейке.
 
Доброго времени, особо не лазил, но помню что попадалось, есть необходимость средствами VBA по условию открыть другую книгу и в ней в конкретно заданную ячейку задать параметр (дата). Прошу указать на примеры где можно понять как решить задачку.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Почему в окне выбора макроса их именам добавлен путь?
 
Доброго времени. давно столкнулся, но только сейчас решил разобраться с вопросом имен макросов при запуске через окно со списком.
При создании макроса в книге он отображается без названия файла, и это меня вполне устраивает, но при интеграции модули или просто вставке текста макроса из буфера и последующем сохранении название отображается полностью - название_файла/имя_макроса.
в итоге при работе не совсем удобно получается.

вопрос в том как убрать названия файла и оставить только имена?
Изменено: Irbis_evs - 26.09.2019 17:38:20
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Алгоритм равномерного распределения, распределение занятий по дням с учетом количества часов в день
 
Доброго времени.

Есть задача - расписание занятий из тематического плана.
условие - необходимо равномерно распределить занятия по двум учебным дням, способ распределения последовательно-рандомный, (порядок дисциплин - рандомно, порядок занятий в дисциплине - последовательно но не обязательно)
учебных дней два, в каждый день 6 часов занятий. в приложенном файле пример распределения, но получается в один день 7 часов в другой 5. не получается связать распределение с продолжительностью одного занятия.

вопрос - как реализовать привязку продолжительности занятий к распределению?
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Как обьявить и использовать массив, если наперед неизвестны его размеры?
 
доброго времени, есть макрос с массивом, в теории все должно работать, но ругается при попытке заполнения массива.
Код
Sub sreda()
Dim sr()
s = 1
For d = 1 To 31
    dd = DateSerial(Year(Date), 9, d)
    If Weekday(dd, vbMonday) = 3 Then
        MsgBox "day   " & Day(dd)
        MsgBox "s   " & s
        sr(s) = Day(dd)
        s = s + 1
        MsgBox "s+1   " & s
    End If
Next
For s = 1 To 5
    MsgBox sr(s)
Next
End Sub
почему выдает ошибку и как исправить?
заработало без оштбок только при явном определении размера массива, почему динамический не идет?
Изменено: Irbis_evs - 30.07.2019 11:34:02
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Получение значения переменной из формы
 
Доброго времени, есть форма с комбоксом, в ячейку она пишет нормально, но мне надобна получить значение не в ячейке, а в переменной для дальнейшей работы (без использования листа), значение переменной будет только текст
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
доработка "Удобный поиск в выпадающем списке", малость доработать
 
Доброго времени. на просторах сайта в свое время нашел удобный поиск, по ходу работы с ним возникла необходимость того, чтобы он начинался с первого столбца "Списка" и сам переходил от поиска в одном столбце к следующему, а по окончании списка форма сама закрывалась. прошу кто может допилить ее до такой работы.
Изменено: Irbis_evs - 19.07.2019 21:46:40
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Пауза макроса для выполнения другого, Как приостановить макрос
 
Доброго времени, вопрос простой, но я не сталкивался ранее с ним. При выполнении макроса запускается второй макрос через команду run,вопрос: как приостановить первый макрос до завершения работы второго с последующим продолжением выполнения первого макроса? Заранее спасибо, буду благодарен любому примеру выполнения данной задачи или ссылки на нее.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Ошибка макроса при вычислении дат
 
Доброго времени, нашел на просторах инета функцию поиска понедельников месяца и переделал под свои нужды - понедельный поиск понедельника и воскресенья, а при условии начала месяца не с понедельника, то неделя начинается с 1 числа месяца. аналогично и воскресенье и последний день месяца.
ПРОБЛЕМА - вылетает ошибка при работе с январем и декабрем, почему не понял.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Определить, в каком столбце находится совпадающее значение, оптимизировать макрос - функция Match
 
Доброго времени. не смог победить функцию на VBA. в примере рабочий макрос, но пришлось вставлять дополнительный цикл и функцию StrComp вместо Match.
прошу пояснить где и что я не так ставлю и оптимизировать данный пример.
Заранее спасибо
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
VBA получение имени файла, Нужно получить имя файла из которого выполняется макрос.
 
Доброго всем времени, имеется вот такая строка:
Код
Windows("123.xlsm").Activate
необходимо вместо неё
1 - получить имя файла (из которого выполняется макрос)
2 - присвоить имя переменной (АААА)
3 - конечный результат -
Код
Windows(АААА).Activate
файл-пример могу дать, (но смысла не нет)
Заранее спасибо.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Некорректное отображение подписей на диаграмме
 
Доброго времени, есть диаграмма - график отпусков, на ней указывается в качестве подписи слияние значения из столбца и непосредственно значения диаграммы. Но есть три ошибки:
1. не отображается непосредственное значение.
2. вообще ничего не отображается.
3. почему то ничего не меняется в неработающих ячейках не смотря на изменения в параметрах.
Вчем собственно ошибка и почему идут пропуски по строкам?
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Шапка таблицы на каждой странице, Как автоматически добавлять шапку
 
доброго времени. есть любая таблица с шапкой, растянута на несколько страниц, как сделать что бы было как в ворде (повторять на каждой странице)? т.е. не исполнять танцы с бубном (строками) в ручную.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Подписи на диаграмме с неизвестным количеством строк, Редактирование существующей диаграммы.
 
Доброго времени. Нашел на просторах инет график отпусков, отредактировал под свои нужды. В процессе возникла необходимость на графике видеть подписи с информацией о дне ухода и сроке отпуска. как добавить, понял, НО:
1 список сотрудников грузится с другого файла, и количество не известно (для универсальности)
2. изменение (в первой строке графика то как надо) не приводит к автоматическому изменению всей диаграммы.
3 при вводе данных последующим результата нет, а в ручную в каждую добавлять не очень как то..
Прошу пояснить почему не происходит изменений по всей диаграмме.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Средствами VBA определить позицию ПРОПИСНОГО символа в текстовой строке, какой функцией определить состояние буквы (строчная или прописная)
 
Доброго времени, нужно средствами VBA найти в произвольной текстовой строке первое вхождение ПРОПИСНОГО символа (любого). Вариант с Case вроде только преобразует, надо не изменяя. на ум приходит только сравнение в диапазоне через Chr.
куда копать?
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Поиск ссылки на этом форуме
 
Доброго времени, относительно недавно при обсуждении какой то проблемы (какой не помню) кто то из гуру экселя давали ссылку на сторонний ресурс, где достаточно подробно (в виде большого списка) давались функции VBA. Ссылку после переустановки системы просеял. Помогите найти. (Помню оформленние сайта было крайне простым и в темно-синем цвете)
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Изменить ориентацию страницы и область печати
 
Доброго всем, попался файл, в котором не могу изменить ориентацию страницы и область печати. Макросов нет. Есть подозрение на свойства листа, где то стоит False вместо True, вопрос - где именно?
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Теоретический вопрос по работе функций (в частности СЦЕПИТЬМНОГО), причины возникновения ошибки
 
Доброго времени.
Имеется функция СЦЕПИТЬМНОГО взятая на Excel-vba, все хорошо, пока не нападет какой то глюк и функция просто не запускается. как следствие идет ошибка #ЗНАЧ при последующей обработке. Лечится путем перезапуска функции.
Вопрос: чем может быть вызвана данная хаотичная проблема с запуском функции?
и  как принудительно заставить пересчитывать формулы и функции (Ctrl+Alt+F9) при открытии книги? (стоит автоматический пересчет)
Изменено: Irbis_evs - 29.05.2017 19:03:43
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Условное форматирование по выборке из диапазона, УФ по результатам соответствия любому значению из неопределенного списка
 
Доброго времени, на форуме ничего подходящего не нашел (или плохо искал  :D ), но необходима помощь:
имеется лист в котором записаны текстовые значения (дп, днп, дш и .т.д.), полный перечень возможных (и необходимых) значений имеется на другом листе.
необходимо путем УФ выделить на листе "список" все ячейки в которых имеется любой текст из перечня. при этом вариант с перечислением всех значений просто в УФ не подходит,  по причине вероятного добавления/удаления количества строк в перечне.

помогите с формулой для УФ.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
VBA внешний вид Excel: скрытие и показ меню
 
Доброго времени. я с очередным вопросом. имеется пара кнопок на показ/скрытие меню екселя.
Код
Sub убрать()
    Application.DisplayFullScreen = True
End Sub
Sub показать()
    Application.DisplayFullScreen = False
End Sub

немного попользовавшись, понял что не очень удобно. вариант с подсветкой кнопок типа при переключении (был недавно на форуме) тоже не очень.
Вопрос: можно ли определить состояние меню для вставки в условие if .... then = false else true
Да и несколько раз сталкивался с тем, что на end if выскакивает ошибка, с чем связано не понял.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Разделение и перенос текста в пределах ячейки., как перенести (разделить) текст в ячейке при неизвестной ширине столбца?
 
Доброго времени, имеется формула по сцеплению текста (СЖПРОБЕЛЫ и СЦЕПИТЬ) из четко определенных ячеек. но получается перенос не корректный, при изменении ширины столбца картина не меняется, т.к. текст в итоге длинный
Вопрос: как можно сделать корректный перенос на след. строку в ячейке (ALT+ENTER) при неопределенной ширине столбца, тоже конкретно указанного?
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Функция "сцепитьмного": случайно (хаотично) не срабатывает
 
Доброго времени. Столкнулся с проблемой, что иногда без видимых причин может не сработать функция
Код
Option Explicit
'---------------------------------------------------------------------------------------
' Procedure : СцепитьМного
'             http://www.excel-vba.ru
' Purpose   : Функция сцепляет все указанные ячейки в одну с указанным разделителем.
' Аргументы функции:
' Диапазон    — диапазон ячеек, значения которых необходимо объединить в строку.
' Разделитель — необязательный аргумент.
'               Один или несколько символов, которые будут вставлены между каждым словом.
'               По умолчанию пробел.
' БезПовторов — необязательный аргумент.
'               Если указан как ИСТИНА или 1 — в результирующей строке будут значения без дубликатов.
'               Для английской локализации данный параметр указывается как TRUE и FALSE соответственно.
'---------------------------------------------------------------------------------------
Function СцепитьМного(Диапазон As Range, Optional Разделитель As String = " ", Optional БезПовторов As Boolean = False)
    Dim avData, lr As Long, lc As Long, sRes As String
    avData = Диапазон.Value
    If Not IsArray(avData) Then
        СцепитьМного = avData
        Exit Function
    End If

    For lc = 1 To UBound(avData, 2)
        For lr = 1 To UBound(avData, 1)
            If Len(avData(lr, lc)) Then
                sRes = sRes & Разделитель & avData(lr, lc)
            End If
        Next lr
    Next lc
    If Len(sRes) Then
        sRes = Mid(sRes, Len(Разделитель) + 1)
    End If
    
    If БезПовторов Then
        Dim oDict As Object, sTmpStr
        Set oDict = CreateObject("Scripting.Dictionary")
        sTmpStr = Split(sRes, Разделитель)
        On Error Resume Next
        For lr = LBound(sTmpStr) To UBound(sTmpStr)
            oDict.Add sTmpStr(lr), sTmpStr(lr)
        Next lr
        sRes = ""
        sTmpStr = oDict.keys
        For lr = LBound(sTmpStr) To UBound(sTmpStr)
            sRes = sRes & IIf(sRes <> "", Разделитель, "") & sTmpStr(lr)
        Next lr
    End If
    СцепитьМного = sRes
End Function
При этом достаточно просто скопировать (перенести) файл и все начинает работать. В чем может быть причина?
Изменено: Irbis_evs - 01.06.2017 20:43:13
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
Страницы: 1 2 След.
Наверх