Тимофеев (Все сообщения пользователя)

Автоматизация в autocad с помощью vba, Макрос на языке vba в autocad для расчёта опалубки.

Пользователь

Сообщений: 2281 Регистрация: 01.09.2020

27.04.2026 17:12:06

я вообще не претендую пишите Joiner - если что получится можете потом скинуть в общий доступ вариант реализации
Обогнуть все препятствия стойками может быть проблема если чертежи не подготовлены. А так ком вставки не очень шустрые - 1800 стоек вставляются не так быстро секунд 5

Изменено: Тимофеев - 27.04.2026 17:16:33

Перейти

Автоматизация в autocad с помощью vba, Макрос на языке vba в autocad для расчёта опалубки.

Тимофеев

Пользователь

Сообщений: 2281 Регистрация: 01.09.2020

27.04.2026 16:09:42

ну это вообще не про эксель.
А блоки стоек балок в двг есть? они динамические ? - какие типоразмеры?
Задача вообще не простая, поэтому проги что это делают продают недёшево и запиленные под производителей определенных

Перейти

Задача на выбор вариантов / комбинирование товара

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 22.04.2026 17:38:24 . Изменено: Тимофеев - 22.04.2026 18:05:59
	Перейти

Задача на выбор вариантов / комбинирование товара

Тимофеев

Пользователь

Сообщений: 2281 Регистрация: 01.09.2020

22.04.2026 17:16:58

оставляем тогда такой вариант финальный, редактируешь параметры в G
Допуск лучше 5% ставить - до 21000

Изменено: Тимофеев - 22.04.2026 18:02:27

Перейти

Задача на выбор вариантов / комбинирование товара

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 22.04.2026 16:27:20 . Изменено: Тимофеев - 22.04.2026 18:03:01
	Перейти

Задача на выбор вариантов / комбинирование товара

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 22.04.2026 13:37:17 . Изменено: Тимофеев - 22.04.2026 18:05:27
	Перейти

Задача на выбор вариантов / комбинирование товара

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 21.04.2026 18:09:28 . Изменено: Тимофеев - 22.04.2026 18:10:02
	Перейти

Задача на выбор вариантов / комбинирование товара

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 21.04.2026 17:05:12 . Изменено: Тимофеев - 22.04.2026 18:05:19
	Перейти

Задача на выбор вариантов / комбинирование товара

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 21.04.2026 15:24:33 . Изменено: Тимофеев - 22.04.2026 18:05:09
	Перейти

распределение плана продаж слево направо

Тимофеев

Пользователь

Сообщений: 2281 Регистрация: 01.09.2020

21.04.2026 14:31:39

Код

=ЕСЛИ($D$3:$D$12*$F$1>$E$3:$E$12;$E$3:$E$12;ЦЕЛОЕ($D$3:$D$12*$F$1)+
ОКРУГЛ(($F$1-СУММ(ЕСЛИ($D$3:$D$12*$F$1>$E$3:$E$12;$E$3:$E$12;ЦЕЛОЕ($D$3:$D$12*$F$1))))/
СУММ(ЕСЛИ($E$3:$E$12-$D$3:$D$12*$F$1<0;0;$E$3:$E$12-$D$3:$D$12*$F$1))*
ЕСЛИ($E$3:$E$12-$D$3:$D$12*$F$1<0;0;$E$3:$E$12-$D$3:$D$12*$F$1);1))

Изменено: Тимофеев - 21.04.2026 14:33:18

Перейти

Задача на выбор вариантов / комбинирование товара

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 21.04.2026 13:49:52 . Изменено: Тимофеев - 22.04.2026 18:05:01
	Перейти

Задача на выбор вариантов / комбинирование товара

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 21.04.2026 11:46:28 . Изменено: Тимофеев - 22.04.2026 18:04:50
	Перейти

Задача на выбор вариантов / комбинирование товара

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 21.04.2026 09:49:42 . Изменено: Тимофеев - 22.04.2026 18:04:39
	Перейти

Задача на выбор вариантов / комбинирование товара

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 20.04.2026 13:57:25 . Изменено: Тимофеев - 22.04.2026 18:04:25
	Перейти

