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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 58 След.
Корректное автоматическое изменение верхней и нижней границы вертикальной оси на графике
 
Код
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    smin = 1000000
    smax = 0
    For Each cc In [C3:D14].Cells
        If Not IsError(cc) Then
            If cc < smin Then smin = cc
            If cc > smax Then smax = cc
        End If
    Next
    smin = smin - 20
    If smin < 0 Then smin = 0
    smax = smax + 20
    With ActiveSheet.ChartObjects("Диаграмма 1").Chart.Axes(xlValue)
        .MinimumScale = smin
        .MaximumScale = smax
    End With
End Sub
Изменено: skais675 - 23 окт 2020 08:51:38
Выборка массивов данных по критериям для дальнейшего использования в стандартных формулах
 
Григорий, У вас много вопросов в одной теме, уверен решение будет, создавайте новую тему с конкретным вопросом.
Даже у этой темы название не ахти - у вас были конкретные два вопроса.
Предлагаю название этой темы: счет значений по нескольким условиям.
Изменено: skais675 - 22 окт 2020 19:45:27
Выборка массивов данных по критериям для дальнейшего использования в стандартных формулах
 
Код
=СЧЁТЕСЛИМН(A:A;"*"&D25&"*";B:B;">-1")
=СРЗНАЧЕСЛИМН(B:B;A:A;"*"&D25&"*";B:B;">-1")
Изменено: skais675 - 22 окт 2020 19:32:11
Корректное автоматическое изменение верхней и нижней границы вертикальной оси на графике
 
Чайка, Как вариант можно макросом проставить, но для этого нужно определить сначала желаемый минимум и максимум на оси (как их определить).
Изменено: skais675 - 22 окт 2020 19:05:16
Планирование, Распределить заказ по вязальным машинам
 
Знакомая тема, только вот непонятно, что с этой темой.
Пишу в личку.

В работе.
Изменено: skais675 - 10 окт 2020 15:18:04
Макрос заливка фигур по условию
 
Код
Sub Button1_Click()
    With Sheets("calc")
        For i = 3 To .Cells(.Rows.Count, "C").End(xlUp).Row
            nm = .Cells(i, 3)
            Sheets("map").Shapes(.Cells(i, 3)).Fill.ForeColor.RGB = .Cells(i, 5).Interior.Color
            Sheets("map").Shapes(.Cells(i, 3)).Line.ForeColor.RGB = .Cells(i, 5).Interior.Color
        Next
    End With
End Sub

Оформите пожалуйста Ваш код как у меня, согласно правил форума.
И аватарку лучше сменили бы.
Изменено: skais675 - 6 окт 2020 17:19:51
Как макросом удалить данные из ячейки неактивного листа
 
Ругаться он может по разным причинам, либо пример приложите, либо скрин ошибки.
Как макросом удалить данные из ячейки неактивного листа
 
Код
Sheets("Лист1").range("A2").clearcontents
Изменено: skais675 - 6 окт 2020 09:34:22
Копирование данных из текущего листа в новую книгу
 
Wizzards08, Все верно.
Код
ActiveWorkbook.SaveAs ThisWorkbook.Path + "\" + ActiveSheet.Name + " " + Format(Now, "ddmmyyyy") + "xlsx"
Копирование данных из текущего листа в новую книгу
 
Решение.
Код
    ActiveSheet.Copy
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
    For Each sh In ActiveSheet.Shapes
        sh.Delete
    Next
Изменено: skais675 - 5 окт 2020 09:19:21
Запуск программы через cmd с данными из excel
 
Использовать VBS скрипт. Например
Изменено: skais675 - 1 окт 2020 00:09:29
Формула для сокращения Фамилия Имя Отчество в Ф.И.О.
 
CarBon,  поправил.
Формула для сокращения Фамилия Имя Отчество в Ф.И.О.
 
