Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 След.
Привязать звук на кнопку в пдф файле сделанном из экселя
 
Говорил выше, делается в программе(платной) Adobe InDesign, без проблем. Вот файл для примера. Чтобы работал необходимо поместить папку Test в корень диска С, так как ссылка по этому пути прописана.
Хотя.., переместил папку на рабочий стол, тоже все работает. Ссылка походу динамически меняется.
Но форум все таки не тот. Вам нужно на форумы по Adobe.
Изменено: DANIKOLA - 22 окт 2020 20:51:36
Привязать звук на кнопку в пдф файле сделанном из экселя
 
Здравствуйте. Программа AdobeInDesign умеет такое делать, как-то было игрался, но это не тот походу форум.
Автоматический запуск макроса при открытии книги (с условием бездействия пользователя определенное время)
 

Здравствуйте.
Изменено:
Все работает, как вы делали я не знаю.

Здесь код

Ниже автор темы написал:
Цитата
если же повесить запуск данного макроса на событие workbook open, то окно показывается, но уже не закрывается, видимо все те же чудеса vbs
В Excel 2010 и 2016 все нормально работает, и показывается, и закрывается.
P.S Чтобы работало мало написать Workbook_Open, нужно код поместить в модуль Эта книга, а не в обычный Module1.
Вот файл:

Изменено: DANIKOLA - 18 окт 2020 09:32:34 (В файле примере добавил описание)
Нужно построить множество графиков в экселе, а затем их массово сохранить как картинки
 

Этот макрос сохраняет все диаграммы активного листа, как картинки *.jpg, в указанную пользователем папку.

Здесь код

В файле есть другой макрос, в котором имеется возможность выбрать тип картинки.

Изменено: DANIKOLA - 14 окт 2020 09:02:29 (Улучшен макрос)
Нужно построить множество графиков в экселе, а затем их массово сохранить как картинки
 
Dina,тут бы файл-пример, со структурой, как в оригинале, не помешал.
Дописал сообщение:
Dina, в вашем файле-примере не очень понятно как построены ваши данные, с какой периодичностью и как вообще. Или все данные на одном листе, или на разных листах с одинаковой структурой?.. Нужно увидеть ту периодичность, как именно та структура данных повторяется, чтобы за неё зацепиться с помощью цикла VBA.
Изменено: DANIKOLA - 12 окт 2020 19:15:01
Удаление стилей ячеек
 
Здравствуйте. А эту тему смотрели?
Как найти часть текста в текстовом массиве?
 
Здравствуйте. А функция ПСТР + ПОИСК(или НАЙТИ), пробовали?
Приложите файл-пример и всем будет проще и по правилам.
Изменено: DANIKOLA - 6 окт 2020 18:22:24
Как с помощью CheckBox выделить нужные листы и снять выделение листов
 

Здравствуйте. Вот еще вариант.
Это всего-навсего идея, а пользоваться этим вариантом или нет - решать автору вопроса.
А на счет "то пропадает выделение", я знаю, так было задумано, если это не удобно, то уберите в чекбоксах условие, но потом литы будут в непрестанной группировке, что нахожу не очень удобным.

Изменено: DANIKOLA - 1 окт 2020 23:22:44
Сокращенные названия городов заглавными буквами
 

Здравствуйте. Для меня макросом проще.

Здесь код

Номер строки выбранной ячейки
 

А так вроди проще:

Код
Function Stroka() As Long
    Stroka = ActiveCell.Row
End Function

Да, вроди проще(Stroka = ActiveCell.Row), но не правильно. У Димитрия правильно.

Изменено: DANIKOLA - 27 сен 2020 11:14:39
Запуск макроса при изменении определенных строк с шагом в диапазоне
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim RowNumber As Long, ColumnsUsed As Integer
    
    ColumnsUsed = 40 ' Число используемых колонок измените вручную
    RowNumber = Target.Row
    If RowNumber > 20 And RowNumber < 2000 And Target.Column < ColumnsUsed Then
        If (RowNumber - 21) Mod 8 = 0 Then
             MsgBox "OK!!"
        End If
    End If
End Sub
Решение New, нахожу более лаконичным, так что использую его. Циклом - это затратно для ресурсов системы.
Запуск макроса при изменении определенных строк с шагом в диапазоне
 
Здравствуйте. А так?
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range, i As Integer
     
    For i = 21 To 2000 Step 8
        Set KeyCells = Rows(i)
        If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
            MsgBox "OK!!"
            Exit For
        End If
    Next i
 
End Sub
Отображение окон Excel
 
RAN, может такой вариант подойдет? В Win10 работает я пробовал.
Как вставить формулу =СЕГОДНЯ() в текст?
 
