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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 456 След.
Копирование+обьединение в буфер обмена, через необходимый разделитель, Значения выделеных ячеек скопировать и поместить в буфер обмена, для вставки в другие программы.
 
Пробел может задвоиться
Согласие есть продукт при полном непротивлении сторон.
Копирование+обьединение в буфер обмена, через необходимый разделитель, Значения выделеных ячеек скопировать и поместить в буфер обмена, для вставки в другие программы.
 
Так?
Код
'-------------------
sDlm = Application.InputBox("Введите/выберите разделитель...", , , , , , , 2)
If sDlm = "False" Then Exit Sub
'-------------------
П.С. Можете сказать, в чем сакральный смысл вот этой строки?
Код
Sep = "" & sDlm & ""
Изменено: Sanja - 24 Апр 2019 07:00:08
Согласие есть продукт при полном непротивлении сторон.
переместить значение внутри ячейки, удалить значение внутри ячейки
 
Цитата
Artsem K написал: формулу в студию .... я получу файл, съедобный...
Цитата
Сергей написал: на стажировку к Якубовичу

Artsem K, 'Призовые' обсуждаются в ЭТОЙ ветке форума, а то бесплатные 'съедобные' файлы закончились
Согласие есть продукт при полном непротивлении сторон.
Разбивка на строки по разделителю с копированием
 
Цитата
askex написал: есть так:....надо чтоб стало
Покажите все это в файле-примере
Согласие есть продукт при полном непротивлении сторон.
Защита листа с возможностью группировки
 
Цитата
Dinamit2 написал: все (!!!) листы одновременно
Код
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.EnableOutlining = True
    sh.Protect Password:="0123", UserInterfaceOnly:=True
Next
End Sub
Согласие есть продукт при полном непротивлении сторон.
Не ноль, а 2,04281E-14, Плавающая запятая
 
Теория
Практика
Согласие есть продукт при полном непротивлении сторон.
Подсчёт затраченного времени, Подсчёт затраченного времени на цикл времени
 
Замените в исходных данных разделитель времени с точки на двоеточие и
Цитата
Sanja написал: От большего вычесть меньшее и назначить ячейке с результатом формат '37:30:55' (есть такой в списке форматов, в разделе Время)
Согласие есть продукт при полном непротивлении сторон.
Подсчёт затраченного времени, Подсчёт затраченного времени на цикл времени
 
От большего вычесть меньшее и назначить ячейке с результатом формат '37:30:55' (есть такой в списке форматов, в разделе Время)
Согласие есть продукт при полном непротивлении сторон.
Копирование+обьединение в буфер обмена, через необходимый разделитель, Значения выделеных ячеек скопировать и поместить в буфер обмена, для вставки в другие программы.
 
Разработчик - Макросы - Выбрать нужный - Параметры - Сочетание клавиш
Согласие есть продукт при полном непротивлении сторон.
Копирование+обьединение в буфер обмена, через необходимый разделитель, Значения выделеных ячеек скопировать и поместить в буфер обмена, для вставки в другие программы.
 
Скрытый текст

Функции работы с буфером подсмотрены ЗДЕСЬ
Макрос запускается по Ctrl+Shift+Q
Изменено: Sanja - 23 Апр 2019 08:03:39
Согласие есть продукт при полном непротивлении сторон.
Помощь с макросами
 
Ознакомьтесь с Правилами форума.
ПРЕДЛОЖИТЕ (здесь, в сообщении) название для Темы топика, отражающее суть задачи
Приложите файл-пример. Как есть - Как надо, а не какой-то 'ссыль'
Изменено: Sanja - 22 Апр 2019 21:55:08
Согласие есть продукт при полном непротивлении сторон.
Макрос ошибочно умножает число на 1000
 
А где этот 'неправильный' макрос? И покажите в файле Как есть - Как надо
Согласие есть продукт при полном непротивлении сторон.
Макрос ошибочно умножает число на 1000
 
Куда/где эти числа попадаются? Файл-пример в студию
Согласие есть продукт при полном непротивлении сторон.
Дан ряд чисел через запятую. размножить значение в хвосте.
 
Код
=A1&ПОВТОР(ПРАВСИМВ(A1;5);3)
Согласие есть продукт при полном непротивлении сторон.
Помещение функции в окошечко Userform, Помогите добавить функцию в окно Userform
 
Мне кажется и не пытались. Если по ссылке непонятно, любой поисковик Вам еще с десяток выдаст по запросу 'Создание UserForm VBA'
Согласие есть продукт при полном непротивлении сторон.
Помещение функции в окошечко Userform, Помогите добавить функцию в окно Userform
 
Изучайте мат.часть
Согласие есть продукт при полном непротивлении сторон.
Помещение функции в окошечко Userform, Помогите добавить функцию в окно Userform
 
Что должно быть "на выходе"? Что значит 'поместить функцию в окошечко'?
Согласие есть продукт при полном непротивлении сторон.
Модули на русском языке
 
