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

Страницы: 1
Открыть скрытые первые 9 строк листа
 
Не могу открыть первые 9 скрытых строк в файле
Какой порядок действий?
Изменено: Тимофеев - 30.06.2021 10:40:54
Работа со сторонними приложениями. Передать из Excel что-либо (команду, расценку, нажатие кнопки) в Смета.ру
 
Может есть у кого пример/информация/литература - что-нибудь, за что зацепиться как передать что-либо в программу Cмета.ру?
В приложении AutoCad например, передавать данные из Excel через VBA очень удобно и полезно иногда.
На сайте Смета.РУ - ГРУППА КОМПАНИЙ "СТРОЙСОФТ" - (smeta.ru) - кроме как купить данный продукт нет ничего. Но имея данный ключ купленный официально может быть есть возможность упростить и автоматизировать работу (ввод данных) и.т.п. Конечный продукт данной программы так же файл Excel, но напичканный кучей формул и констант индексов из платных баз производителя сей программы. И по моему внутри этой программы макросы используются и для оформления и для вывода расчетов в нужные ячейки.
Г-н, Jack Famous - по поиску из форума много дел со сметами имел, может что подскажет?
Любая информация ценна по этому вопросу, включая новость о невозможности работы из Excel с приложением из темы.
Изменено: Тимофеев - 02.06.2021 22:21:38
Вставка фигуры на лист по координатам (плоскость), Для медведя новая тема для «отдувки»
 
Добрый вечер, подскажите а можно ли макросом вставлять на лист фигуры по координатам x и y?
2 прямоугольника с разными размерами и с именем, заданным из кода вставить на лист
Изменено: Тимофеев - 29.04.2021 22:27:49
Применение выравнивания и начертания для текста в ячейке до первого переноса строки
 
МатросНаЗебре помог с кодом - разделить ячейки по строкам до первого переноса строки в ячейке и копирования в столбец А другого листа результата.
Что нужно дописать для выравнивания по центру и применения полужирного шрифта для текста до первого переноса?
Код
Const RANGE_IN = "A2:A74"
Const RANGE_OUT = "A1"
Sub SplitByChr10()
    Dim arr As Variant
    arr = Sheets("Лист1").Range(RANGE_IN)
    Dim rOut As Range
    Set rOut = Sheets("сюда").Range(RANGE_OUT)
    Dim brr As Variant
    Dim x As Integer
    x = Range(RANGE_OUT).Column
    rOut.Parent.Range(rOut.Parent.Range(RANGE_OUT), rOut.Parent.Cells(Rows.Count, x)).ClearContents
    rOut.EntireColumn.ColumnWidth = 85
    rOut.EntireColumn.WrapText = True
    Dim y As Long
    Dim u As Long
    For y = 1 To UBound(arr, 1)
        brr = Split(arr(y, 1), Chr(10))
        u = rOut.Parent.Cells(Rows.Count, x).End(xlUp).Row + 1
        u = Application.Max(Range(RANGE_OUT).Row, u)
        If UBound(brr) < 0 Then
            ReDim brr(1 To 1)
            brr(1) = " "
        End If
        rOut.Parent.Cells(u, x).Resize(UBound(brr) + 1, 1) = Application.Transpose(brr)
    Next
    u = rOut.Parent.Cells(Rows.Count, x).End(xlUp).Row + 1
    rOut.Parent.PageSetup.PrintArea = Cells(1, 1).Resize(u).Address
End Sub
Разбить ячейку на строки по символу переноса
 
Добрый день, во вложении пример заполнены 5 ячеек столбца А.
Как формулой/макросом получить в столбце B  значения этих ячеек разбитых до символ(10)?
Так же подойдет наверное вариант замены символ(10) на пробел и по 47 символов поделить тогда. Пока максимально в ячейке 5000 символов
Изменено: Тимофеев - 26.04.2021 10:44:00
Создание файлов по шаблону с сохранением в новую папку, оптимизация кода для увеличение скорости
 
