У меня в папке DOC есть графические файлы разных форматов. Как прописать условие: если не нашел PDF, то открыть JPEG?

(читать всё…)

Есть БД, в которой имеются повторяющиеся значения.
Необходимо выбрать уникальные, но при этом с выбором уникальных значений в новую БД должны поместится в одну ячейку, объединенные данные по всем повторяющимся значениям, привязанные к нашим уникальным….

(читать всё…)

Подскажите, пожалуйста, как оптимизировать макрос? Записей в таблице много, работает очень медленно.

Sub Макрос1()
Dim W1 As Workbook
Set W1 = Application.Workbooks("11.xlsm")
    Dim i, j, iLastrow As Long, iLastcol As Long

W1.Activate
With W1.Sheets(1)
  iLastrow = .Cells(Rows.Count, 1).End(xlUp).Row
 iLastcol = Cells(2, Columns.Count).End(xlToLeft).Column
For i = 2 To iLastrow
For j = 7 To iLastcol Step 3
   Cells(i, j).FormulaR1C1 = "=RC[-1]-RC[-2]"
 Next
Next
End With
End Sub

(читать всё…)

В ячейке экселевского листа через DDE транслируются котировки. Дальше я перевожу их в проценты и мне нужно, чтобы, когда этот процент будет выше определенного значения, эксель инициировал бы звуковой сигнал. Скажем, если прибыль/убыток выше 5% от общей суммы счета, звучит сигнал. При этом желательно, чтобы этот звук воспроизводился бы виндой, то бишь без запуска медиа-плейера, и чтобы звуковой файл можно было бы менять (или повторять несколько раз, но это наверное сложнее, проще просто подставить отредактированный файл).

(читать всё…)

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

Например, тело письма содержит 4 столбца :

После факта получения нужно записать значения в эксель файл :

(читать всё…)

У меня есть файл, который разбит на два окна.
Я создал макрорекордером ряд простых макросов удаляющих ряд элементов интерфейса для отдельного окна.

Например — удаление на отдельном окне — полосы прокрутки листа, заголовков сетки, статусной строки, полосы ярлыков листов.
Все это работает.
За исключением одного элемента — удаление панели формул.

То есть удалить я ее могу — но только со всех окон стразу.
Все остальные элементы — я могу удалять исключительно только для одного окна.

Сейчас этот макрос выглядит так:

Sub Макрос17()
    Windows("45345.xls:2").Activate
    Application.DisplayFormulaBar = False
End Sub

Подскажите — как заставить макрос удалить этот элемент (панель формул) только с одного окна ?
(не трогая этот элемент на другом окне)

(читать всё…)

Как произвести копирование нескольких ячеек (наименование, кофицент, количество) из листа «Temp» на лист «Смета» только если значение ячейки «Temp».C#(наименование) найдено на листе «Прайс-лист».A:A (наименование)

Интересует пример макросом VBA, впр и индекс\поискпоз — не подходят…

• Temp — Лист с временными данными.
• Смета — лист где должны проводится расчеты
• Прайс лист — База номенклатуры по которой будет проводится расчет.

(читать всё…)

Дана таблица:

Нужно сделать SQL запрос, чтобы в итоге получилась вот такая таблица номер 2:

(читать всё…)

Есть задание, в котором нужно дублировать элементы отличные от какой-либо цифры, к примеру строка — «ds2k17d9», цифра будет к примеру 7, все символы, кроме 7 должны быть дублированы.

(читать всё…)

Надо отредактировать большой объем текста, убрать висячие предлоги, союзы и т.д. с конца строки (Word 2013).

Есть такой вариант решения с помощью автозамены:

В «Найти» введите строку «([ ^s])([а-яА-Яa-zA-Z]{1;2}) ([а-яА-Яa-zA-Z])», в поле «Заменить на», введите строку «\1\2^s\3»

Предлоги, союзы приклеиваются с помощью неразрывного пробела к следующему слову.
Все работает хорошо, НО, приклеиваются они не только в конце строки, а по всему тексту.
Можно ли как-то сделать так чтобы это работала только с конечными символами???
(читать всё…)