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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 210 След.
При выделении ячеек убрать / поставить рамки - Внешние рамки
 
скопируйте этот
Код
Sub РамкиSet(rg As Range)
  Dim b&
  With rg
  For b = 7 To 10: .Borders(b).Weight = xlThin: Next
  End With
End Sub

Sub РамкиClear(rg As Range)
  Dim b&
  With rg
  For b = 7 To 10: .Borders(b).LineStyle = xlNone: Next
  End With
End Sub

Sub test()
  Dim rg As Range
  Set rg = [c4:h10]
  РамкиSet rg
  MsgBox "Видите рамку у диапазона: " & rg.Address(0, 0) _
  & vbLf & "жмите ОК - и она будет удалена))"
  РамкиClear rg
End Sub
в программный модуль, выполните Test
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Копирование листа закрытой книги при открытии при частичном совпадении названия файла
 
Код
fn = dir("d:\*полезная*.*")
if fn <> "" then
Set wbCopy = Workbooks.Open("D:\" & fn, False, False)
Изменено: Ігор Гончаренко - 13 Дек 2019 00:10:09
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как убрать выделение после сортировки на неактивном листе. VBA
 
исправил немного
при вызове Sort передавайте ей ИмяЛиста и №ПоследнейКолонки с данными на этом листе
в примере показано как
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как убрать выделение после сортировки на неактивном листе. VBA
 
Код
Sub Sort1()
  Sort "Лист1", 8
End Sub
 
 
Sub Sort2()
  Sort "Лист2", 9
End Sub


Sub Sort(ShNm$, C&)
  Dim rg As Range, ws
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  If ShNm = ActiveSheet.Name Then
    Set rg = ActiveCell
  Else
    Set ws = ActiveSheet: Worksheets(ShNm).Activate: Set rg = ActiveCell
    ws.Activate
  End If
  Dim Sh As Range, iLastRow&
  With ActiveWorkbook.Worksheets(ShNm)
    iLastRow& = .Cells(.Rows.Count, C).End(xlUp).Row
    If iLastRow < 5 Then Exit Sub
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("D5:D" & iLastRow), _
      SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      .Sort.SetRange .Range("B5:" & Left(Cells(1, C).Address(0, 0), 1) & iLastRow)
    With .Sort
      .Header = xlGuess: .MatchCase = False
      .Orientation = xlTopToBottom: .SortMethod = xlPinYin: .Apply
    End With
  End With
  If rg.Parent.Name = ActiveSheet.Name Then
    rg.Select
  Else
    Worksheets(ShNm).Activate: rg.Select: ws.Activate
  End If
  Application.EnableEvents = True
  Application.ScreenUpdating = True
End Sub
Изменено: Ігор Гончаренко - 12 Дек 2019 14:24:59
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Быстродействие (скорость работы) в MS Excel
 
нельза в данных держать формулы
6000 строк в 4-х колонках формулы - их уже 24 тысячи, это еще не смертельно, но вы уже чуаствуете, что это неудобно
т.е. держать можно, но будьте готовы к тому что они будут иногда пересчитываться и у вас через некоторое время перестанет хватать нервов на ожидание результатов пересчета "при каждом шорохе а файле"
общая рекомендация такая:
как только вы начинаете замечать пересчеты в файле - это повод задуматься, как от этого уйти, потому что дальше - будет все хуже и хуже
как только вы задумались: "может выключить автопересчет" - нужно что-то серьезно менять в файле, отключение автопересчета - это повод в самый неподходящий момент забыть что он отключен и принять решение на основании недостоверных результатов расчетов (обьявить заказчику стоимость проекта, еще хуже написать ее в письме)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
количество уникальных авторов
 
а чем уникальный автор отличается от автора?
(в чем заключается его уникальность? как ее считать? как из списка авторов выделить уникальных?)
Изменено: Ігор Гончаренко - 12 Дек 2019 11:05:01
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Определить числа, записанные в ячейке через пробел
 
если значения в ячейку собраны логичным способом, то количество значений в ячейке на 1 больше чем количество разделителей значений
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
вычислить дату дня недели
 
надеюсь найдется человек, который покажет такую дату, записав которую в А2, формула
=a2+10-WEEKDAY(a2;2)
покажет НЕ СРЕДУ СЛЕДУЮЩЕЙ НЕДЕЛИ
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Отметить в таблице периоды времени более 2 часов, Отмечать если предыдущая дата/время отличается более чем на 2 часа
 
читайте название темы:
Цитата
ser987 написал:
периоды времени более 2 часов
читайтке в первом сообщении
Цитата
ser987 написал:
дата/время отличается более чем на 2 часа
16 часоа - 14часов это 2 часа
2 часа это больше чем 2 часа? или может быть это равно 2 часа???
я читаю то, что вы пишете, а потом считаю согласно того, что написано и совершенно не читаю ваши мысли (когда вы пишете нужно больше 2 часов, а сами думаете но и 2 часа то же сойдет)
делите уже тогда на 12.001 - так надежнее будет, а то при 12.1 любая разница более 1:59:01 будет учтена как разница более этих условных  2 часа\ов
удачи!
Изменено: Ігор Гончаренко - 12 Дек 2019 04:10:05
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Выбор диапазона ячеек макроса через userform/combobox
 
Цитата
Baguza написал:
Теперь с диапазоном не понятно. Как его изменить?
в #2 показано как выбрать ЛЮБОЙ диапазон, присвоить переменной, и как потом выбранный диапазон использовать в дальнейших расчетах
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Отметить в таблице периоды времени более 2 часов, Отмечать если предыдущая дата/время отличается более чем на 2 часа
 
в В3 формула массива:
Код
=--([@Столбец2]-ИНДЕКС(A:A;МАКС(ЕСЛИ($B$2:B2=1;СТРОКА($B$2:B2))))>1/12) 
и...
21.07.2019  16:00:00 не отличается
Цитата
ser987 написал:
более чем на 2 часа
от 21.07.2019  14:00:00
а вот 21.07.2019  17:00:00 - это на целых 3 часа больше и оно подходит
Изменено: Ігор Гончаренко - 12 Дек 2019 03:02:10
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Выбор диапазона ячеек макроса через userform/combobox
 
#2 никаким боком не относится к вашей форме - ни сколько не отрицает и ни чуть не поощряет использование  этой формы и любых других
#2 показывает как выбрать диапазон с любого листа, любой книги, и как потом воспользоваться тем, что выбрано
привяжете вы этот способ к своей форме, создадите на его основании пользовательскую функцию и воспользуетесь любым другим способом - это ваше личное дело, кстати, точно такое жн личное, как забить на эту подсказку и придумать что-то свое, белее удобное, универсальное и эффективное по сравнению с предложенным мною убогим способом
Цитата
Baguza написал:
Выбор диапазона ячеек макроса через userform/combobox
если из названия вашей темы выкинуть "через userform/combobox"
то пример как раз отвечает на вопрос:  "Выбор диапазона ячеек макросом"
понимаете, можно, собрав большую бригаду строителей с помощью медицинских бинтов поднять железобетонную плиту перекрытия и установить ее на место монтажа, а можно для этого использовать подьемный кран и спропы, - зацепить и поставить на место
в случае с "Выбор диапазона ячеек макроса через userform/combobox" вы не рискуете жизнями бригады строителей и можете продолжать эксперименты, пока все не получиться (если поставить такую цель - можно найти тысячи разных вариантов, как сделать это с помощью юзерформ и комбобокса в ней)))
Изменено: Ігор Гончаренко - 12 Дек 2019 02:59:27
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Отметить в таблице периоды времени более 2 часов, Отмечать если предыдущая дата/время отличается более чем на 2 часа
 