Опять же вопросы совместимости.
Согласие есть продукт при полном непротивлении сторон.
Макрос, выполняемый с заданным периодом автоматически
 
Макрос на перезапись из какого файла запускается?
Согласие есть продукт при полном непротивлении сторон.
Макрос, выполняемый с заданным периодом автоматически
 
Цитата
Philosopher написал: Тут какие-то ячейки со временем перезаписи
Эти ячейки вставлены в код для демонстрации того, что файл именно ЗАМЕНЯЕТСЯ новым, каждые 5 секунд, а не остается самая первая версия. Эти строки кода можно удалить.
Согласие есть продукт при полном непротивлении сторон.
Макрос, выполняемый с заданным периодом автоматически
 
Хоть Вы и рекомендовали мне здесь больше не писать, рискну
В модуль ЭтаКнига
Код
Sub Workbook_Open()
    If ActiveWorkbook.Name = "Мастер2.xls" Then Call NextRun
End Sub
В основной модуль
Код
Dim TimeToRun

Sub MyMacro()
With ThisWorkbook.Worksheets("Лист1")
    .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1) = Format(Now, "DD.MM.YYYY hh:mm:ss")
End With
ThisWorkbook.Save
Set FSO = CreateObject("Scripting.FileSystemObject")
'свои пути подставьте
FSO.CopyFile "d:\DOWNLOAD\Мастер2.xls", "d:\DOWNLOAD\Arhive\" & Date & ".xls", True
Call NextRun
End Sub

Sub NextRun()
    TimeToRun = Now + TimeValue("00:00:05") 'период пять секунд
    Application.OnTime TimeToRun, "MyMacro"
End Sub

Sub Finish()
    Application.OnTime TimeToRun, "MyMacro", , False
End Sub
Согласие есть продукт при полном непротивлении сторон.
Макрос, выполняемый с заданным периодом автоматически
 
Дописать строку сохранения файла перед его копированием
Согласие есть продукт при полном непротивлении сторон.
Макрос, выполняемый с заданным периодом автоматически
 
Цитата
Philosopher написал: Хотелось бы верный текст от и до получить
По ссылке выше код верный,но Вы, почему-то, не хотите его использовать
Согласие есть продукт при полном непротивлении сторон.
Макрос, выполняемый с заданным периодом автоматически
 
Цитата
Philosopher написал: Если нечего сказать по делу- не пишите.
Да действительно, лучше покажу
Правда пришлось свои пути прописать и периодичность задать поменьше, для наглядности (5 секунд)
Код
FSO.CopyFile "d:\DOWNLOAD\Мастер2.xls", "d:\DOWNLOAD\Arhive\" & Format(Now, "hh_mm_ss") & ".xls", True
Согласие есть продукт при полном непротивлении сторон.
Макрос, выполняемый с заданным периодом автоматически
 
Цитата
Philosopher написал: Это я видел
Видеть мало - нужно попробовать сделать так, как написано в статье. У меня, например, все работает
Согласие есть продукт при полном непротивлении сторон.
Макрос, выполняемый с заданным периодом автоматически
 
Запуск макроса с заданной частотой
Согласие есть продукт при полном непротивлении сторон.
Несколько задач по Макросам VBA, +25 в карму каждому, кто поможет
 
С Правилами форума ознакомьтесь. Про название темы, про файл-пример, и про 'один вопрос - одна тема'
И про рекламу тоже там написано (см. Ваш ник)
Изменено: Sanja - 21 Апр 2019 17:37:23
Согласие есть продукт при полном непротивлении сторон.
Вытащить данные по нескольким критериям, Подскажите пожалуйста решение, нужно вытащить данные по нескольким критериям и вставить их в табличку один за другим.
 
UDF. Формула массива
Код
Function Seitkassym(iTbl As Range, arrClmn(), iPos$, iSc)
'iTbl - таблица исходных данных
'arrClmn - массив номеров столбцов для выборки из исходной таблицы
'iPos - искомая должность
'iSc - искомая оценка
Dim tmpArr$(), I&, J&, N&
arr = iTbl.Value
ReDim tmpArr(1 To Application.Caller.Rows.Count, 1 To 4): N = 1
For I = 1 To UBound(arr)
    If Trim(arr(I, 2)) = iPos And Trim(arr(I, 8)) = iSc Then
        For J = 1 To UBound(arrClmn)
            tmpArr(N, J) = arr(I, arrClmn(J))
        Next
        N = N + 1
    End If
Next
Seitkassym = tmpArr
End Function
Изменено: Sanja - 21 Апр 2019 17:24:28
Согласие есть продукт при полном непротивлении сторон.
Как задать в макросе - конкретную ячейку - в качестве адреса.
 
Пишите макросы с WinAPI, а как к ячейке обратиться не знаете!?
Согласие есть продукт при полном непротивлении сторон.
Как задать в макросе - конкретную ячейку - в качестве адреса.
 
Точнее
Код
Range("AW12")
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 456 След.
Наверх