Формула с использованием одновременно и значения, и заливки

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 16.04.2026 10:33:10 формула условного форматирования наверное =$B2<>"Яндекс" Изменено: Тимофеев - 16.04.2026 10:43:21
	Перейти

Формат Дата/Время - ДД:ЧЧ

Тимофеев

Пользователь

Сообщений: 2281 Регистрация: 01.09.2020

16.04.2026 10:24:08

форматированием этого не сделать
единственное что можно для больше 31 дня максимально приблизить без учёта минут

Код
[<1]"00:"чч;[<=31]Д":"чч;#":00"

Перейти

СУММЕСЛИМН не суммирует значения, полученные с помощью ПСТР, формула СУММЕСЛИМН не

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 13.04.2026 18:05:40 Excel ограничен не количеством знаков после запятой, а количеством значащих цифр во всем числе.
	Перейти

Преобразовать И.О. Ф в Ф И. О. с проверкой

Тимофеев

Пользователь

Сообщений: 2281 Регистрация: 01.09.2020

02.03.2026 17:35:03

Код
=ЗАМЕНИТЬ(A1;НАЙТИ(" ";A1;1)+2;99;". ")& ПСТР(A1;ПРОСМОТР(99;ПОИСК(" ";" "&A1;СТРОКА($1:$99)));1)& "."

Изменено: Тимофеев - 02.03.2026 17:42:01

Перейти

Распределить товары по коробкам.

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 02.03.2026 16:56:53 попросил ради интереса ИИ реализовать простой 3D-алгоритм упаковки Изменено: Тимофеев - 02.03.2026 18:07:13
	Перейти

Преобразовать И.О. Ф в Ф И. О. с проверкой

Тимофеев

Пользователь

Сообщений: 2281 Регистрация: 01.09.2020

02.03.2026 16:23:06

Код

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;" ";"");ПСТР(ПОДСТАВИТЬ(A2;" ";"");ПОИСК(".";ПОДСТАВИТЬ(A2;" ";"");1)-1;4);"")
&" "&
ЗАМЕНИТЬ(ПСТР(ПОДСТАВИТЬ(A2;" ";"");ПОИСК(".";ПОДСТАВИТЬ(A2;" ";"");1)-1;4);2;1;". ")

Изменено: Тимофеев - 02.03.2026 16:25:34

Перейти

Условное форматирование ячеек, если ячейка содержит текст введенный вручную

Тимофеев

Пользователь

Сообщений: 2281 Регистрация: 01.09.2020

02.03.2026 15:59:36

Код
=ИЛИ(НЕ(ЕФОРМУЛА(F9));ЕЧИСЛО(F9))

Перейти

Условное форматирование ячеек, если ячейка содержит текст введенный вручную

Тимофеев

Пользователь

Сообщений: 2281 Регистрация: 01.09.2020

02.03.2026 15:27:14

Код
=НЕ(ЕФОРМУЛА(F9)) =НЕ(ЕФОРМУЛА(G9)) =НЕ(ЕФОРМУЛА(O9)) ... цвет например жёлтый

Изменено: Тимофеев - 02.03.2026 15:29:18

Перейти

Не работают формулы в файле эксель (пустые ячейки), На одном компьютере работает, а на другом нет.

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 10.02.2026 16:54:14 а лучше без подставить 9/10 33/10 вместо 0,9 и 3,3
	Перейти

Не работают формулы в файле эксель (пустые ячейки), На одном компьютере работает, а на другом нет.

Тимофеев

Пользователь

Сообщений: 2281 Регистрация: 01.09.2020

10.02.2026 16:37:49

а вы раскройте скрытые столбцы - появятся и ошибки
откройте скрытые столбцы и перетяните формулу из D2 как посоветовал Павел - и будет работать везде

Код

=ПОДСТАВИТЬ(ЕСЛИ(A2="ЩУВ AL 0,3х0,3х1,5м б/у*";0,9;
ЕСЛИ(A2="ЩУН AL 0,5х0,5х3,3м б/у*";3,3;
ЕСЛИ(A2="ЩУН AL 0,5х0,5х3,0м б/у*";3;
ЕСЛИОШИБКА(ПСТР(A2;1+ПОИСК("(";A2);
ПОИСК("м2";A2)-ПОИСК("(";A2)-1);0))));
",";ПСТР(1%;2;1))

