У меня возник вопрос по скрипту. Есть вот такой скрипт, который запускает видеоролик из той же папки, но не с начала, а с с нужного момента. Для этого скрипт должен иметь в названии - время.
Вопрос в том, как изменить скрипт, чтобы он запускал видео с нужного момента - если после названия - идет еще какой-то текст ? То есть скрипт должен воспринимать только числа названия файла, и игнорировать текст который идет после этих чисел.
Вот так скрипт выглядит если название включает только числа, например "00.02.12.vbs"
А вот если файл будет называться "00.02.12 - инструкция.vbs" то скрипт уже не запустится, потому что после чисел идет текст. То есть надо видимо в скрипте как-то поставить обработку - только первых 8 символов, а остальное не учитывать. Как это сделать ?
Mershik, у меня по-прежнему выводится пустой лист и по прежнему выдается ошибка. Ничего лишнего не делаю - только жму на кнопку запуска макроса - больше ничего..
То что у вас выводится - это просто все в кучу свалено и нужное и ненужное. И выводится - не на главный лист, а зачем-то создается отдельный лист. А я спрашивал - про вывод данных со столбцов D - в столбец D главного листа - и показал в примере.
Sub CollectDataFromAllSheets()
Dim ws As Worksheet
Set wbCurrent = ActiveWorkbook
Workbooks.Add
Set wbReport = ActiveWorkbook
'копируем на итоговый лист шапку таблицы из первого листа
wbCurrent.Worksheets(1).Range("A1:D1").Copy Destination:=wbReport.Worksheets(1).Range("A1")
'проходим в цикле по всем листам исходного файла
For Each ws In wbCurrent.Worksheets
'определяем номер последней строки на текущем листе и на листе сборки
n = wbReport.Worksheets(1).Range("A1").CurrentRegion.Rows.Count
'задаем исходный диапазон, который надо скопировать с каждого листа - любой вариант на выбор:
Set rngData = ws.Range("A1:D5") 'фиксированный диапазон или
Set rngData = ws.UsedRange 'всё, что есть на листе или
Set rngData = ws.Range("F5").CurrentRegion 'область, начиная от ячейки F5 или
Set rngData = ws.Range("A2", ws.Range("A2").SpecialCells(xlCellTypeLastCell)) 'от А2 и до конца листа
'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки
rngData.Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1)
Next ws
End Sub
Но он что-то не то делает.
Открывает новую книгу и скидывает в одну кучу все содержимое листов (причем даже с главного листа - хотя там только обновить данные нужно было, а не копировать их никуда)
В книге есть главный лист ("Итоговая Сводка"), и несколько других листов. На этих листах представлен текст, который надо собрать - в один столбец - на лист "Итоговая Сводка" с промежутком в две строки (перед этим удалив предыдущее содержимое этого столбца - то есть предыдущий текст который был туда скопирован ранее).
Как макросом произвести подобное собирание текста с разных листов - в один столбец листа "Итоговая Сводка" ?
В файле примере - показал что должно получиться в итоге.
Андрей_26 написал: Почему вы считаете что наиболее подходит ячейка AH12, а ни AH13 ?
А посмотрите по тому, что изображено на листе. Там же видно, что большая часть линии - проходит по ячейке AH12 и совсем немного задевает ячейку AH13. Поэтому чисто интуитивно можно сказать, что AH12 - более подходит.
Цитата
Андрей_26 написал: Угол относительно чего ? Как вы его вычисляете ?
А я не знаю - как еще это можно сформулировать. Для наглядности нарисовал фигуру-линию. Эта линия - исходит из центра синей ячейки и нацелена на центр зеленой ячейки.
И нужно макросом как-то определить: какая из желтых ячеек - лежит на этом пути, или расположена в том же направлении, или находится под тем же углом ? Я просто не математик, поэтому формулирую задачу простым слогом.
Доброго времени. Здравствуйте форумчане. Помогите решить задачу.
На листе есть две ячейки AI12 и S18, которые для наглядности соединены линией (только для наглядности) Ячейка AI12 - является основной, вокруг нее находятся 8 ячеек, которые выделил цветом.
Как вывести в AQ6 - результат - адрес ячейки, находящейся рядом с AI12 и более проходящее под тем же углом, что и удаленная ячейка S18 ?
То есть нужно сравнить ячейки - по углу, на который они отклоняются от общей ячейки и выбрать ту, угол отклонения которой - более похож на угол к ячейке S18. (В данном случае под угол удаленности ячейки S18 - наиболее подходит ячейка AH12.)
artyrH, вы просто выписали в диапазон - адреса тех ячеек, которые подсвечены красным цветом. Это я их вручную покрасил, чтобы было понятнее - как пролегает кратчайший путь. Изначально - все ячейки бесцветные.
Я спрашивал не про цвет ячеек, а про то как найти точки (или адреса ячеек) - которые соответствуют кратчайшему пути между главной и целевой фигурами на листе.
У меня на листе есть главная фигура "Прямоугольник 1". А также есть целевая фигура "Овал 4". Пространство между ними перегорожено другими фигурами.
У меня вопрос - как найти точки (или адреса ячеек) - которые соответствуют кратчайшему пути между главной и целевой фигурами на листе ?
Я примерно показал в файле - где примерно будут координаты узлов, в которых должно быть изменение поворота пути. Адреса этих найденных ячеек - нужно как-то выписать в строку 5 (AK5:BB5).
(У меня есть файл с примером - как это приблизительно делается, но в примере - просто рисуется линия, а мне нужно - только определить ключевые координаты )