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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 31 След.
Выделить ячейки с ФИО, Условное форматирование
 
С такой таблицей даже двумя формулами сложно сделать не то что одной. Где 2 строки где 3, а где-то наверное и 1 есть. Да, ещё и ячейки объединены.
Никаких врагов, зато и никаких друзей.
Как избежать многократного запуска Excel при открытии нескольких файлов одновременно?
 
За всю свою жизнь никогда не открывал таким методом файлы.
Никаких врагов, зато и никаких друзей.
Merge & Totals (Утилита по сбору данных из книг и листов)
 
Лично моё мнение.
А зачем это всё....?
По моему чем меньше функций тем надёжнее. Лично я сторонник минимализма.
И я не понимаю зачем в холодильник встраивать сенсорный монитор или открытие его дверки по голосу. Ну или зачем в телевизоре интернет с рекламой, если телевизор само по себе понятие другое. А сейчас стараются запихнуть в одну программу все функции, что успешно происходит с телефонами и планшетами. Вы всё стараетесь чего добавить и с одной стороны облегчить, но получается тоже самое, что происходит с телефонами. Программа раздувается, а надёжность и интуитивность в использовании совершенно теряется.
Нельзя сделать универсальную надстройку, которая удовлетворит пользователей. Тоже самое хотят сделать с 1С. Создали оболочку, в которую засунули всё и всех, и работает она только из под напильника и то с постоянными сбоями и матом.
Программа должна быть узконаправленной. Если для торгашей так и делать возможности для торгошей, если для кладовщиков, так она должна делать то что нужно кладовщикам, если для бухгалтеров, так и делать чисто для бухгалтеров. А теперь в 1С и инженерные расчёты засунули и склад и бухгалтерию и всё на свете. И получилась солянка, в которой без обучения ничего не поймёшь.
Я к чему всё это. С вашей надстройкой происходит тоже самое. Без пояснений и коментариев, она бесполезная балалайка, извините за выражение. Не впихивайте туда сводные таблицы и прочую дрянь. Если взяли за основу объединение книг, то и сделайте минимальный набор с интуитивно понятным интерфейсом, а не раздувайте кучу кнопок и функций, в которых никто ничего не поймёт. Я уверен, что 99% людей после установки её тут же удалят. По опыту знаю, что если программа не сработала с первого раза как надо, то её тут же удаляют.
Никаких врагов, зато и никаких друзей.
Как из двух книг собрать в третью данные, совпадающие по одному критерию?
 
Согласен. Вопрос имеет много решений. Тем более, что файлы исходные разные, в плане того, что порядок столбцов разный. Поэтому либо в платный раздел с описанием чего хотите, либо ищите свои методы объединения книг. Мало данных. 70% уверен, что даже если вам предоставят готовый вариант, то вы его не сможете адекватно юзать.
Никаких врагов, зато и никаких друзей.
Отмечать цветом данные в колонке учитывая несколько условий, Отмечать цветом данные в колонке учитывая несколько условий
 
OldBell, я не понимаю о чём вообще Вы и где вы пытаетесь увидеть макросы. Если вы про мой вариант файла, то там макросов нет.
Никаких врагов, зато и никаких друзей.
Отмечать цветом данные в колонке учитывая несколько условий, Отмечать цветом данные в колонке учитывая несколько условий
 
Про Збирання забыл. Файл перезалил
Изменено: Alemox - 6 Дек 2017 13:12:42
Никаких врагов, зато и никаких друзей.
VBA. Выполнения кода по нажатию сочетания из двух клавиш
 
Можно сделать через глобальные переменные любые сочетания клавиш, но зачем это? Вам кнопок мало?
Никаких врагов, зато и никаких друзей.
Картинки с листа на лист по принципу ВПР.
 
Код
Sub pp()
    Application.ScreenUpdating = False
    Dim iLastrow As Integer, i As Integer
    Dim iLastRow2, r As Integer
    Dim s As Integer
    Dim sh1 As Worksheet, sh2 As Worksheet
    Dim TYU As Range
    On Error Resume Next
    Set sh1 = Sheets("Лист1")
    Set sh2 = Sheets("Лист2")
    iLastrow = sh2.Cells(Rows.Count, 1).End(xlUp).Row
    iLastRow2 = sh1.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To iLastrow
        Set TYU = sh1.Range("a1:a" & iLastRow2).Find(what:=sh2.Cells(i, 1).Value, LookIn:=xlValues)
        r = TYU.Row
        If Err.Number = 0 Then
        sh2.Rows(i).RowHeight = sh1.Rows(r).RowHeight
        TYU.Offset(0, 1).Copy
        sh2.Activate
        sh2.Cells(i, 2).Select
        ActiveSheet.Pictures.Paste(Link:=True).Select
        Else
        Err.Clear
        End If
    Next i
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub
Никаких врагов, зато и никаких друзей.
Интересное объединение ячеек
 
Никаких врагов, зато и никаких друзей.
VBA. Выполнения кода по нажатию сочетания из двух клавиш
 
Код
If KeyAscii = 1 Then
MsgBox "нажали CTRL+ А"
End If
Никаких врагов, зато и никаких друзей.
Макрос не работает - в сгруппированных автофигурах
 
Пример во вложении
Никаких врагов, зато и никаких друзей.
Условное форматирование на множество строк по условию ячейки в этой же строке
 