Здравствуйте! Пример не прикладываю - 5,3 Мб, много внутренних пересчетов. Файл на сервере.
Приложу код - рабочий, но неуклюжий. В цикле на 44 строки отработал за 17 минут - довольно долго. Компьютер очень неслабый.
Что поправить для увеличения скорости, помогите если есть время пожалуйста:
Код
Sub Пример()
Application.ScreenUpdating = False 'Отключаем обновление экрана
Application.EnableEvents = False 'Отключаем отслеживание событий
Application.DisplayAlerts = False 'Отключаем вывод сообщений во время макроса
Dim Papka_name1 As String, Name_file1 As String 'Объявляем переменные
Papka_name1 = ThisWorkbook.Path & "\" & "- Папка1" 'Путь к новой папке (добавить дату) 
If Dir(Papka_name1, 16) = "" Then MkDir Papka_name1 'Создаем папку
End If
Sheets("!ККК").Select 'Выбираем лист с данными
For i = 4 To 48 ' Запускаем цикл на 44 строки, начиная с четвертой строки
    If Cells(i, 21).Value = 2 Then 'Условие для дальнейшей обработки
Sheets("123").Cells(3, 6).Value = Sheets("!ККК").Cells(i, 22).Value 'Заполняем для i-того пересчета
Sheets("123").Cells(2, 6).Value = "Условие2"
Sheets("!ККК").Select ' Выбираем лист с данными
Name_file1 = Papka_name1 & "\" & Sheets("123").Cells(8, 6).Value & " - ККК " & ".xlsx" 'Имя файла
Sheets("!ККК").Cells(i, 14).Value = Sheets("12").Cells(2348, 12).Value 'Сбор инфы i-того пересчета
Sheets("!ККК").Cells(i, 28).Value = Sheets("12").Cells(2341, 11).Value
Sheets("!ККК").Cells(i, 29).Value = Sheets("12").Cells(2343, 12).Value
Sheets("!ККК").Cells(i, 30).Value = Sheets("12").Cells(2344, 12).Value
Sheets("!ККК").Cells(i, 31).Value = Sheets("12").Cells(2345, 12).Value
Sheets("!ККК").Cells(i, 32).Value = Sheets("12").Cells(2346, 12).Value
Sheets("!ККК").Cells(i, 33).Value = Sheets("12").Cells(2347, 12).Value
Sheets("!ККК").Cells(i, 34).Value = Sheets("12").Cells(2348, 12).Value
Sheets("!ККК").Cells(i, 27).Value = Sheets("12").Cells(2346, 14).Value
Sheets(Array("12", "123", "4", "5", "6", "7")).Copy 'Копирование выбранных листов в новую книгу
ActiveWorkbook.PrecisionAsDisplayed = True 'Задаем указанную точность
Sheets("12").Select 'Выбираем лист 12
Sheets("12").AutoFilter.Range.AutoFilter Field:=1, Criteria1:="Да" 'Фильтр первого поля по критерию
ActiveWorkbook.BreakLink Name:= "X:\- 2020\4\- Т\- И\2.xlsm", Type:=xlExcelLinks 'Разрыв внешних связей    
ActiveWorkbook.BreakLink Name:= "X:\С.xlsm", Type:=xlExcelLinks '(как разорвать все связи без пути?)
ActiveWorkbook.SaveAs Filename:= Name_file1, FileFormat:=51 'Сохраняем файл
ActiveWorkbook.Close 'Закрываем книгу
Workbooks("2.xlsm").Activate 'Активируем файл с макросом
Sheets("!ККК").Select 'Выбираем лист с данными
    End If
Next i
Exit Sub
    Application.ScreenUpdating = True 'Отключаем обновление экрана
    Application.EnableEvents = True 'Отключаем отслеживание событий
    Application.DisplayAlerts = True 'Отключаем вывод сообщений во время макроса
End Sub
Изменено: Тимофеев - 23.04.2021 21:51:33
Макрос: задать указанную точность при пересчете книги
 
вот фрагмент кода - макрорекордер не пишет
Необходимо после создания новой книги задать указанную точность в параметрах
Код
Sheets(Array("1", "2")).Copy
'Необходимо установить точность
ActiveWorkbook.SaveAs Filename:= Name_file2, FileFormat:=51
    ActiveWorkbook.BreakLink Name:= _
    ActiveWorkbook.Save
ActiveWorkbook.Close
Изменение цвета текста формулой возможно ли?
 
Пример в А1 число допустим 30
=ТЕКСТ(A1;"[Красный][>20]##")
Почему не красит?
Вставка в таблицу Word значения из Excel. Обратиться к ячейке
 
Код
With myTable
.Columns(1).Cells(1).Range = Sheets("Лист1").Range("А" & 1).Value
.Columns(1).Cells(2).Range = "ывло"
Добрый вечер из модуля в Эксель -Ошибка  
Изменено: Тимофеев - 04.03.2021 20:36:21
Функция ДРВ для чего нужна? Примеры ее применения. Какие есть программы, поддерживающие автоматизацию COM?
 
