ВасилисаЛукьянчикова
Дата: Воскресенье, 13.05.2018, 13:39 |
Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Доброго всем дня. Подскажите как по данной таблице - макросом построить вектора ? (Тут хитрость в том, что построение задается длинной и углом, а не координатами.)
Доброго всем дня. Подскажите как по данной таблице - макросом построить вектора ? (Тут хитрость в том, что построение задается длинной и углом, а не координатами.) ВасилисаЛукьянчикова
Ответить
Сообщение Доброго всем дня. Подскажите как по данной таблице - макросом построить вектора ? (Тут хитрость в том, что построение задается длинной и углом, а не координатами.) Автор - ВасилисаЛукьянчикова Дата добавления - 13.05.2018 в 13:39
RAN
Дата: Воскресенье, 13.05.2018, 16:33 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Точно так же, как и не макросом. Т.е. никак. Для того чтобы провести прямую (или, если угодно, отрезок) нужно 2 точки. А у вас даже одной нет.
Точно так же, как и не макросом. Т.е. никак. Для того чтобы провести прямую (или, если угодно, отрезок) нужно 2 точки. А у вас даже одной нет.RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Точно так же, как и не макросом. Т.е. никак. Для того чтобы провести прямую (или, если угодно, отрезок) нужно 2 точки. А у вас даже одной нет.Автор - RAN Дата добавления - 13.05.2018 в 16:33
ВасилисаЛукьянчикова
Дата: Понедельник, 14.05.2018, 16:43 |
Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
RAN, построение ведется от начала первого вектора. Координаты начала этого (самого первого вектора) могут быть любыми - например (100;150)
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
Ответить
ВасилисаЛукьянчикова
Дата: Вторник, 15.05.2018, 15:04 |
Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
anvg, ну не готовый макрос конечно. Но хотя бы один вектор нарисовать, чтобы понять как сделать остальные.
anvg, ну не готовый макрос конечно. Но хотя бы один вектор нарисовать, чтобы понять как сделать остальные. ВасилисаЛукьянчикова
Ответить
Сообщение anvg, ну не готовый макрос конечно. Но хотя бы один вектор нарисовать, чтобы понять как сделать остальные. Автор - ВасилисаЛукьянчикова Дата добавления - 15.05.2018 в 15:04
sboy
Дата: Вторник, 15.05.2018, 15:11 |
Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
ну не готовый макрос конечно
полуготовый, т.к. табличку переделал (лень было по исходной) и радианы на листе вычислял. предположил, что длина в мм. [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]
ну не готовый макрос конечно
полуготовый, т.к. табличку переделал (лень было по исходной) и радианы на листе вычислял. предположил, что длина в мм. [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
Яндекс: 410016850021169
Ответить
Сообщение ну не готовый макрос конечно
полуготовый, т.к. табличку переделал (лень было по исходной) и радианы на листе вычислял. предположил, что длина в мм. [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