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

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% от общей суммы счета, звучит сигнал. При этом желательно, чтобы этот звук воспроизводился бы виндой, то бишь без запуска медиа-плейера, и чтобы звуковой файл можно было бы менять (или повторять несколько раз, но это наверное сложнее, проще просто подставить отредактированный файл).

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

Знаю несколько способов скачать изображение с интернета по средствам Delphi. Но, как скачать по такой ссылке?
http://homeandinteriors.ru/wp-content/uploads/2012/11/Brabbu-–-португальский-дизайнерский-бренд-выпускающий-эксклюзивные-предметы-интерьера-3.jpg
Не знаю в чем проблема, в кириллице или в черточках(-–-), но ошибка:
HTTP/1.1 404 Not Found

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

Во многих программах (играх) обычно при нажатии тильды (~) вылезает «панель», куда можно вводить команды, и куда выводится отладочная информация. Типа командной строки CMD.
Допустим есть Memo. Выводим туда значок «>». Пользователь что-то вводит и нажимает Enter. Строка остается,но уже без значка, а значок выводится в следующую строку.
Но в мемо можно перемещать курсор и писать в любом месте, а этого не нужно. Наоборот, при нажатии кнопок вверх и вниз в строке должны выводиться предыдущие введенные команды.
Вот что-то ничего в голову не приходит как такую фичу сделать.

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

Как получить IP-адрес пользователя со стороннего сервиса, типа 2ip.ru?

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

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

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

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

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

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

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

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

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

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

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

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

Нужна помощь в отображение изображений из базы данных Access. Я смог только 1 изображение вывести с помощь события AfterScroll, но есть необходимость выводить их больше.

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

Есть ли ещё какие-нибудь способы переноса на новую строку в функции Format кроме?

ShowMessage(Format('%s'#13#10'%s', [ 'Line 0', 'Line 1' ]));

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

Помогите найти аналог данной функции для Delphi
(new Date).getTime(); возвращает строку такого вида — 1483873161902
Значение, возвращаемое методом getTime, равно количеству миллисекунд, прошедших с полуночи 1 января 1970 года GMT.

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