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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 185 След.
Получение значения переменной из формы
 
Irbis_evs,
читайте цикл жизни переменных
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Обьединение 2-х макросов в рамках одной процедуры "Worksheet_Change"
 
Sanja,
макросы задают форматы (не факт что меняют) в некоторых ячейках колонок правее В и левее Х (не В и Х, а С и W)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Обьединение 2-х макросов в рамках одной процедуры "Worksheet_Change"
 
обьявите Sub InsData с 3-мя параметрами
Sub InsData(InpRg As Range, offs As Integer, Optional DateFormat$ = "dd.mm.yyyy, hh:mm")
строку в ней
Rng.Offset(0, offs).NumberFormat = "dd.mm.yyyy, hh:mm"
замените на
Rng.Offset(0, offs).NumberFormat = DateFormat
вызывайте InsData там, где это нужно, с 3-им параметром:
InsData Intersect(Application.ActiveSheet.Range("B:B"), Target), 1, "dd.mm.yyyy"
иди
InsData Intersect(Application.ActiveSheet.Range("X:X"), Target), -1, "dd.mm.yyyy"
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Обьединение 2-х макросов в рамках одной процедуры "Worksheet_Change"
 
замените на такие 2:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
  InsData Intersect(Application.ActiveSheet.Range("X:X"), Target), -1
  InsData Intersect(Application.ActiveSheet.Range("B:B"), Target), 1
End Sub

Sub InsData(InpRg As Range, offs As Integer)
  Dim Rng As Range
  If InpRg Is Nothing Then Exit Sub
  Application.EnableEvents = False
  For Each Rng In InpRg
    If Not VBA.IsEmpty(Rng.Value) Then
      Rng.Offset(0, offs).Value = Now
      Rng.Offset(0, offs).NumberFormat = "dd.mm.yyyy, hh:mm"
    Else
      Rng.Offset(0, offs).ClearContents
    End If
  Next
  Application.EnableEvents = True
End Sub
Изменено: Ігор Гончаренко - 20 Июл 2019 00:53:35
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Пауза макроса для выполнения другого, Как приостановить макрос
 
Цитата
БМВ написал:
чтоб первый не остановился и оба работали параллельно
запустите 2 экземпляра Excel
запустите оба макроса с помощью OnTime в одно время, можно научить макросы играть в пинг-понг и наблюдать за происходящим)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Пауза макроса для выполнения другого, Как приостановить макрос
 
не нужно ничего приостанавливать.
в том месте, где Вы собирались "приостановить" первый макрос, добавьте в код строку и напишите в ней имя второго макроса
Изменено: Ігор Гончаренко - 19 Июл 2019 15:54:52
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Подборка функций пользователя
 
Цитата
Evgenyy написал:
но объём файла уже к 300 Кб приближается и будет не возможно загрузить
можно издать отдельной книжкой "Женин сборник функций"
потенциальный покупатель будет заинтригован это сборник функций Жени или жены??? это подстегнет интерес и обьемы продаж соотв.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сортировка по убыванию с исключением строк с показателем < 2
 
ОФФ

я вообще не понимаю почему садисты обижаются, когда их называют садистами?
потому что программисты обижаются, когда их не называют программистами)
Изменено: Ігор Гончаренко - 19 Июл 2019 15:42:54
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Снять защиту с части листа с макросом
 
worksheets(x).unprotect - снять защиту с листа Х
защита не снимается и не ставиться на часть листа - ТОЛЬКО на лист
но... на каждой ячейке можно установить свойство будет-ли она защищена на защищенном листе или нет
[a1].Locked = True - А1 будет защищена
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сортировка по убыванию с исключением строк с показателем < 2
 
БМВ,
ну, с отсечкой - это не с обрезанием, можно и посортировать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сортировка по убыванию с исключением строк с показателем < 2
 
в результате сортировки с отсечкой где в отсортированной таблице должна оказаться строка Д с показателем 1, который < 2?
(в начале таблицы, в конце, в 4-й позиции, где она находится на старте, или все что < 2 вообще не должно попасть в отсортированную таблицу)
Изменено: Ігор Гончаренко - 19 Июл 2019 14:25:22
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA - замена значений в ячейках только в выделенном диапазоне по условию
 
Цитата
Wendflower написал:
у меня получилось только
если у Вас получилось на весь лист, то не понимаю, что останавливает сделать то же самое для отмеченного диапазона???
если получилось не у Вас, то так и пишите: нашел вот такой макрос помогите исправить его чтобы он работал для вот таких условий
и найдется кто-то, кто поможет
а пока сообщение читается так:
"я для листа сделал, но парится еще и с диапазоном - облом. сделайте кто-нибудь чтобы работало в отмеченном диапазоне, пожалуйста!"
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Выборка поиском по соседнему полю vba, Прошу подсказать способ организации поиска с выборкой на UserForm
 
Цитата
User_rider написал:
Читаю инет - пока не понятно
читайте еще личные сообщения, может так что-то проясниться
Изменено: Ігор Гончаренко - 19 Июл 2019 13:47:30
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как добавлять/отнимать/сравнивать время при учете сверхурочных?
 
"проклятое время" как числа (и обычное время)
складывается с помощью оператора +
отнимается с помощью оператора  -
главное помнить, что результатом суммирования проклятого времени будет проклятое время