в В3
Код
=--([@Столбец2]-A2>1/12)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Выбор диапазона ячеек макроса через userform/combobox
 
Цитата
Baguza написал:
Ещё никто не ответил ?
а смысл?
тут нужны не точечные подсказки, а брать весь проект целиком и выдать обратно полностью рабочий вариант
кому будет интересно выяснит у автора условия задачи, напишет все, завяжет сверху красивым голубеньким бантиком (т.е. модули лучше запаролить) и попросит пользоваться не развязывая его
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Координатное выделение. Макрос по событию листа
 
OblivionR,
вы задаете вопрос: "почему с этим условием код работает, а без условия нет?"
получаете ответ:
код написан криво и его работоспособность не зависит от наличия,/отсутсвия в коде строки с названным условием

а нужно  просто описать задачу: мне нужно чтобы при выделении ячеек ...
и дальше пишите при выделении каких ячеек что должно происходить на листе.
в следующем сообщении получаете ГОТОВЫЙ ответ, не читаете тонны сообщений не пытаетесь понять непонятные вам предложения и фрагменты кода, а просто в следующем сообщении получаете готовое решение описанной в первом сообщении задачи
так все работает, точно и эффективно
1-е сообщение - описание задачи
2-е сообщение - способ ее решения
3-е сообщение - слова благодарности за сделанную работу и потраченное время
все
Изменено: Ігор Гончаренко - 11 Дек 2019 22:32:36
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Макрос на копирование данных из 1го листа на другой
 
