Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 325 След.
Перестал работать макрос range_To_Picture (создание .jpeg из выделенного диапазона)
 
Цитата
vanya7819 написал:
но мне нужно
по барабану, что в Excel это не предусмотрено, vanya7819-то нужно!
Дима, как же он услышыт, если ты говоришь, что это нельзя, но ему это нужно
Изменено: Ігор Гончаренко - 20.09.2021 18:47:50
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Пометить строку по заданному условию
 
добавил на лист Фразы слово цена
на листе 2.Тексты зарисовалась строка 4
что не так?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Макрос сравнения/вставки. Признак сравнения - фраза первого столбеца обоих листов в книге.
 
Цитата
Михаил Иванченков написал:
Только во второй лист вставлять не нужно
ничего не вставляет на второй лист
но повторный запуск макроса понавставляет строк к уже вставленным
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Макрос сравнения/вставки. Признак сравнения - фраза первого столбеца обоих листов в книге.
 
Код
Sub AddRows()
  Dim a, d, r&, r2&, c&
  Worksheets(1).Activate
  Set d = CreateObject("Scripting.Dictionary")
  With Worksheets(2)
    a = Range(.Cells(1), .Cells(.Rows.Count, 1).End(xlUp))
    For r = 1 To UBound(a)
      If Not IsEmpty(a(r, 1)) Then d(Split(a(r, 1))(0)) = r
    Next
    a = Range(Cells(1), Cells(Rows.Count, 1).End(xlUp))
    For r = UBound(a) To 1 Step -1
      If Not IsEmpty(a(r, 1)) Then
        If d.exists(Split(a(r, 1))(0)) Then
          Rows(r + 1).Insert: r2 = d(Split(a(r, 1))(0)): c = c + 1
          .Rows(r2).Copy Cells(r + 1, 1): Rows(r + 1).Interior.Color = RGB(0, 255, 0)
        End If
      End If
    Next
  End With
  MsgBox "Вставлено " & c & " строк", , "Готово!"
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Найти последнюю используемую строку на листе
 
vikttur, если UsedRange начинается с первой строки
JayBhagavan, если последняя или несколько последних строк не скрыты любым способом

aybek04, если лист пустой
т.е. worksheetfunction.counta(cells) = 0, то последней используемой строки как бы и нет (не считая строк с  заданными форматами)
если на листе есть хоть что-то, то последняя строка: (это не обязательно будет строка с данными, может быть строка с какими-то форматами)
Код
activesheet.usedrange.row -1 + activesheet.usedrange.rows.count
Изменено: Ігор Гончаренко - 20.09.2021 11:08:55
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Найти последнюю используемую строку на листе
 
сначала обьясняете задачу, потом, возможно, будет решение. по другому - никак
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Вызов массива регулярных выражений в VBA из БД Postgres, VBA + SQL
 
Цитата
Алексей Краснов написал:
Но как мне перебирать регулярные выражения
переберите циклом
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Всплывающие заметки к ячейкам по схожим наименования
 
без файла с данными - никак
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Макрос сравнения/вставки. Признак сравнения - фраза первого столбеца обоих листов в книге.
 
Цитата
Михаил Иванченков написал:
Признак сравнения - фраза первого столбеца
Цитата
Михаил Иванченков написал:
При нахождении полного совпадениb по первому слову
вот в данном случае одна фраза перечеркивает другую
решать задачу в которой не понятны условия - это мартышкин труд!
не волнуйтесь, подружите описание вашей задачи с логикой, кто-нибудь поймет и решит, если не обломится.... сначала угадать что же вы хотите сравнивать, а потом все решать в надежде, что угадано верно))
Изменено: Ігор Гончаренко - 19.09.2021 22:18:04
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как создать таблицу с уникальными строками
 
Цитата
Катя Катя написал:
Пришлось вспоминать теорию вероятностей
забудьте. вспоминайте комбинаторику
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как создать таблицу с уникальными строками
 
тут главное написать формулу в первый столбец, потом растянуть на 10 колонок вправо, а потом полученную строку потянуть на 1024 строки вниз
не пытайтесь в 1025 строке (и далее) получить очередную не повторяющуюся строку) нет таких больше их ровно 2^10 = 1024 шт.
а единички отнимаются чтобы начать расчеты с нуля, а не с 1-го столбца
и формулу можно сократить на 2 знака)) используйте:
=ОСТАТ(ЧАСТНОЕ(СТРОКА();2^(СТОЛБЕЦ()-1));2)
и разместить можете, начиная с любой строки (5-й, 21-й, 147-й....с любой) , главное - в чтобы в 10-и первых столбцах
потом тяните вниз на 1024 строки и получите те же 1024 строки по разному заполненные 0 и 1, только в другом порядке
Цитата
Алена Андреева написал:
почему именно двойка возводится в степень в делителе
потому что строку нужно заполнить 2-мя значениями 0 и 1
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Активирование ячейки в определенном диапазоне
 
Цитата
ГДВ написал:
но почему-то
не почему-то а потому, что такое принято решение и так написан макрос
в макросах ничего не происходит "почему-то", а происходит строго так, как написано
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как построить кривую вне зависимости от порядка, Кривые
 