Изменено: Тимофеев - 10.02.2026 16:53:28

Перейти

Не работают формулы в файле эксель (пустые ячейки), На одном компьютере работает, а на другом нет.

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 10.02.2026 16:32:05 очень странно что настройки одинаковые у меня стоит запятая - меняю на точку улетаю в ошибки - других предположений больше нет
	Перейти

Не работают формулы в файле эксель (пустые ячейки), На одном компьютере работает, а на другом нет.

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 10.02.2026 16:26:22 скрин 123 откуда с компьютера где формулы работают? Изменено: Тимофеев - 10.02.2026 16:27:47
	Перейти

Не работают формулы в файле эксель (пустые ячейки), На одном компьютере работает, а на другом нет.

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 10.02.2026 16:12:36 В D тоже формулы - и если системный разделитель точка то улетит в ошибку - вот и весь ответ о том что на одном работает на другом не работает Изменено: Тимофеев - 10.02.2026 16:16:58
	Перейти

Не работают формулы в файле эксель (пустые ячейки), На одном компьютере работает, а на другом нет.

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 10.02.2026 15:55:00 это если точка стоит то будет пусто
	Перейти

Не работают формулы в файле эксель (пустые ячейки), На одном компьютере работает, а на другом нет.

Тимофеев Пользователь Сообщений: 2281 Регистрация: 01.09.2020	# 10.02.2026 15:32:29 может у них системный разделитель точка?
	Перейти

как получить список файлов в архиве (в тихом режиме)?, vba

Тимофеев

Пользователь

Сообщений: 2281 Регистрация: 01.09.2020

05.02.2026 17:16:02

заставлять дать рабочий вариант его нужно долга - попытка 2

Скрытый текст

Вы абсолютно правы — мой предыдущий ответ был перегружен и содержал нерабочие методы. Сейчас дам вам рабочее минималистичное решение из 15 строк.

✅ РАБОЧЕЕ РЕШЕНИЕ (15 строк кода):

vba
Function ExecuteHidden(cmd As String) As String
Dim ws As Object, fso As Object, tempFile As String, ts As Object

Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

' Создаем уникальный временный файл
tempFile = Environ("TEMP") & "\" & fso.GetTempName

' Выполняем команду скрыто с выводом в файл
ws.Run "cmd /c " & cmd & " > """ & tempFile & """ 2>&1", 0, True

' Читаем результат
If fso.FileExists(tempFile) Then
Set ts = fso.OpenTextFile(tempFile, 1)
ExecuteHidden = ts.ReadAll
ts.Close
fso.DeleteFile tempFile
Else
ExecuteHidden = ""
End If
End Function

Sub Test7z()
Const exe$ = "D:\7-Zip 25.01 x64\7z.exe"
Const ar$ = "D:\test 111.7z"

Dim cmd As String: cmd = """" & exe & """" & " l " & """" & ar & """"
Dim result As String: result = ExecuteHidden(cmd)

Debug.Print result
End Sub

🔧 ЕЩЁ КОРОЧЕ (7 строк):

vba
Sub Run7zSilent()
Dim cmd As String, ws As Object, fso As Object, tmp As String

cmd = """D:\7-Zip 25.01 x64\7z.exe"" l ""D:\test 111.7z"""
tmp = Environ("TEMP") & "\7z_" & Timer & ".txt"

Set ws = CreateObject("WScript.Shell")
ws.Run "cmd /c " & cmd & " > """ & tmp & """ 2>&1", 0, True

With CreateObject("Scripting.FileSystemObject")
If .FileExists(tmp) Then Debug.Print .OpenTextFile(tmp, 1).ReadAll: .DeleteFile tmp
End With
End Sub

📊 Для обработки нескольких архивов:

vba
Sub ProcessArchives()
Dim archives, i As Long
archives = Array("D:\test1.7z", "D:\test2.zip", "D:\test3.rar")

For i = 0 To UBound(archives)
Dim cmd As String
cmd = """D:\7-Zip 25.01 x64\7z.exe"" l """ & archives(i) & """"

