В каждой ячейке написали , например, Фото1, но под этим словом скрываются гиперссылки, которые нужно изменять в обычном текстовом формате ссылки http//…. , иначе говоря надо удалить лишнее из каждой =ГИПЕРССЫЛКА(«http://www.paremo.ru/upload/images/goods/2108a7fb-d910-11e4-0693-5404a6b1dcb9_11.jpg»; «Фото 11″….12,13 и оставить http://www.paremo.ru/upload/images/g…6b1dcb9_11.jpg, чтобы в ячейках были написаны обычные ссылки. В ручную можно, конечно, удалять лишнее по каждой ячейке, но их таких 1500 и у всех разные ссылки.

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

Хочу, чтобы Excel проговаривал, что написано в ячейке. Для этого из вложения надо скопировать Govorilka_cp.exe на диск C , прописать в Пуск-Выполнить C:\Govorilka_cp.exe -e24 -c и тогда Govorilka_cp проговорит, то что в буфере обмена. Скажите пожалуйста, каким кодом сделать тоже самое из Excel? Сам я мало чего понимаю. Привожу не рабочий

Private Declare Function ShellExecute Lib "shell32" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
     ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   Private Const SW_SHOWNORMAL = 1
  Sub Open_File(F_Name) 'Запуск файлов
 ShellExecute 0, vbNullString, F_Name, vbNullString, vbNullString, SW_SHOWNORMAL
    End Sub

Private Sub CommandButton1_Click()
'Копировать_в_Буфер
    Range("A1").Copy
    
'Проговорить текст из буфера
Open_File "C:\Govorilka_cp.exe -e24 -c" ' Не срабатывает
Open_File "C:\Govorilka_cp.exe"

End Sub

  Вложения

говорящий Excel и Govorilka_cp.rar (182.2 Кб, 30 просмотров)

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

Сделал автоматическое создание столбцов из базы данных, но нужно чтобы после 4 картинок дальше переходило на ряд ниже и так далее. Как правильно это сделать?

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

Необходимо, чтобы, при отправке отчета, в получателях оказывались все адреса из поля «Фамилия» запроса/отчета.
Запрос, по которому, формируется отчет, с параметрами. Соответственно появляется ошибка: «Отсутствует значение одного или нескольких параметров».

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

Как быстро сравнить 2 диапазона данных на НЕСОВПАДЕНИЯ?

Всего в обработке события должно участвовать 4 столбца. 2 на странице с данными и 2 на странице библиотекой.

Если данные по ключу NUMBER на вкладке DATA отличаются во вкладке CHECK, то вывести msgbox с перечисленными полями NUMBER где есть расхождения, если данные идентичны, то вывести msgbox OK.

Формулой через ВПР это легко реализуется, но очень хочется разобраться как сделать это одним кликом. Причем столбцы могут содержать пробелы…

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

Часто сталкиваюсь с тем, что некоторые макросы — не выполняются на 64-x разрядных системах.
Подскажите универсальную строчку кода, которая бы позволила запускаться макросу на 64-х разрядных системах ?

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

Как решать задачу Бюффона с помощью программирования?

Задача Бюффона о бросании иглы — один из первых примеров применения метода Монте-Карло и рассмотрения понятия геометрической вероятности.

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

В поле дата в таблице заносится каждый раз автоматически текущая дата, в формате General Date через функцию =Now(). Теперь, если формирую отчёт и группирую по дате, то нет возможности сгруппировать по одному дню, т.к. за один день дата одна, а времена разные.
Вопрос. Как преобразовать дату формата General Date к формату Short Date откусив время.

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

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

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

Решил написать статью о том, как работает генератор случайных чисел. С помощью функции Random можно узнать какое «случайное» число выдаст программа.

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