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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 22 След.
Отказ в редактировании макроса, Изменение структуры макроса
 
Простите пожалуйста что реанимирую старую тему. Начала появляться аналогичная ошибка. Днем ранее ничего подобного не наблюдал. Вчера назначил горячие клавиши одному из макросов. при закрытии ответил "не сохранять". Сегодня не дает изменить. Как-нибудь можно избежать постоянного скрытия-отображения книги?
Подсчет количества вхождений слова в одной ячейке
 
В А1 текст, в В1 что ищем

Формула:
Код
=(ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;B1;"")))/ДЛСТР(B1)
Подсветка ячейки, если в нее добавили значение выше, чем было
 
А я говорю о том что почти любой выбранный способ реализуется программно и программу можно обмануть.
Вверху уже предложили сравнивать значения вручную, точнее собственными силами без использования кода. Вот этот вариант не обманешь.
Еще вариант копировать куда-то в специально отведенное место значения перед изменением и потом формулой сравнивать нынешнее и прошлое значения.

Всех с новым годом, друзья ))
Подсветка ячейки, если в нее добавили значение выше, чем было
 
Ігор Гончаренко, Если человек задастся целью обмануть программу то он это сделает. Пока я не знаю ни одной программы которую нельзя было обмануть или сломать. Нюансы о которых вы говорите можно учитывать бесконечно и всё равно программа не будет идеальной. Можно взять любой код любого человека тут на форуме и предложить несколько вариантов действий пользователя при которых код не будет срабатывать. Теперь что, все это сообщество должно прекратить существование как непродуктивное?
Подсветка ячейки, если в нее добавили значение выше, чем было
 
Спасибо.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
 
Application.EnableEvents = False
Application.Undo
vOld = Range("A1").Value
Application.Undo
 
    If Range("A1").Value > vOld Then
        Range("A1").Interior.Color = 65535
    Else
        Range("A1").Interior.Pattern = xlNone
    End If
     
Application.EnableEvents = True
End Sub
Подсветка ячейки, если в нее добавили значение выше, чем было
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

vNew = Range("A1").Value
Application.EnableEvents = False
Application.Undo
vOld = Range("A1").Value
Range("A1").Value = vNew

    If vNew > vOld Then
        Range("A1").Interior.Color = 65535
    Else
        Range("A1").Interior.Pattern = xlNone
    End If
    
Application.EnableEvents = True
End Sub

Макрос на создание и удаление строки
 
почитайте про макрорекордер
Макрос для подсчета годовой статистики из имеющейся таблицы с разбивкой по месяцам
 
Код
=СУММЕСЛИМН(J2:J150;C2:C150;C2;E2:E150;E2;H2:H150;H2;I2:I150;I2)

Очень сильно бы помог уникальный список всех кодов автошкол, всех типов экзаменов и всех категорий водительских удостоверений
Изменено: VideoAlex - 1 Дек 2018 14:22:02
Корректировка формулы поиска по двум условиям
 
небольшой совет по организации данных, вашей таблице нужен еще один столбец с названием контракта для каждого ип
Скрытый текст

Тогда всё здорово организуется и фильтрами и сводными и находить всё можно элементарными формулами
Изменено: VideoAlex - 1 Дек 2018 08:16:05
Корректировка формулы поиска по двум условиям
 
не прокатит если нет такого магазина в этом контракте. просто возьмет значение из другого (следующего) контракта.
предыдущая формула, кстати, тоже
Изменено: VideoAlex - 1 Дек 2018 07:46:31
Перенос строчных значений в табличные
 
Подсказываю - лучше не формулой а макросом

вопрос: вот здесь
Бренд   Атяшево Тип Ветчина Нарезка нет Температурный режим# °C 0...+6 Страна Россия   Тип хранения Охлажденка Калорийность (на 100г) 210 Жиры (на 100г) 18 Белки   (на 100г) 8 Углеводы (на 100г) 4.5
заголовки всегда идут в той же последовательности что и в таблице? не может ли быть, к примеру, такого,  что в начале указан температурный режим, а потом тип продукта?
Изменено: VideoAlex - 30 Окт 2018 05:55:29
Копирование из одной книги в другую со сдвигом (offset), VBA поиск
 
Цитата
scr написал:
он мне скопирует "Костя" и вставит в 1 книгу в А1
А куда надо?
Гиперссылка с равно увеличивающимся интервалом
 
Код
=ГИПЕРССЫЛКА(СЦЕПИТЬ("[Учет\Заявки.xlsx]Лист1!A";СТРОКА()*20);">>")
Удаление повторяющихся строк в зависимости от одного столбца
 
В вашем примере ничего ни откуда не подтягивается.

