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

Страницы: 1 2 3 След.
VBA Обращение к столбцу умной таблицы по имени столбца
 
New, Спасибо большое. Вопрос решен.
VBA Обращение к столбцу умной таблицы по имени столбца
 
Добрый день, коллеги!

Во вложении пример. Суть задачи - выбираешь строку в умной таблице и значениями из активной строки заполняются определенные ячейки.
Но в коде используется цифровой индекс столбца, и если в таблицу (в середину) добавить хотя бы один столбец, то код нужно править. Хотелось бы сделать его универсальным и обращаться к столбцу умной таблицы не по его индексу, а по номеру.
Прошу посодействовать в решении вопроса.

С уважением, Алексей.
Копирование изображения в несколько ячеек, Логотип компании на нескольких листах
 
Цитата
БМВ написал:
например так
  example2754.xlsx    (99.62 КБ)  

Я вот тут что заметил... при использовании этого варианта программа на VBA начала работать медленнее раз в 20... Не знаю почему. Но когда удалил картинку со ссылкой на ячейку с изображением, скорость снова вернулась в норму.
Копирование изображения в несколько ячеек, Логотип компании на нескольких листах
 
Спасибо, коллеги! Интересные варианты. Вопрос решен.
Копирование изображения в несколько ячеек, Логотип компании на нескольких листах
 
Добрый день, уважаемые коллеги!

Есть Excel документ, в котором несколько листов (бланки компании). Сделать документ хочу универсальный с возможностью менять данные по компании через лист настроек. На листе настроек есть таблица, в которой указаны название компании, должность руководителя, ФИО руководителя, и ЛОГОТИП.
ПРИМЕЧАНИЕ. Логотип желательно в формате *.png с прозрачным фоном.

Вопрос. Как это изображение вставить на другие листы так, что бы изменив изображение на листе настроек логотип поменялся на остальных листах? Пример документа во вложении.

Заранее признателен за участие.
Изменено: Allleksey - 19.11.2022 07:19:06
Удаление макросов из модуля листа при его копировании в новую книгу
 
Коллеги, прошу посодействовать в корректировке кода.
Задача - сохранить копию активного листа в новую книгу, при этом без макросов, которые ест в исходной книге (и желательно без элементов управления, которые ест на активном лисе (CommandButton1))
Мой код вот такой:
Код
ActiveSheet.CommandButton1.Visible = False
    NewFileName = "C:\Export\" & strNameFile & ".xls"
    ActiveSheet.Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=NewFileName _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close SaveChanges:=False
    Application.DisplayAlerts = True
    ActiveSheet.CommandButton1.Visible = True


Но при открытии сохраненной книги Excel "ругается" что есть отключенные макросы. Как сохранить активный лист без макросов в исходном листе?

Спасибо за участие в решении вопроса.
Добавить на график вертикальный маркер (линию) с положением, зависящим от значения ячейки
 
Цитата
Ігор Гончаренко написал:
см. вложение

Два решения, оба не сложные. Но сам бы не догадался. Спасибо!
Изменено: Allleksey - 07.09.2022 08:52:40
Добавить на график вертикальный маркер (линию) с положением, зависящим от значения ячейки
 
Цитата
evgeniygeo написал:
Allleksey,
тогда так: см.вложение

СПАСИБО БОЛЬШОЕ!!!
Изменено: Allleksey - 07.09.2022 08:48:37
Добавить на график вертикальный маркер (линию) с положением, зависящим от значения ячейки
 
Цитата
evgeniygeo написал:
Allleksey,
добавьте еще один ряд в таблицу и все.

Маркер нужен вертикальный. Подправил файл с примерном для большей ясности.
Добавить на график вертикальный маркер (линию) с положением, зависящим от значения ячейки
 
Добрый день, коллеги!

На листе есть некий график с процентами. На этот же график необходимо добавить вертикальную черту (маркер) положение которой зависит от значения в конкретной ячейке. Во вложении пример. Положение маркера должно зависеть от значения в ячейке G16. Соответственно если значение поменялось, то и маркер должен перестроится и изменить свое положение на графике.

Буду очень признателен за подсказку, как это сделать.
Изменено: Allleksey - 07.09.2022 08:18:39
Excel VBA. Скрыть диапазон столбцов по номерам
 
Добрый день, коллеги!

Есть необходимость в макросе скрыть диапазон столбцов по номерам, содержащимся в двух переменных типа integer.
Не могу придумать как это сделать.

Код
Dim intStartColumn As Integer
Dim intStopColumn As Integer
intStartColumn  = 4
intStopColumn  = 10
ThisWorkbook.Worksheets("Sheet1").  ...  .Hidden = False


Подскажите, что вместо двоеточия нужно указать?
Спасибо за участие.
Изменено: Allleksey - 08.04.2022 19:33:42
Добавление строки в конец умной таблицы
 
Цитата
RAN написал:
Создайте между таблицами объединенную ячейку
Не помогло. Как и ожидалось - заполняется последняя свободная строка. она становится строкой умной таблицы, но новая пустая строка не добавляется.
Добавление строки в конец умной таблицы
 
Это понятно. Но!!! Новая строка между таблицами не появится!!!
Как видно в файле таблицы идут одна за одной, и если добавлять строку в первую таблицу, то нужно, что бы между таблицами 1 и 2 автоматически добавлялась пустая строка.
Добавление строки в конец умной таблицы
 