никак
в каком порядке указаны точки в таком и будут соединены в кривую
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Активирование ячейки в определенном диапазоне
 
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Static s0 As Range, x&, y&
  If s0 Is Nothing Then Set s0 = Target: Exit Sub
  Select Case Application.MoveAfterReturnDirection
  Case xlToRight: x = 1
  Case xlToLeft: x = -1
  Case xlDown: y = 1
  Case xlUp: y = -1
  End Select
  If Intersect(s0.Offset(y, x), Target) Is Nothing Then
    Set s0 = Target: Exit Sub
  End If
  Application.EnableEvents = False
  If Not Intersect(s0, [a2:b2]) Is Nothing Then
    Set s0 = s0.Offset(-1, 1): s0.Select
  ElseIf Not Intersect(s0, [a1:c1]) Is Nothing Then
    Set s0 = s0.Offset(1): s0.Select
  ElseIf Not Intersect(s0, [c2]) Is Nothing Then
    Set s0 = s0.Offset(-1, -2): s0.Select
  Else
    Set s0 = Target
  End If
  Application.EnableEvents = True
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Excel не открывает книгу
 
посмотрите
лента Вид
группа Окно
кнопка Отобразить
может эта книга там?
Изменено: Ігор Гончаренко - 19.09.2021 10:58:11
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Макрос на считывание и повторение значения с выделенной ячейки до нового значения и далее циклично, Цикличный Макрос
 
в В3
Код
=ЕСЛИ(ЕПУСТО(A3);B2;A3)
и тянете В3 вниз сколько есть сил
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Добавление строки по условию в таблицу c помощью VBA
 
Цитата
Kuzmich написал:
вопрос к Mershik, его макрос
по почерку признал?))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как отключить постоянно вылетающее окно "Некоторые файлы могут содержать вирусы или другое опасное содержимое... "
 
может быть перегрузить компьютер и выяснить чем это помогло - быстрее, чем написать вопрос и ждать ответ на него?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Пометить строку по заданному условию
 
Цитата
Михаил Иванченков написал:
я не сказал что на странице ФРАЗЫ  -в первой колонке - будет не одно слово - а список
см. файл из сообщения 7
дополняйте спиоок фраз, смотрите как это повлияло на количество отмеченных строк на первом листе)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Макрос для быстрого поиска и обработки результатов (поиск значения по заданным условиям), ускорение работы макроса
 
нормальное время  - это когда 60 тыс. ячеек обрабатываются за 0.01 сек
нужно не описание макроса, а описание вашей задачи
на примере ЕА2 - это отлично, но какая ячейка следующая и что с чем сравнивать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Таймер отсчета времени, согласно сумме нескольких чисел из разных ячеек
 
Цитата
МатросНаЗебре написал:
зачем может понадобится сумма произведения
это не важно на фоне разговора о секундомерах)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Таймер отсчета времени, согласно сумме нескольких чисел из разных ячеек
 
Цитата
Иван Шишкин написал:
Согласен что все можно когда
понятны условия задачи и задача имеет решение
пока нет условий задачи - решить ее не возможно
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Определить, есть ли две точки в тексте, Формула
 
=счетесли(Текст;"*.*.*")>0
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Подбор к комбинации из шести чисел неизвестных слагаеммых(от 1 до 49) к желаемой сумме слагаеммых
 
Цитата
Jack Famous написал:
как у вас НЕ получается не только СВОИ вопросы объяснить, но чужие
вопрос нужно задать так чтобы никто не смог угадать систему выигрыша
а то угадают и понабегут выигрывать вместо DJMC,
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Подбор к комбинации из шести чисел неизвестных слагаеммых(от 1 до 49) к желаемой сумме слагаеммых
 
Цитата
DJMC написал:
тут очень сложно "взломать" таким способом лотерею
взломать лотерею, в которой каждый следующий розыгрыш является СЛУЧАЙНЫМ и НИКАК НЕ ЗАВИСИТ ОТ ВСЕХ ПРЕДЫДУЩИХ - не возможно
спросите у любого что хоть самую малость понимает в азах математики
понимаете? вероятность того что в след. розыгрыше выпадет 1,2,3,4,5,6 точно такая же как вероятность выпасти ЛЮБЫМ другим 6 числам, ЛЮБЫМ! даже тем 6-и, что выпали в прошлом розыгрыше, потому что этот от прошлого НИКАК не зависит
удачи вам!
Изменено: Ігор Гончаренко - 17.09.2021 11:16:11
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Разрешение на внесение данных но запрет на удаление
 
открыл файл, удалил 2 строки из 3-х
не понял что там запрещено удалять(((
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Макрос анализ данных из закрытой книги
 
откройте, проанализируйте, закройте.
Цитата
inicman1991 написал:
Ничего не понятно, но очень интересно
чаще включайте макрорекордер и анализируйте полученные с его помощью макросы это информативно и полезно
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Пометить строку по заданному условию
 
без макроса
Код
=ЕСЛИ(ЕПУСТО(RC1);;СУММ(СЧЁТЕСЛИ(RC1;Фразы)))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Таймер отсчета времени, согласно сумме нескольких чисел из разных ячеек
 
можно все
особенно, когда понятно и просто написано что нужно
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
При копировании макросом пропадают нули перед значениями
 
присвойте текстовый формат, а потом копируйте
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 325 След.
Наверх