вот пожалуйста - как только вы введете что-то в столбец В что уже там есть удалится вся строка. поместить в модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(2)) Is Nothing Then
Application.EnableEvents = False
    For i = 1 To UsedRange.Rows.Count
    For j = UsedRange.Rows.Count To i + 1 Step -1
    If Cells(j, 2).Value = Cells(i, 2).Value Then Rows(j).Delete
    Next j
    Next i
Application.EnableEvents = True
End If
End Sub
Удаление всех строк листа кроме первой строки
 
а этот?
Код
Rows("2:" & ActiveSheet.UsedRange.Rows.Count + 2).Delete
Изменено: VideoAlex - 19 Авг 2018 13:34:26
Сохранять данные, ранее внесенные формулой
 
макросом то можно, но непонятно где решать эту задачу
Сохранять данные, ранее внесенные формулой
 
Во первых, нужен файл пример с этим самым впр, где будет показано как сейчас, и будет показано как надо.

во-вторых, перед закрытием, или просто периодически, сохраняйте ранее введенные впр как значения. (если я конечно правильно вас понял)
Удаление повторяющихся строк в зависимости от одного столбца
 
Если я ввел в столбце В значение которое уже там есть, то что должно произойти?
1. удалится та строчка которая была ранее
2. удалится та где я ввел
3. появится предупреждение
Возможно ли сделать выпадающий список для замены в тексте
 
коллекции и словари - достаточно глубоко? всё потому что те кто должен быть компетентен в этом вопросе на самом деле таковыми не являются. Приезжает "програмист" настраивать систему диспетчеризации и просто делает всё согласно каком-то шаблону. на просьбу сделать чуть-чуть не так - изменить в отчете сводную таблицу на обычную - может только развести руками. соответственно теперь придется изучать и базы данных (запросы из вба в базу)
но на самом деле эти и любые другие знания поднимают мою ценность как специалиста, поэтому я не жалуюсь :) извините за оффтоп
Возможно ли сделать выпадающий список для замены в тексте
 
Я должен тихо-мирно добывать уран, но сижу и изучаю эксель.
UserForm1.show останавливает выполнение процедуры
 
Да, спасибо, я на активацию повесил
UserForm1.show останавливает выполнение процедуры
 
спасибо огромное, это выход
UserForm1.show останавливает выполнение процедуры
 
Задача показать форму с выделенным текстом в текстбоксе
Код
Sub showform()
UserForm1.TextBox1.Text = ActiveCell.Text
UserForm1.Show
UserForm1.TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(Text)
End Sub
на UserForm1.Show процедура останавливается и соответственно тект не выделяется.
Подскажите выход из положения пожалуйста
математическая операция(деление) с определенными цифрами из общего числа (*пересчет координат) и получение другого результата, Пересчет координат
 
не за что. сам бы я до такой формулы не додумался, это переделанная из сообщения #2
математическая операция(деление) с определенными цифрами из общего числа (*пересчет координат) и получение другого результата, Пересчет координат
 
Код
=ЛЕВБ(A1;ПОИСК("´";A1)-1)&","&ОКРУГЛ(ПСТР(A1;ПОИСК("´";A1)+1;15)/60;2)*100&"´"
математическая операция(деление) с определенными цифрами из общего числа (*пересчет координат) и получение другого результата, Пересчет координат
 
если предположить что здесь 8 минут 43,76130 секунды, то
43,76130 относятся к 60 как х относится к 100
или х=43,76130*100/60=72,9355
это в секундах, а в минутах опять же делим на 100 или х=0.73
плюс те 8 минут... хотя складывая числа разных систем счисления... Давайте тогда просто всё в десятичную переведем - 45.133333
математическая операция(деление) с определенными цифрами из общего числа (*пересчет координат) и получение другого результата, Пересчет координат
 
72 секунды это ж больше минуты
Изменено: VideoAlex - 15 Авг 2018 14:38:20
математическая операция(деление) с определенными цифрами из общего числа (*пересчет координат) и получение другого результата, Пересчет координат
 
Catboyun,точно. простите мне мою невнимательность пожалуйста ((
Код
Function qwe(st As String) As String
qwe = Left(st, InStr(1, st, "'")) & CStr(Round(Val(Replace(Right(st, Len(st) - InStr(1, st, "'")), ",", ".")) / 60, 2))
End Function
но помоему надо всё ж 45°8,72'

офф. что это за символ у ТС? ´ вба его не понимает
Изменено: VideoAlex - 15 Авг 2018 14:23:10
математическая операция(деление) с определенными цифрами из общего числа (*пересчет координат) и получение другого результата, Пересчет координат
 
Catboyun,45°08´,72 выходит
Как заменить ряд сходных значений единственным
 
уверенным быть бы что Bank of America и Bank of America Meryll Linch это один и тот же банк (к примеру)
Другими словами - как я или программа должны определять что это один и тот же банк? Велика вероятность обозвать одним названием разные банки
У себя на работе вышел из положения следующим образом - пользователь при заполнении выбирает позицию из списка
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 22 След.
Наверх