Здравствуйте. См. сюда
VBA обработка событий элемента OptionButton, внедренного на лист Excel
 
Добрый день.
Изменено: DANIKOLA - 17 сен 2020 19:02:56
VBA создание комментариев к коду с помощью комбинаций клавиш клавиатуры
 
Здравствуйте. А может без комбинаций клавиш?
Искал у иностранцев, не ничего. Вопрос на эту тему есть, а ответ такоже, как и здесь.
Изменено: DANIKOLA - 13 сен 2020 12:51:26
Остановка работы макроса по нажатию кнопки в форме, Остановка макроса через кнопку в форме
 
Добрый вечер. Еще такой вариант есть.
Группировка фигур на листе, не включая в группировку кнопки
 
А вот еще гляньте. Там исключение можно просто по имени добавить или как там...
И еще одно, вы ведь знаете заранее сколько фигур нужно исключить из группировки, так массив нужно задавать меньшим, как-раз на это количество, чтобы при исключении фигур не подлежащих группировке, массив не оказался не до конца заполненным и не возникала ошибка.
Ошибки не возникает и кнопки игнорируются - проверил.
Изменено: DANIKOLA - 31 авг 2020 19:16:50
Группировка фигур на листе, не включая в группировку кнопки
 
Здравствуйте. Посмотрите в модуле 2, может подойдет.
Запуск макроса, если книга открывается в заданный промежуток времени
 
Здравствуйте. А это не подходит?
Добавление диапазона ячеек (таблицы ) в тело письма
 
Здравствуйте. У меня валяется готовое решение, попробуйте подойдет ли для ваших нужд, только адреса подправьте на правильные на листе "Адреса".
Там кнопка на листе1. Выделите нужный диапазон ячеек и после заполнения полей формы жмите кнопку "отправить".
Изменено: DANIKOLA - 27 авг 2020 11:24:29
Копирование файлов по гиперссылкам
 
Здравствуйте. Возможность есть и материала в сети предостаточно, к примеру раз и два.
Код для поиска файла по альтернативному пути., Как заставить код искать файл label.xlsx по альтернативному пути ?
 
Добрый день. Вот путь к рабочему столу любого ПК:
Все работает, слеш кто будет добавлять вместо вас? Мы только подсказываем, а все остальное за вами.
Код
Environ("USERPROFILE") & "\Desktop"
'или более заморочено
Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Desktop"

Sub b()
    Dim FilePath As String
    Selection.Copy
    'ChDir "C:\Users\Oleg\Desktop"
    'FilePath = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Desktop\"
    'èëè
    FilePath = Environ("USERPROFILE") & "\Desktop\"
    Workbooks.Open Filename:=FilePath & "Òåñòò.xlsx" 'label
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub 
Изменено: DANIKOLA - 26 авг 2020 11:58:31
Блокировка ячеек на изменения при достижении количества определенных данных
 
Скопируйте код в свой файл, именно в модуль нужного листа, как увидеть код вот посмотрите 40 сек.
Код по любому нужно будет править.
Изменено: DANIKOLA - 25 авг 2020 22:13:24
Блокировка ячеек на изменения при достижении количества определенных данных
 
Konstantin Sologub, может через проверку ввода данных, хотя я не уверен.
Блокировка ячеек на изменения при достижении количества определенных данных
 
Вот пока только для колонки "D", для пробы. Сделано с помощью макроса, код в модуле листа. Правой кнопкой мыши по ярлыку листа, "Исходный текст(или код)"
Блокировка ячеек на изменения при достижении количества определенных данных
 
Добрый день. Решить задачу можно, только бы вы добавили файл-пример, близкий к оригиналу по сруктуре, чтобы было с чем работать.
Замена формул с сылками на другие листы значениями
 
Или так:
Код
Sub FormulasToValues2()
    Dim cell As Range, str
    For Each cell In Selection
        str = cell.Formula
        If InStr(1, str, "!") > 0 Then
            cell.Formula = cell.Value
        End If
    Next cell
End Sub
Как облегчить редактирование большого текста в ячейке?, .
 
Извиняюсь, не до конца прочитал вопрос. Поспешил с ответом.
Вариант Настя_Nastya вполне подходит, проверял.
Hugo, думаю Настя_Nastya делала так:
Изменено: DANIKOLA - 21 авг 2020 18:18:39
Массовое удаление гиперссылок с картинок, Массовое удаление гиперссылок с картинок
 
vikttur, я это знаю, сделаю позже.

Artua11, на здоровье.
Изменено: DANIKOLA - 21 авг 2020 17:40:39
Страницы: 1 2 3 4 5 След.
Наверх