Основной "затык", который у меня сейчас - не могу определить название умной таблицы, которая сейчас редактируется.
Добавление строки в конец умной таблицы
 
Коллеги, приветствую!

На листе есть 2 умные таблицы. Пусть называются Tabl1 и Tabl2
Задача. Если в умной таблице в последнюю строку добавляется информация, код VBA должен добавить еще одну строку в конец редактируемой умной таблицы.
Примечание. В документе может быть 2 листа. На каждом листе будут располагаться по 2 умные таблицы.
Пример файла во вложении.
Удалить строку в умной таблице с помощью VBA
 
RAN, спасибо большое. Работает.
Удалить строку в умной таблице с помощью VBA
 
veriable not defined
Удалить строку в умной таблице с помощью VBA
 
RAN, В Вашем коде не нашел ссылку на конкретную таблицу. Уж простите, возможно руки кривые или глаза не на том месте.
Удалить строку в умной таблице с помощью VBA
 
Михаил Л, found - переменная не определена
Удалить строку в умной таблице с помощью VBA
 
Добрый день, уважаемые коллеги!

Никак не придумаю, как удалить строку из умной таблицы. Именно с троку из таблицы, а не все строку листа
Пример файла во вложении.
Задача:
Есть значение искомого значения в переменной, пусть так:
Код
Dim SearchPosition As String
SearchPosition = "Name2"

Нужно удалить строку из умной таблицы Example_tb, в которой содержится искомое значение, содержащееся в переменной.
Все значения в первом столбце уникальные, повторений быть не может.
Помогите с кодом.
Заранее признателен.
Изменено: Allleksey - 06.03.2021 10:49:16
Функция суммирования работает некорректно, если активен другой лист
 
БМВ, Спасибо большое. Этот момент упустил. Добавил указание листа, все заработало.
Функция суммирования работает некорректно, если активен другой лист
 
Коллеги, приветствую!

Написал вот такую функцию.
Код
Function КвартальнаяСумма(rRange As Range) As Double
    Application.Volatile
    Dim RowFirst As Integer
    RowFirst = rRange.Cells(1).Row
    Dim RowLast As Integer
    RowLast = RowFirst
    Dim ColumnLast As Integer
    Dim ColumnFirst As Integer
    ColumnFirst = rRange.Cells(1).Column
    ColumnLast = rRange.Cells(rRange.Cells.Count).Column
    Do While Sheets("План-Факт").Cells(RowLast, 3).Value <> ""
        RowLast = RowLast + 1
    Loop
    Dim Summ As Double, vVal
    Summ = 0
    For Each rCell In Range(Cells(RowFirst, ColumnFirst), Cells(RowLast, ColumnLast))
        If rCell.Interior.Color = 14348258 Then
            vVal = rCell.Value
            If IsNumeric(vVal) Then
                If rCell.EntireRow.Hidden Or rCell.EntireColumn.Hidden Then
                    If bSumHide Then Summ = Summ + vVal
                Else
                    Summ = Summ + vVal
                End If
            End If
        End If
    Next rCell
    КвартальнаяСумма = Summ
End Function


Все бы ничего... работает корректно. Считает, отображает... Но только до тех пор, пока активен лист, на котором вставлена функция.
Если перехожу на другой лист, то результатом вычисления становится 0.
Подскажите, что сделал не верно, и что сделать, что бы работала функция корректно, не зависимо от активности листа.
Удалить часть текста справа до первого символа \
 
RAN, простите, а для чего нужен знак "$" после Left и Mid?
Импорт данных из всех файлов из указанной папки
 
Мотя, Все заработало. Спасибо огромное.
Удалить часть текста справа до первого символа \
 
JayBhagavan, да. Я предполагаю, что файл будет называться всегда одинаково, что бы по его названию пользователь определял, что это именно файл аналитики.
Импорт данных из всех файлов из указанной папки
 
Цитата
Мотя написал:
См.

У меня файл не сработал.
Выдал сообщение Метод Delete Из класса Range завершен не верно
И выругался на строку Selection.Delete Shift:=xlUp
Удалить часть текста справа до первого символа \
 
Откорректировал код. Почему то не все скопировалось :(
Удалить часть текста справа до первого символа \
 
Все таки попытался для тренировки решить задачу.

Код
Let FolderPath = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 11)
Изменено: Allleksey - 06.11.2018 16:50:29
Импорт данных из всех файлов из указанной папки
 
Во вложении архив с файлом, в который нужно импортировать данные и папка с файлами донорами.

Так же добавил "умную таблицу" в которую нужно импортировать данные из файлов.
Изменено: Allleksey - 06.11.2018 16:07:35
Импорт данных из всех файлов из указанной папки
 
Цитата
Мотя написал: Где Ваши файлы и Ваша "хотелка"?
Честно говоря не придумал, как сделать файл с примером. Могу приложить архив, в котором будет файл с примером и папка, в которой будет несколько файлов из которых нужно импортировать данные. Если это поможет, обязательно сделаю так. Вы только подскажите, упростит это решение вопроса или нет.
Изменено: Allleksey - 06.11.2018 15:47:50
Страницы: 1 2 3 След.
Наверх