Макрос отправляет данные на почту при нажатие на кнопку «Отправить»,
получатель открывает файл, который ему пришел и видит эту кнопку.
Подскажите, как сделать чтобы при отправке файла кнопка не отправлялась.

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

Составить программу на VBA для Excel, которая будет определять самое длинное и короткое слово для введенных данных (фамилия, имя и отчество).

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

Первоначальное условие: Для заданного натурального числа n (n>=3) найти произведение первых n чисел Фибоначчи. Нужно создать программу с массивом.

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

Нужно импортировать таблицу из word (в приложении «Ворд.docx») на «Скрытый лист» книги excel (в приложении «Excel.xlsx») начиная с ячейки «E6», затем из скопированной таблички на «Скрытый лист» нужно подставить данные в таблицу на лист «База». Или возможно подставить данные в таблицу на листе «База» минуя «Скрытый лист».

	Ворд.docx (20.1 Кб)
	Excel.xlsx (9.6 Кб)

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

Как изменить координаты графического объекта?
Есть такой код

Worksheets("Лист1").Shapes("strela").ScaleWidth 2, msoFalse, msoScaleFromTopLeft

а нельзя ли явно указать x1,y1,x2,y2?

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

Разрабатываю журнал посещения студентами занятий, и столкнулся с задачей — что бы когда нужные поля были заполнены, в нужное мне поле записывалась текущая дата (что бы было понятно когда преподаватель заполнил журнал).

Сделал так:

=ЕСЛИ(И(K73<>»»;K72<>»»;K18<>»»;K17 <>»»);СЕГОДНЯ();»»)

Проблема в том, что функция СЕГОДНЯ() — динамическая, и каждый раз обновляет дату.

Мне же нужно что бы автоматом подтягивалась текущая дата, записывалась в ячейку и не изменялась каждый день, а изменялась если
1. заполнены нужные поля
2. если какое-то из нужных мне полей было изменено.

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

Как можно сделать, чтобы в Excel в одну строку вводились данные (постоянно меняются), а на другом листе выводились эти данные, но когда я меняю на первом листе, чтобы старые данные сохранялись на втором листе, а новые просто дополнялись?

например у меня на листе 1 в ячейка А1: некст (названия лекарств).
лист 2 в ячейке А1: некст
Потом я меняю лекарство получется лист 1 в ячейке А1: ношпа
Лист 2 ячейка А1: некст
Лист 2 ячейка А2: ношпа.

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

Нужен макрос который:
1. скопирует с активного листа (рабочей книги) данные (диапазон A1:GT1004)
2. откроет другую книгу (она уже существует) из той-же папки что и активная.. код типа —

With Workbooks.Open(ThisWorkbook.Path & "\" & "CHECK BASE.xlsm"

3. создаст там (в CHECK BASE.xlsm) новый лист (с любым названием типа Лист1 — название будет потом все равно переименовано вручную)
4. вставит скопированное в этот новый лист в ячейку С5
5. сохранит и закроет книгу (CHECK BASE.xlsm) … ну и — End Sub

Но ОЧЕНЬ ВАЖНО чтоб данные были 1 в 1 с оригиналом (шрифт, окраска, ширина столбцов и тд включая условное форматирование)
НО вместо формул только их ЗНАЧЕНИЕ!
(читать всё…)

В каждой ячейке написали , например, Фото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 просмотров)

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