Цитата
koup написал:
$T5 не увечилит свои значения в Условном форматировании
Нет. Он будет смотреть каждую строку в пределах указанного диапазона. И всё будет так как хотите вы
Никаких врагов, зато и никаких друзей.
Условное форматирование на множество строк по условию ячейки в этой же строке
 
А как вы пример как должно быть составили? Так же сделайте и в первом файле.
MashkaExcel правду говорит.
Никаких врагов, зато и никаких друзей.
Ошибка доступа к библиотекам References, error accessing the system registry
 
Мануал написал, но весит он 300 кБ.
Поэтому заливаю на файлообменник.
Кому интересно качайте пока есть возможность.
Ссылка
Изменено: Alemox - 5 Дек 2017 09:36:24
Никаких врагов, зато и никаких друзей.
Ошибка доступа к библиотекам References, error accessing the system registry
 
Виновника нашёл. Флешплеер. Теперь надо понять что надо прописать или изменить.
Никаких врагов, зато и никаких друзей.
Ошибка доступа к библиотекам References, error accessing the system registry
 
Сейчас пытаюсь восстановить права с помощью утилиты Process Monitor, но пока разобраться не могу. Пишут что Flash плеер блокирует. Но я не нашёл его по ключам в реестре. Нашёл от Adobe Acrobata одголоски, но чего с этим делать пока не понял.
Никаких врагов, зато и никаких друзей.
Ошибка доступа к библиотекам References, error accessing the system registry
 
Андрей VG, проверил Chkdsk ничего не обнаружил.
Затем прогнал sfc /scannow
Выявил одну ошибку, которую он успешно исправил после перезагрузки. Починились папки и центр обновления. Excel всё в той же поре. Не работает. Буду дальше думать.
Никаких врагов, зато и никаких друзей.
Ошибка доступа к библиотекам References, error accessing the system registry
 
Игорь, спасибо, попробовал такой способ. Даже перезагрузился, но проблема осталась.
Андрей VG, возможно ли что после установки обновлений для Qffice или системы что-то поломалось? После прошлонедельных обновлений у меня с компом вообще бодяга какая-то творится. В центробновлений вообще нельзя попасть, всё зависает и потом даже папки не открываются ни одна, пишет что их нет. Помогает только перезагрузка. После перезагрузки всё нормально. Но если попытаться опять зайти в центр обновления опять всё намертво виснет.
Никаких врагов, зато и никаких друзей.
Ошибка доступа к библиотекам References, error accessing the system registry
 
При попытке зайти в библиотеки появляется вот такая ошибка
error accessing the system registry
Гугленье не помогло там всё через какие-то программы непонятные и не на русском. Кто сталкивался с такой проблемой. Что надо поправить?
Никаких врагов, зато и никаких друзей.
Текст по столбцам (макрос), информация в соседнем столбце заменяется на АМ
 
А формат ячеек не катит изменить формат отображаемой даты?
Никаких врагов, зато и никаких друзей.
Вывод части текста из содержимого ячейки
 
Ищите текст
lk.
llb.
llo.
lr.
И тогда всё норм будет
Никаких врагов, зато и никаких друзей.
Анекдот дня, Постим сюда понравившиеся:)
 
Никаких врагов, зато и никаких друзей.
ПСТР в качестве аргумента функции СЦЕПИТЬ
 
В ячейку C4
Код
="Документация " & ПСТР(B4;ПОИСК(" 120";$B4;1)+1;6)
Никаких врагов, зато и никаких друзей.
Как установить фиксированное число знаков после запятой?
 
Sanja, а чего не так? Всё правильно вы сказали. Установить в целевой ячейке нужный формат. Затем скопировать диапазон или ячейку и вставить как Значения (Параметры вставки 123)
Никаких врагов, зато и никаких друзей.
Кто такие скрытые пользователи?
 
Юрий, у меня нет привычки скрываться. Я просто думаю кто это такие скрывающиеся. Думал может как-то определяются неправильно или ещё чего. Спасибо. Теперь понятно.
Никаких врагов, зато и никаких друзей.
Автоматическая активация поля поиска при нажатии на кнопку фильтра сводной/умной таблицы
 
Это потому, что при нажатии ещё неизвестно каким именно фильтром вы пользоваться будете. Вот когда он числовой с промежутком и условием или даже цветной, вот тогда действительно надоедает. А так нет. А если только текст, то можно и макрос написать, ну это уж совсем для ленивых. Хотя у меня есть такие файлы. Значительно ускоряется процесс.
Никаких врагов, зато и никаких друзей.
Автомасштабирование при печати., Как растянуть таблице на весь лист при печати.
 
Можно. Всё в ваших руках.
Никаких врагов, зато и никаких друзей.
Передача переменных в вызываемый макрос
 
Ну или так
Код
Sub www()
    x = "A1"
    y = "K5"
   Call qqq(x, y)
End Sub

Sub qqq(x, y)
Cells.Range(x, y).Value = 1
End Sub
Никаких врагов, зато и никаких друзей.
Вывод данных по выбору картинки
 
А где выводились? И кто эти картинки вставляет?
Никаких врагов, зато и никаких друзей.
Сравнивание столбцов и выделение строк цветом при совпадении
 
Давайте уже сразу определимся. Файл или Лист?
Никаких врагов, зато и никаких друзей.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 31 След.