Решение
Код
=LEFT(A2;1)&". "&LEFT(MID(A2;FIND(" ";A2)+1;100);1)&". "&LEFT(MID(A2;FIND(" ";A2;FIND(" ";A2)+1)+1;100);1)&"."
Изменено: skais675 - 30 сен 2020 08:04:56
Подсчет уникальных значений по множеству условий
 
Пишу в личку.
Обсуждение.
ТС решил задачу своими силами.
Изменено: skais675 - 29 сен 2020 14:15:42
Создание сводной таблицы из нескольких листов
 
Написал в личку.
Обсуждение.
ТС взял паузу.
Изменено: skais675 - 24 сен 2020 13:44:49
Точки как граница ячеек по умолчанию. Как избавиться?
 
Я тоже нашел такой ответ
Цитата
С тех пор я обнаружил, что, изменив цвет линии сетки, а затем изменив его на автоматический, линии сетки превратились в сплошную линию
Изменено: skais675 - 18 сен 2020 13:26:58
Точки как граница ячеек по умолчанию. Как избавиться?
 
Могу предложить подключиться к Вам и посмотреть и возможно помочь, мои контакты в профиле.
Скрыть столбцы по условию макросом
 
Исходя из задачи нужно одну переменную проверить с диапазоном по like. Типа переменная="Отчет за январь ", есть ли любой из 12 месяцев в переменной?
Изменено: skais675 - 17 сен 2020 10:54:37
Скрыть столбцы по условию макросом
 
Юрий М,  а можете продемонстрировать в коде?
Скрыть столбцы по условию макросом
 
Mershik, а то я подумал что Вы одной строкой без цикла можете проверить с массивом.
Изменено: skais675 - 17 сен 2020 10:30:07
Скрыть столбцы по условию макросом
 
Цитата
Mershik написал:
adamm , ну один раз в массив  и {} и все
А можете продемонстрировать в коде?
найти минимальное и максимальное значение по условию
 
Roman Это значит что сводная уже построена и вы ее просто обновляете одной командой!
На счет диапазона сводной - вариантов много. либо сразу задать,либо менять, либо по столбцам, если в первой строке можно прописать названия столбцов и скрыть или еще как.
Изменено: skais675 - 16 сен 2020 20:59:47
найти минимальное и максимальное значение по условию
 
Roman, а кто мешает использовать данные сводной в другом макросе? Это даже удобней потому как все на ладони, а в макросе сложно все отслеживать.
найти минимальное и максимальное значение по условию
 
Roman Для этих целей идеально подходят сводные таблицы.
Необходимо посчитать количество в столбце по заданному критерию, но данные в столбце находятся в диапазоне от заданного значения.
 
Код
=СЧЁТЕСЛИ($H$2:$H$17;">1")
Автозаполнение данных одной таблицы при заполнении другой., Необходимо, чтобы вторая таблица заполнялась автоматически.
 
Адмен Petukh Я бы посоветовал использовать сводные таблицы для этих целей.
Автозаполнение данных одной таблицы при заполнении другой., Необходимо, чтобы вторая таблица заполнялась автоматически.
 
Сама по себе таблица не может расти и заполняться, но это может выполнить макрос. Есть и другие инструменты. Однако не зная для чего это и что с этим будет делаться дальше, сложно предложить подходящее решение.
Изменено: skais675 - 15 сен 2020 17:59:41
Собрать информацию в рамках одной книги через запросы.
 
Через запросы, Вы имеете ввиду PQ?
Я пас, нужно в PQ.
Изменено: skais675 - 15 сен 2020 17:06:32
Книги/файлы в одном окне, с название файлов сверху
 
Поищите надстройку Office tab. К примеру. Или здесь.
Изменено: skais675 - 15 сен 2020 10:27:31
Очистить макросом диапазон ячеек от содержимого, но так, чтобы прописанные в ячейках правила не удалялись.
 
Команда
Код
.MergeCells = True 
убивает все форматирование!
Тема: Очистка значений в ячейках макросом.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 58 След.
Наверх