' Вызываем функцию ExecuteHidden
Dim result As String
result = ExecuteHidden(cmd)

' Обрабатываем результат
Debug.Print "Архив: " & archives(i)
Debug.Print "Размер: " & ExtractSize(result)
Debug.Print "---"
Next i
End Sub

Function ExtractSize(output As String) As String
Dim lines As Variant, i As Long
lines = Split(output, vbCrLf)

For i = 0 To UBound(lines)
If InStr(lines(i), "files,") > 0 And InStr(lines(i), "folders") > 0 Then
ExtractSize = Trim(lines(i))
Exit Function
End If
Next i

ExtractSize = "Не найдено"
End Function

❌ Почему ваши методы не работали:

Ваш test1 (мигает):

vba
cmd = """" & exe & """" & " l " & """" & ar & """"
Debug.Print CreateObject("WScript.Shell").exec(cmd).StdOut.ReadAll

Проблема: .exec всегда показывает окно CMD.

Ваш test2 (работает, но только в файл):

vba
cmd = "ver"
cmdtxt = "cmd /c " & cmd & " > """ & file & """ 2>&1"
CreateObject("WScript.Shell").Run cmdtxt, 0, True

Плюс: Run с параметром 0 скрывает окно.
Минус: результат только в файле, а не в VBA.

Ваш test3 (не работает):

vba
cmd = """" & exe & """" & " l " & """" & ar & """"
cmdtxt = "cmd /c " & cmd & " > """ & file & """ 2>&1"
CreateObject("WScript.Shell").Run cmdtxt, 0, True
Debug.Print Trim(CreateObject("WScript.Shell").exec(cmdtxt).StdOut.ReadAll)

Ошибка: Вы запускаете команду с Run, а потом пытаетесь прочитать через .exec — это два разных процесса. Результат уже в файле D:\222.txt.

🎯 ФИНАЛЬНОЕ РЕШЕНИЕ (ваш test3 исправленный):

vba
Sub test3_fixed()
Const ar$ = "D:\test 111.7z"
Const ex$ = "D:\7-Zip 25.01 x64\7z.exe"
Const file$ = "D:\222.txt"

Dim cmd As String, ws As Object
Set ws = CreateObject("WScript.Shell")

cmd = """" & ex & """" & " l " & """" & ar & """"

' 1. Выполняем команду скрыто с записью в файл
ws.Run "cmd /c " & cmd & " > """ & file & """ 2>&1", 0, True

' 2. Ждем немного
Dim start As Single: start = Timer
Do While Timer < start + 2 ' Ждем до 2 секунд
DoEvents
Loop

' 3. Читаем файл
With CreateObject("Scripting.FileSystemObject")
If .FileExists(file) Then
Debug.Print .OpenTextFile(file, 1).ReadAll
Else
Debug.Print "Файл не найден"
End If
End With
End Sub

⚡ Если нужно ускорить (без ожидания таймера):

vba
Sub FastExecute()
Dim ws As Object, cmd As String, tmp As String, fso As Object

Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

cmd = """D:\7-Zip 25.01 x64\7z.exe"" l ""D:\test 111.7z"""
tmp = Environ("TEMP") & "\7zout.tmp"

' Запускаем скрыто
ws.Run "cmd /c " & cmd & " > """ & tmp & """ 2>&1", 0, True

' Проверяем файл в цикле (более надежно, чем таймер)
Dim i As Long
For i = 1 To 50 ' 50 попыток по 100 мс = 5 секунд максимум
If fso.FileExists(tmp) Then Exit For
Application.Wait Now + TimeValue("00:00:00.1")
Next i

' Читаем результат
If fso.FileExists(tmp) Then
Debug.Print fso.OpenTextFile(tmp, 1).ReadAll
fso.DeleteFile tmp
End If
End Sub

📌 Итог:

Используйте функцию ExecuteHidden из первого примера — 15 строк, работает.
Не смешивайте Run и .exec — это разные механизмы.
Всегда проверяйте существование файла перед чтением.

Просто скопируйте первую функцию и используйте её — она работает.

Перейти