Есть файл, в нем много листов, и есть один итоговый куда тянется информация со всех этих листов. Я понял как сделать команду для каждого листа, но листов очень много и писать для каждого — нереально, как можно сделать цикл в данной ситуации?

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

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

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

На листе книги (excel 2003) есть кнопка с макросом, код которого приведен ниже (vba excel 2003). После щелчка по кнопке происходит копирование файла «форма.exe» с сервера во временную папку, после чего файл «форма.exe» запускается из этой временной папки.
Подскажите пожалуйста код (vba excel 2003), чтобы при закрытии книги, файл «форма.exe» из временной папки удалялся, если процесс «форма.exe» не выполняется (дело в том что у меня сейчас можно закрыть книгу, но приложение «форма.exe» может выполняться, т.е. еще не закрыто пользователем).

Sub Копировать(Optional x As Boolean)

Dim sFileName As String, sNewFileName As String
sFileName = "\\server\форма.exe"
sNewFileName = Environ("temp") & "\" & "форма.exe"
FileCopy sFileName, sNewFileName

Dim MyPath
MyPath = Shell(Environ("temp") & "\" & "форма.exe " & ThisWorkbook.FullName, 1)

End Sub

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

Собрала электронный термометр в соответствии со схемой представленной на странице: http://evm.wallst.ru/main/therm/ds18b20.htm. как считывать температуру с датчика в Excel, используя библиотеку RSAPI.DLL?

Как написать в Excel :
1. Инициализация DS18B20
2. Подача ROM команды
3. Подача функциональной команды DS18B20

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

Есть файлы тхт — много… у всех название в виде кода 28004, 77005 и тп.
Внутри каждого файла 2 колонки с цифрами разделенные пробелом:
11968 2
77077 5
1258974 6
и т.д.
Как бы так сделать чтобы все эти файлы можно было импортировать в Excel и получить таблицу вида:
«название файла» 28004 (1 ячейка)/ 11968 (2 ячейка)/ 2 (3 ячейка)
и так далее «название файла»./……./……

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

Есть несколько листов. В ячейку C2 каждого листа вставлена цифра.
Как отсортировать листы — по значениям в этих ячейках?
Сперва идут ярлычки листов со значениями в ячейках C2 — равными «1».
За ними идут ярлычки листов со значениями в ячейках C2 — равными «2» и т.д.

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

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

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