Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » on.999
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Исчезающее сообщение через 3 секунды
 
#
06.01.2024 18:37:17
Коллеги, выложите плиз рабочий пример всего макроса сабжа.
 
Перейти    
Лишние модули проекта, Дублируются модули листов и книги, нет возможности их удалить
 
#
06.01.2024 16:39:43
Та же проблема.
Возникла при сохранении файла на Mac`е.
Лишний лист - всегда был копией "ЭтаКнига".
удалить нельзя.
переименовывая - меняется и Имя "ЭтаКнига".  Странность.



но при запуске на Макбуке
содержимое в "ЭтаКнига":  Private Sub Workbook_Open().....
не работает!

и этот ЛИСТ2 становится основным для Mac.
Изменено: on.999 - 06.01.2024 16:41:54
 
Перейти    
Связка двух таблиц с расчётами. (имеют Разную структуру)
 
#
17.11.2021 14:18:33
Добрый день.

Требуется разработать механизм взаимной связки таблиц.
Табл1.(смета) В первой идёт расчёт объёмов видов работ
Табл2.(прайс) Во второй есть перечень применяемых материалов с расценками.
Обе таблицы - с регулярными изменениями разными пользователями.
Таблицы имеют разный формат внесённых данных.

ЗАДАЧА: получить документ(табл2 или новый документ xls) с расчётом материалов по объёмам из табл1.
Учитывая расход (погрешность на укладку, подрезку) материалов.


Готов созвониться по видео, и показывать что уже сделано, какие проблемы возникали.
Готов образцы выслать по требованию.
 
Перейти    
XLS в CSV - как убрать лишние разделители у заголовков, XLS в CSV без лишних разделителей
 
#
27.09.2021 14:17:35
Мужики, Прошу помочь.
Пытаюсь из двух разных макросов слепить свой.
Проблема в лишних символах в выходном csv
Ниже основного текста
Изменено: on.999 - 27.09.2021 15:14:47
 
Перейти    
XLS в CSV - как убрать лишние разделители у заголовков, XLS в CSV без лишних разделителей
 
#
08.09.2021 12:42:29
продолжаю:

Вопрос как сделать вместо
Код
Полы;;;;

так
Код
Полы;
 
Перейти    
XLS в CSV - как убрать лишние разделители у заголовков, XLS в CSV без лишних разделителей
 
#
08.09.2021 12:40:33
Помогите разобраться.
Задача - набор работ из Экселя (фото1) необходимо перенести в онлайн кабинет клиента.
Для это Эксель формат конвертируем в CSV(фото2).
если открыть в редакторе (Notepad++ например)  - видим фото3.
Код
Наименование работ;Ед. изм.;Кол-во;Цена;Стоимость
Демонтажные работы;;;;
Полы;;;;
Демонтаж плинтуса;м.п.;20;60;1200
Стены;;;;
Демонтаж тепло-звукоизоляции;кв.м.;1;180;180
Потолки;;;;
Демонтаж потолочного плинтуса;м.п.;20;70;1400
Итого по разделу (демонтажные работы);;;;2780
 
Перейти    
Вставка рисунка в зависимости от условия.
 
#
10.02.2020 23:29:52
Приветствую.
Также Не стал создавать новую тему, т.к. тем по данному вопросу уже предостаточно, уже с готовыми решениями.

Прикрепленный выше файл  post_29533.xls (87 КБ) был взят как исходный.

Моя вводные: Есть файл с 15 листами. Имена листов меняются пользователем.

На листе "Сводная" в ячейке А43 - можно поставить значение "1" или "2".
Идёт смена логотипа "100", либо "Item(2)"
Тестируя, В коде указал лист "СМП". Он единственный никем не переименовывается.

Моя задача: чтобы на всех остальных листах Книги - также происходила смена картинки по измению А43 на "Сводной"


Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim dVal As Integer
    If Not Intersect(Target, Sheets("Сводная").Range("A43")) Is Nothing Then
        dVal = Sheets("Сводная").Range("A43").Value
    If dVal = 1 Then
            With ActiveSheet
                .Shapes("100").Visible = True
                .Shapes.Item(2).Visible = False
            End With
                With Sheets("СМП")
                .Shapes("100").Visible = True
                .Shapes.Item(2).Visible = False
            End With
    ElseIf dVal = 2 Then
         With ActiveSheet
                .Shapes("100").Visible = False
                .Shapes.Item(2).Visible = True
        End With
               With Sheets("СМП")
                .Shapes("100").Visible = False
                .Shapes.Item(2).Visible = True
        End With
    End If
    End If
End Sub
Изменено: on.999 - 10.02.2020 23:31:05
 
Перейти    
Страницы: 1
Наверх