Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.12.2022, 23:10   #11
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

Вижу в теме другого форума помогают заумно

Поэтому пусть будет здесь макрос
черпающий данные из ячеек

Код:
Sub DLINA()
Dim x1, y1, x2, y2 As Long
x1 = Range("A1").Value
y1 = Range("B1").Value
x2 = Range("C1").Value
y2 = Range("D1").Value
L = Sqr((x2-x1)^2+(y2-y1)^2)
a$ = Str$(x1) + "," + Str$(y1) + "," + Str$(x2) + "," + Str$(y2) + ", L=" + Str$(L)
MsgBox (a$)
End Sub
Причём как заполнять переменные из ячеек
пишут в любой методичке по VBA

Очевидно заполнив данными крайние верхние левые ячейки
классическими данными 0 4 3 0 ответ будет 5
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую
сфинкс вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Очень срочно нужа помощь! Maria_Kim Помощь студентам 0 05.12.2022 22:34
Очень нужна помощь с написанием программы... срочно(буду благодарен за помощь) 5Paladin5 Помощь студентам 3 02.07.2009 09:12
Очень срочно критически мало времени Пожалуйста, очень надеюсь на вашу помощь. Задачки на Паскале VADOS2009-1 Помощь студентам 0 03.06.2009 00:00
Нужна помощь в Паскале. Очень-очень срочно. !!! Помощь студентам 2 09.02.2007 15:12