а вот сравнивается с помощью операторов сравнения. возьмите лист бумаги, карандаш, записывайте:
= (равно)
<> (не равно)
> (больше)
< (меньше)
>=, => (не менее)
<=. =< (не более)
Изменено: Ігор Гончаренко - 19 Июл 2019 15:29:51
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Комплексное обновление (изменение содержания) всех модулей n-кол-ва книг в папке через VBA из другой (ОСНОВНОЙ) книги
 
Цитата
falmrom написал:
Возникла проблема!
закономерно.
чем дольше Вы будете пытаться модифицировать код с помощью кода, тем больше проблем Вас ожидают на этом пути
может просто для начала нужно научить писать универсальный и корректный код и если окажется, что навык усвоен, то, возможно,  отпадет необходимость осваивать технику исправления кода кодом...
Изменено: Ігор Гончаренко - 18 Июл 2019 14:48:46
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Подсчет стажа в столбик
 
см. вложение (лист Стаж) я так и сделал - записи о прийоме-уволнении располагаются в столбик
Изменено: Ігор Гончаренко - 18 Июл 2019 13:50:30
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Управление отображением кнопок в надстройке с помощью RibbonControl
 
ограничьте количество отображаемых кнопок макросом.  
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Что означает формула =Таблица{A1;B5} (формула массива)
 
есть подозрения, что эта формула как-то связана с Таблицей
на основании представленных данных  ничего больше сказать не могу.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Копировать значение ячеек в строке, которую выбрал пользователь, на соседний лист с выдачей сообщения о результате
 
на листе 1 ставите курсор в нужную строку
переходите на лист 2 (я заполнил там 7 первых полей)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA. Перемещение строк между листами с использованием массивов, Помогите доработать макрос.
 
а давай те теперь проведем работу с массивами без массивов
с какого диапазона в какой должны попасть данные можно узнать?
без кодов, шифров, явок. ставок и прочей шпиогской лабуды, а просто своими словами опишите задачу ссылаясь на имена листов, адреса диапазонов
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Определить количество непустых текстов, упрощение формулы
 
=сумм(--не(епусто(диапазон)))
формула массива
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Макрос для сопоставления двух массивов
 
Давайте сведем эти данные
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Функция отсекающая определенный интервал времени (время обеда)
 
Код
=RC[-1]-RC[-2]-(МАКС(RC[-2];R3C3)<МИН(RC[-1];R3C5))*(МИН(RC[-1];R3C5)-МАКС(RC[-2];R3C3))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Копировать значение ячеек в строке, которую выбрал пользователь, на соседний лист с выдачей сообщения о результате
 
loggg,
есть тут люди, которые не плохо разбираются в написании макросов, но все они ПОЛНЫЕ НУЛИ в вопросе как найти
Цитата
определенную ячейку на втором листе
пока реально не рассказано "определенная" - это какая конкретно? или каким алгоритмом ее можно вычислить?
т.е. пока "определенная ячейка" совершенно не определена - скопировать в нее ничего не возможно
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Возможно ли заменить код VBA (в макросе), не открывая сам макрос
 
Код
Sub Макрос1()
  Dim sdt$
  sdt = Format([A2], "DD.MM.YYYY")
  Workbooks.Open Filename:="D:\" & sdt & "\dead" & sdt & ".xlsx"
    Range("A5:B6").Select
    Selection.Copy
    Windows("test1.xlsm").Activate
    ActiveSheet.Paste
  Workbooks.Open Filename:="D:\" & sdt & "\rip" & sdt & ".xlsx"
    Range("A1:B4").Select
    Selection.Copy
    Windows("test1.xlsm").Activate
    ActiveSheet.Paste
  Workbooks.Open Filename:="D:\" & sdt & "\skull" & sdt & ".xlsx"
    Range("A2:B5").Select
    Selection.Copy
    Windows("test1.xlsm").Activate
    ActiveSheet.Paste
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Получение из ячейки значения с учетом формата
 
range("K10").text
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
ИЩУ СПЕЦИАЛИСТА В ЭКСЕЛЬ (ЗАКАЗ ПУТЕВОГО ЛИСТА С ФОРМУЛАМИ)
 
путевые листы - это как раз моя специализация в Excel
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
проблема генератора для репрезентативной выборки с макросами, нужна помощь
 
ВНИМАНИЕ! Будьде осторожны!
чтение кода, а особенно, попытки понять что он должен делать - может разрушить Ваш мозг
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как в формуле игнорировать выходные дни?
 
а где в Вашем файле перечислены праздничные дни (которые не нужно учитывать)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сбор конкретных данных из разных книг в одну таблицу
 
Цитата
EvgeniyLFC написал:
Сбор конкретных данных из разных книг в одну таблицу
открываете книги с данными
последовательно, ячейка за ячейкой выбираете из конкретных книг конкретные данные:
ДанныеИзКниги = Workbooks("Имя конкретной книги").Worksheets("Имя конкретного листа в ней").Range("Имя конкретной ячейки на этом листе")

по заданному вопросу, вроде все.
а теперь можно обсудить что Вам реально нужно из тех книг, т.е.
решить не общую задачу
"получить конкретные данные из книги"
а Вашу задачу:
"как вот из таких книг получить вот сюда, вот такие данные?"
Изменено: Ігор Гончаренко - 16 Июл 2019 13:10:53
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 185 След.
Наверх