при нажатии
1. в колонке Остановок за смену значение увеличивается на 1
2. данные из этой строки копируются на лист реестр  в конец списка
так?

и куда отпавить результат?
отправлено, оплачено
Изменено: Ігор Гончаренко - 11 Дек 2019 23:14:47
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Наименьший не считает в массиве
 
потому что у НАИБОЛЬШИЙ. НАИМЕНЬШИЙ только 2 аргумента: диапазон значений и порядковый номер наибольшего, наименьшего, который нужно извлечь
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как проверить на совпадение значений в ячейках столбца и совершить действие при несовпадении
 
есть еще козыри в рукаве?
или ...
лучше еще подождать, пока все не выложите
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как сделать циклический перебор дат в месяце
 
прибавляйте к 1-му числу по единичке
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как запретить ввод в ячейку чисел, которые больше, чем в ячейке, расположенной над ней?
 
см.вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Получить все возможные сочетания значений в столбцах
 
можно макросом
а в каком виде нужны результаты?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Выбор диапазона ячеек макроса через userform/combobox
 
Baguza,
См. #2. там написано как выбрать диапазлн, чтобы запустить расчет в нем и нигде больше
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Создание колонтитула чтобы общее количество страниц бралось из определенной ячейки
 
Код
.LeftFooter = [X4] & ", общее количество страниц" & [E7] & ", страница &P"
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Координатное выделение. Макрос по событию листа
 
1. оставьте условие в макросе
2. отметьте ячейку М11
3. сработало?
4. вывод о том, как наличие этого фрагмента кода влияет на работоспособность вашего кода можете сделать самостоятельно
Изменено: Ігор Гончаренко - 11 Дек 2019 00:30:07
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
По условию в столбце найти совпадение имён и выдать результат заданного формата, Выполнить условие путём написания сложной формулы
 
Chernyshov,
очевидно,
что задача не выполнить условие
а задача осуществить какие-то манипуляции с данными
вот об этом и пишите, что нужно сделать, а уже описывая что нужно сделать можно описать при выполнении каких условий это следует сделать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Список листов книги с помощью макроса
 
))
совсем на форуме экстрасенсы перевелись, элементарных вещей угадать не могут!
Изменено: Ігор Гончаренко - 10 Дек 2019 23:49:37
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Координатное выделение. Макрос по событию листа
 
Цитата
OblivionR написал:
Почему без условия не работает код
код не работает потому что криво написан (хоть с тем условием, хоть без него,)
т.е. наличие / отсутствие в коде выделенного вами условия совершенно не влияет на кривизну этого кода
 
Изменено: Ігор Гончаренко - 10 Дек 2019 23:52:56
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Список листов книги с помощью макроса
 
Цитата
Ole_123 написал:
У меня Лист 3-й по счету + мне не сверху листа нужно вставить список а в Cells(9,2)
воспользуйтесь услугами программиста)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Автоматическое появление гиперссылок при появлении определенных файлов в папках.
 
Цитата
Wiss написал:
Другие варианты мне не известны
мне, к сожалению, тоже нет
я уже поискал событие "создан файл"
в системе IO (вводв/вывода)
у SystemWacher
у File System Object
и у Folder
где-то ж должно быть, сам видел как проводник прорисовывает новые файлы, которые в соседнем окне кидает в папку мой макрос
проводник явно не сканирует все папки всех жестких дисков на моем компьютере, а видит событие, появился файл, видит что у него сейчас активна эта папка и тут же эти файлы показывает...
способ явно есть, вот только кто оповещвет систему о появлении нового файла???
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA из основного листа сохранить в новую книгу с данными без формул, без макросов и без VBA
 
Цитата
WaleryN написал:
VBA из основного листа сохранить ..., без макросов и без VBA
"VBA без макросов и VBA", это что-то новое, интересно будет посмотреть на решение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 210 След.
Наверх