Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Построение векторов по таблице - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Построение векторов по таблице (Макросы/Sub)
Построение векторов по таблице
ВасилисаЛукьянчикова Дата: Воскресенье, 13.05.2018, 13:39 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброго всем дня.

Подскажите как по данной таблице - макросом построить вектора ?
(Тут хитрость в том, что построение задается длинной и углом, а не координатами.)
К сообщению приложен файл: 065437.xls (49.0 Kb)
 
Ответить
СообщениеДоброго всем дня.

Подскажите как по данной таблице - макросом построить вектора ?
(Тут хитрость в том, что построение задается длинной и углом, а не координатами.)

Автор - ВасилисаЛукьянчикова
Дата добавления - 13.05.2018 в 13:39
RAN Дата: Воскресенье, 13.05.2018, 16:33 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата ВасилисаЛукьянчикова, 13.05.2018 в 13:39, в сообщении № 1 ()
как ... - макросом

Точно так же, как и не макросом. Т.е. никак.
Для того чтобы провести прямую (или, если угодно, отрезок) нужно 2 точки. А у вас даже одной нет.


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата ВасилисаЛукьянчикова, 13.05.2018 в 13:39, в сообщении № 1 ()
как ... - макросом

Точно так же, как и не макросом. Т.е. никак.
Для того чтобы провести прямую (или, если угодно, отрезок) нужно 2 точки. А у вас даже одной нет.

Автор - RAN
Дата добавления - 13.05.2018 в 16:33
ВасилисаЛукьянчикова Дата: Понедельник, 14.05.2018, 16:43 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
RAN, построение ведется от начала первого вектора.
Координаты начала этого (самого первого вектора) могут быть любыми - например (100;150)


Сообщение отредактировал ВасилисаЛукьянчикова - Понедельник, 14.05.2018, 16:44
 
Ответить
СообщениеRAN, построение ведется от начала первого вектора.
Координаты начала этого (самого первого вектора) могут быть любыми - например (100;150)

Автор - ВасилисаЛукьянчикова
Дата добавления - 14.05.2018 в 16:43
anvg Дата: Вторник, 15.05.2018, 14:05 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Добре время суток
Цитата ВасилисаЛукьянчикова, 13.05.2018 в 13:39, в сообщении № 1 ()
Тут хитрость в том, что построение задается длинной и углом

по известным полярным координатам точки ее прямоугольные координаты вычисляются из формул В чём хитрость, в забвении школьной геометрии?

Цитата ВасилисаЛукьянчикова, 14.05.2018 в 16:43, в сообщении № 3 ()
Координаты начала этого (самого первого вектора) могут быть любыми

Так в чём собственно проблема? Нужен готовый макрос?
 
Ответить
СообщениеДобре время суток
Цитата ВасилисаЛукьянчикова, 13.05.2018 в 13:39, в сообщении № 1 ()
Тут хитрость в том, что построение задается длинной и углом

по известным полярным координатам точки ее прямоугольные координаты вычисляются из формул В чём хитрость, в забвении школьной геометрии?

Цитата ВасилисаЛукьянчикова, 14.05.2018 в 16:43, в сообщении № 3 ()
Координаты начала этого (самого первого вектора) могут быть любыми

Так в чём собственно проблема? Нужен готовый макрос?

Автор - anvg
Дата добавления - 15.05.2018 в 14:05
ВасилисаЛукьянчикова Дата: Вторник, 15.05.2018, 15:04 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
anvg, ну не готовый макрос конечно.
Но хотя бы один вектор нарисовать, чтобы понять как сделать остальные.
 
Ответить
Сообщениеanvg, ну не готовый макрос конечно.
Но хотя бы один вектор нарисовать, чтобы понять как сделать остальные.

Автор - ВасилисаЛукьянчикова
Дата добавления - 15.05.2018 в 15:04
sboy Дата: Вторник, 15.05.2018, 15:11 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Цитата ВасилисаЛукьянчикова, 15.05.2018 в 15:04, в сообщении № 5 ()
ну не готовый макрос конечно

полуготовый, т.к. табличку переделал (лень было по исходной) и радианы на листе вычислял. предположил, что длина в мм.
[vba]
Код
Sub strelki()
    x1 = 250
    y1 = 150
    For r = 4 To 12
        x = Cos(Cells(r, 6)) * (72 / 25.4 * Cells(r, 4))
        y = Sin(Cells(r, 6)) * (72 / 25.4 * Cells(r, 4))
        Set sh1 = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, x1, y1, x1 + x, y1 + y)
        x1 = x1 + x
        y1 = y1 + y
    Next
End Sub
[/vba]
К сообщению приложен файл: 0186405.xls (61.5 Kb)


Яндекс: 410016850021169
 
Ответить
Сообщение
Цитата ВасилисаЛукьянчикова, 15.05.2018 в 15:04, в сообщении № 5 ()
ну не готовый макрос конечно

полуготовый, т.к. табличку переделал (лень было по исходной) и радианы на листе вычислял. предположил, что длина в мм.
[vba]
Код
Sub strelki()
    x1 = 250
    y1 = 150
    For r = 4 To 12
        x = Cos(Cells(r, 6)) * (72 / 25.4 * Cells(r, 4))
        y = Sin(Cells(r, 6)) * (72 / 25.4 * Cells(r, 4))
        Set sh1 = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, x1, y1, x1 + x, y1 + y)
        x1 = x1 + x
        y1 = y1 + y
    Next
End Sub
[/vba]

Автор - sboy
Дата добавления - 15.05.2018 в 15:11
ВасилисаЛукьянчикова Дата: Вторник, 15.05.2018, 16:22 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
sboy, понятно.
Буду разбираться.

Спасибо за ответ.
 
Ответить
Сообщениеsboy, понятно.
Буду разбираться.

Спасибо за ответ.

Автор - ВасилисаЛукьянчикова
Дата добавления - 15.05.2018 в 16:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Построение векторов по таблице (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!