Очень мало информации по этой функции - кто-то ей пользуется вообще?
ДРВ(КодПрог;сервер;элемент1;[элемент2];...)
Справку я почитал - не понял
Тут ранее обсуждалось тоже:
Извлечь данные реального времени (planetaexcel.ru)
Изменено: Тимофеев - 04.03.2021 12:45:33
#Ссылка в файле с внешними ссылками
 
Файл на сервере с внешними ссылками на другие файлы:
='X:\- 2020\[ХХХ Х.xlsx]11'!G6 - вид ссылок
ХХХ Х.xlsx - документ который постоянно по пути X:\- 2020\
Ежедневно заменяю на новый (там пересчет по летучей формуле = сегодня())
В файле где собираю данные получается иногда, но очень часто:  ='X:\- 2020\[ХХХ Х.xlsx]#Ссылка'!G6
Приходится перетягивать столбцы с формулами такого вида принудительно заменяя #Ссылка на 11.
От чего это происходит? (Может двссыл как-то использовать)
Изменено: Тимофеев - 22.02.2021 09:12:59
Подбор высоты строк по событию изменения ячейки
 
Подскажите с таким примером:
- По изменению ячейки А1 - значения 1 или 2 запустить выполнение макроса
*В макросе подобрать высоту строк в имеющиеся габариты ( ширина) столбцов J, K, L
Изменено: Тимофеев - 07.02.2021 12:45:01
Определение последней строки с условием и дальнейшее использование в цикле
 
Допустим в столбце B протянута формула на 100 строк вниз: =ЕСЛИ(А1=0;"";O1),
причем начиная с 5-ой строки и ниже значения столбца A равны 0.
Отрывок кода:
Код
Sub *()
LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
Set acadTable = acadDoc...
For i = 1 To LastRow &#39;Далее цикл
acadTable.InsertRows ...
Next
End Sub

Как определить последнюю строку в этом случае? Не брать условие если "". Цикл нужно не 100, а 5 раз прогнать.

Пока вариант только нашел доп. ячейки с формулой: [С1]
Код
=100-СЧЁТ(B1:B100) 

и в макросе цикл:
Код
 For i = 1 To .Range("С" & 1).value

Но это как-то не комильфо ...
Определение соответствия набора точек по радиусу
 
Добрый день. Помогите с геометрией.
Нужно в столбце I ФОРМУЛОЙ или МАКРОСОМ проставить соответствие для номера точки 1. Условие из точки 1 радиусом 1000 провести окружность, Если точка 2 попадает в эту окружность напротив номера точки 1 поставить какой номер точки 2 соответствует и так далее. В файле пример понятнее будет
Управление сторонним приложением из Excel. Печать блоков dwg
 
Во вложении пример в dwg с блоком! и файл Excel с кодом - но не работает потому что не умею. Прикрепленный архив
Пример и видео как это работает и сделано умными людьми по ссылке:
Пакетная печать VBA из листа со многими ВЭ (adn-cis.org)
В файле dwg блок есть. Должно по нажатию кнопки активировать кад, выделить мышью зону должен пользователь и напечатать в pdf все блоки. Желательно создать по дороге папку по пути файла эксель и сохранить туда pdf
Понимаю что не вопрос по Excel, но судя по поиску форума тут есть люди которые в этом очень хорошо понимают. Помогите разобраться, плиз!
При экспорте из Excel формат не корректен (.ExportAsFixedFormat), вместо ожидаемого А4-(210х297) образуется Нестандартный-(276,3х390,9)
 
Файл с макросом во вложении ()
         При печати Ctrl+P (принтер Adobe PDF, напечатать активные листы, книжная ориентация, А4, поля 10х10х5х5 _
         без колонтитулов, вписать все столбцы на страницу) - Итог: формат листа 210х297 'Так и нужно
         Макросом - Итог: формат листа 267,3х390,9 'А нужно 210х297
Где косяк
'Далее уже будем разбираться как привязать звук на созданный PDF
Код
Sub ПДФ_пока_без_звука()
Application.ScreenUpdating = False 'Отключаем обновление экрана
Application.EnableEvents = False 'Отключаем отслеживание событий
Application.DisplayAlerts = False 'Отключаем вывод сообщений во время макроса
    Dim Papka_name1 As String, Name_file1 As String
    Papka_name1 = ThisWorkbook.Path & "\" & "- Не А4" 'Имя папки
        If Dir(Papka_name1, 16) = "" Then 'Проверка на наличие
            MkDir Papka_name1 'Создание папки
        End If
    Sheets("1").Select 'Выбираем лист
    Name_file1 = Papka_name1 & "\" & Sheets("1").Cells(1, 1).Value & ".pdf" 'Имя файла
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name_file1, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 'Печать
Application.ScreenUpdating = True 'Включаем обновление экрана
Application.EnableEvents = True 'Включаем отслеживание событий
Application.DisplayAlerts = True 'Включаем вывод сообщений
End Sub
Изменено: Григорий Тимофеев - 24.10.2020 15:48:44
Привязать звук на кнопку в пдф файле сделанном из экселя
 
Добрый вечер многоуважаемые помогающие!
Возможно ли привязать на кнопку или значок проигрывание звукового файла при нажатии на эту кнопку значок в ПДФ документе созданном из Excel?
Желательно путь на файл задать из какой либо ячейки.
Изменено: Григорий Тимофеев - 23.10.2020 19:54:15
Копирование диапазона только тех строк, если в ячейке B не пусто
 
Код
Set ra = sh.Range(sh.Range("a6"), sh.Range("a" & sh.Rows.Count).End(xlUp)).Resize(, 7)
shd.Range("a" & shd.Rows.Count).End(xlUp).Offset(1).Resize(ra.Rows.Count, ra.Columns.Count).Value = ra.Value
Доброе утро, как дописать код, чтобы диапазон с листа sh копировался на лист shd, но пропускал строки если в копируемом диапазоне B пустые
Перенос значений строки с организацией накопительного итога, Новая тема к теме Быстрый способ переноса значений из одной в другую ячейку по клику
 
Добрый день помогите доработать пример с организацией накопительного итога:
Дабл клик ячейка I2 = Значения ячеек E2:G2 суммируются с A2:C2 и перезаписываются в них (A+E;B+F;C+G). Далее очищается  E2:G2
Применение параметра Delimiter для файлов*.csv
 
Код
Set WB = Nothing: Set WB = Workbooks.Open(Filename, False, True)
Set ra = sh.Range(sh.Range("a2"), sh.Range("a" & sh.Rows.Count).End(xlUp)).Resize(, 10)
shd.Range("a" & shd.Rows.Count).End(xlUp).Offset(1).Resize(ra.Rows.Count, ra.Columns.Count).Value = ra.Value
Есть файл csv и строчки из кода
Вся строка файла копируется в первый столбец, а при наличии запятой переносится во второй столбец часть строки файла. Нужно поставить разделитель ; Подскажите как?
Изменено: Григорий Тимофеев - 16.09.2020 09:10:07
Ошибка при сохранении определенных листов файла в новую книгу
 
Добрый день. Помогите разрешить проблемку.
Файл прилагаю.
! Лист Х запуск макроса. Выдает ошибку.
- Возможно ли в сохраненном файле во всех листах кроме "Х" автофильтр в столбце "U" включить на критерий "Да";
- К имени создаваемого файла добавить дату;
- Разорвать связь с внешним файлом, которая остается после копирования листа "Х" в новую книгу.
[ Закрыто] Увеличить скорость работы, Часть кода при большом кол-ве данных макрос выполняется бывало и по 48 часов
 
 Пример
Изменено: Григорий Тимофеев - 09.09.2020 10:10:17
Вытащить GPS координаты из фото, Обратится к подробным свойствам файла фотографии
 
Добрый вечер.
Вопрос такой:
Команда .GetDetailsOf(.ParseName(iFileName), 1) и так далее от 1 до 400 определенные свойства дает вплоть до того на что снято изображение, фокусное расстояние, экскоррекция и.т.п
Необходимого параметра GPS в свойствах нет.
Подскажите как достать.
На сайте отправить адрес в поле поиска
 
Добрый день, просьба помочь с такой проблемой. Есть веб страница по адресу: http://map.mossvet.ru:51/#.
Необходимо по нажатию к за отнопки на форме (отправить адрес.xlsb) передать на вышеупомянутый сайт адрес из ячейки A1.
Необходимо обратиться к троеточию (клик по нему) в открывшемся поле передать данные из ячейки и сделать клик по одному из предложенных вариантов.
Суть такова: карта открывается всегда в центре, а надо чтобы при вводе улицы она открывалась в нужном районе.

Рисунки удалены - превышение допустимого размера вложения [МОДЕРАТОР]
Страницы: 1
Наверх