Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 03.04.2015
Сообщений: 45

Создание макроса

08.04.2016, 15:51. Показов 2644. Ответов 42
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток господа.
Помогите решить проблему.
Есть информация в текстовом виде такого рода:
Begin Actor Class=StaticMeshActor
Begin Object Name="StaticMeshComponent0"
StaticMesh=StaticMesh'/Game/StatichMeshes/v_obj_s/O_Fence02-1'
RelativeLocation=(X=-97193.429688,Y=258821.125000,Z=-3612.254883)
RelativeRotation=(Pitch=1536,Yaw=-4624,Roll=1584)
End Actor
Таких строк в в файле может быть около 100 000

Как заставить эксейл считать и заменять значения Pitch/Yaw/Roll автоматически считать по формуле значение после знака =*на 360 и поделить на 65536, чтобы полученное значение автоматически поставилось вместо циферок на значение, что на примере выше.

Чтобы получилось такое:
Pitch=1536*360/65536=8,4375
Yaw=-4624*360/65536=-25,400390625
Roll=1584*360/65536=8,701171875
Чтобы в итоге был такой результат:
Begin Actor Class=StaticMeshActor
Begin Object Name="StaticMeshComponent0"
StaticMesh=StaticMesh'/Game/StatichMeshes/v_obj_s/O_Fence02-1'
RelativeLocation=(X=-97193.429688,Y=258821.125000,Z=-3612.254883)
RelativeRotation=(Pitch=8,4375,Yaw=-25,400390625,Roll=8,701171875)
End Actor
И если есть возможность, чтобы заместо запятой были точки RelativeRotation=(Pitch=8.4375,Yaw=-25.400390625,Roll=8.701171875)

А так же чтобы значение после точки не превышало шести значное число.

Загрузил файл в формате эксейля и на всякий случай в текстовом блоктоне.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.04.2016, 15:51
Ответы с готовыми решениями:

Создание макроса
Здравствуйте! Помогите пожалуйста. Создаю макрос , а при выполнении макроса выдает: запрашиваемый номер семейства не существует. Макрос...

Создание макроса
Помогите. Нужно чтобы при нажатии кнопки "Узнать результат" он переходил на страницу с результатами и заполнял соответствующие ячейки из...

Создание макроса new!
Нужно с помощью макроса отсортировать данные так, чтобы ФИО не повторялось, а код (столбец:код) записывался в одну строку разделяясь через...

42
6998 / 2896 / 555
Регистрация: 19.10.2012
Сообщений: 8,804
11.04.2016, 22:18
Студворк — интернет-сервис помощи студентам
Ну я взял уже один готоый код (нашёл что больше подходит), его подправил под задачу - поэтому там есть некоторая неоптимальность, может что-то лишнее (например дописывать в файл тут ничего не нужно, они создаются всегда новые, поэтому вместо ForAppending нужно бы использовать значение ForWriting = 2, но что было... )
Если писать с нуля - ну наверное минимальной оплаты за час работы бы хватило.
А Вы засеките время и попробуйте набрать столько текста вручную в редакторе (только без ошибок!). И умножьте на 2 - нужно ведь ещё и подумать
0
0 / 0 / 0
Регистрация: 03.04.2015
Сообщений: 45
11.04.2016, 22:33  [ТС]
А сколько стоит 1 час вашей работы?
0
6998 / 2896 / 555
Регистрация: 19.10.2012
Сообщений: 8,804
11.04.2016, 23:03
Да не важно в данном случае...
А Ваш?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
11.04.2016, 23:03

Создание макроса
Нужен макрос, который будет из определенной папки переименовывать файл excel удалением сначала 16 символов до ключевого слова, а потом 5...

Создание макроса
Добрый вечер! Такое задание. Создать макрос, изменяющий шрифт выделенного текста на Arial 16, курсив, цвет - зеленый, назначьте для...

Создание макроса
Доброго времени суток! Помогите автоматизировать процесс! Есть две книги : книга1.xlsx и книга2.xlsx Нужен макрос который заполнит...

Создание макроса автозаполнения
Всем привет! Подскажите, пожалуйста, как сделать проще, если данная задача не решаема. Я совсем замучилась уже. Я в этом деле новичок ...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
43
Ответ Создать тему
Новые блоги и статьи
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм
anaschu 30.08.2026
Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы.
russiannick 30.08.2026
Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru