Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Выделение диапазона для поиска информации поочерёдно Приветствую! Прошу помочь с выбором верного решения для следующей задачи. Есть данные в виде множества столбцов одной строки, условно - это текст из pdf-файла, полностью скопированный в одну ячейку и разбитый по столбцам - разделитель пробел. Единственным однообразием таких данных является уникальная сквозная нумерация разделов по которым необходимо осуществлять поиск нужной информации. То... https://www.cyberforum.ru/ vba/ thread3078206.html Импорт определенной части данных из текстового файла в Excel VBA
Добрый день, Прошу помощи в создании макроса под импорт данных из текстового файла в Exel, переносимый текст должен начинаться с APM(остальное до APM и после последних значений строки не требуется к обработке), далее данные делятся запятыми по определенным столбцам, необходимо, чтобы данный макрос работал с файлом message_1.txt различного содержания. Строка APM имеет определенную...
VBA Удалить в слове все буквы кроме первой и последней Господа, любой текст большого количества, удалить в слове все буквы кроме первой и последней. MS Word Спасибо, заранее. Sub ипетрова() Dim word As Object Dim wText As String Dim bkv() As String Dim i As Long Dim n As Long n = ActiveDocument.Words.count https://www.cyberforum.ru/ vba/ thread3077936.html VBA Как написать правильно динамически изменяемую форму userform в Excel? https://www.cyberforum.ru/ vba/ thread3077691.html
Пишу сейчас программу для Excel для получения выборки определенных данных. Т.е. вначале запускается userform с кучей меню (ComboBox), в которой пользователь выбирает определенные пункты меню, а в конце на основе выбранных пунктов меню генерируется определенный список позиций. Было задумано так, что в начале все меню (ComboBox) скрыты (ComboBox2.Visible = False), кроме первого. После первого...
Табулирование функции VBA
Доброго времени суток! Помогите, пожалуйста, закончить код. Задача звучит следующим образом: создать макрос для автоматического табулирования значений некоторой функции и построить диаграмму по полученным в результате табулирования значениям аргумента и функции. Файл с кодом, который я набрала, и сам код прилагаю. Не получается только вывести значения функций, x выводится спокойно. Private Sub...
VBA Преобразование данных и удаление лишних бит https://www.cyberforum.ru/ vba/ thread3077261.html
Здравствуйте! Имеется задача убрать из числа лишнюю информацию, а именно старшие биты. В других языках это выполняется достаточно просто, можно записать число в меньший по разрядности тип, например: var i:integer;b:byte; begin i:=12345; b:=i; writeln(b); end. данный код выведет ответ 57.
VBA Меню Строки состояния https://www.cyberforum.ru/ vba/ thread3077227.html
Уважаемые форумчане, подскажите пожалуйста способ как отключить контекстное меню, которое выскакивает при правом клике по Строке состояния (самая нижняя область окна). Защита листа и блокировка правого клика на листе не помогают.
Windows(FileName).Activate Перестал правильно работать без указания расширения ".xls" VBA
Я не программист, но приходится иногда «с книжкой на коленках». В 1990-м году чуть-чуть ознакомительно изучал возможности Turbo Pascal 5.0 для персональных ЭВМ. Вот уж не думал, что после 50-ти лет придется ещё и VBA изучать. Но, как говориться: «Век живи - век учись...» и «Дорогу осилит идущий». После того как посторонний человек открыл со своей флешки Excel файл экспортированный какой-то...
VBA Проверка заполнения поля https://www.cyberforum.ru/ vba/ thread3076499.html
Добрый день, уважаемые форумчане! Подскажите пожалуйста, как написать условие, если Поле не пусто, то Поле не может быть пустым. Пишу сейчас так: If Not IsNull(Me.) Then Call MsgBox("Поле не может быть пустым!") Cancel = True End If Проверка осуществляется, но когда оператор вводит данные в поле , переход на новую строку всё равно не идёт.
VBA RollOverEffect на защищённом листе Уважаемые форумчане, наверняка вы знаете про RollOverEffect. Замечательная штука, но работает только на НЕзащищённом листе. Как сделать, чтобы работал на защищённом листе (без пароля для простоты)? Я прикрепляю файл с примером, в котором помимо трёх ячеек с меняющимся форматированием, есть ещё одна фигура с таким же эффектом. Нужно, чтобы в итоге RollOverEffect работал на защищённом листе,... https://www.cyberforum.ru/ vba/ thread3076394.html
VBA Нужна ли точная ссылка на рабочую книгу при использовании именнованого диапазона в Userform?
У меня есть файл Excel, в котором есть именованный диапазон - verr, который я использую как хранилище списка, который вызываю через ComboBox в Userform. Есть вопрос - нужно ли указывать точное название рабочей книги. Не будет ли проблем, если вдруг будет открыто несколько других файлов с другими именнованными диапазонами в них? Private Sub UserForm_Initialize() Dim wb As Workbook: Set...
VBA Объединение таблиц с разных листов на одном листе Помогите, пожалуйста, разобраться с задачей. Мне необходимо объединить таблицы с разных листов (предполагается, что они будут добавляться в дальнейшем) в один итоговый лист «Свод» так, чтобы шапка таблицы была одна,
Эксперт по математике/физике
10665 / 7071 / 3849
Регистрация: 14.01.2014
Сообщений: 16,186
10.02.2023, 19:01 0

Определить принадлежит ли точка N(x, y, z) сфере с центром в точке Z(a, b, c) и радиусу r - VBA - Ответ 16746368

10.02.2023, 19:01. Показов 916. Ответов 9
Метки (Все метки)

Ответ

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Option Base 1
Option Explicit
Function Point(M As Variant, Z As Variant, R As Double) As String
Dim n, i As Integer, S As Double, Str As String
n = Z.Rows.Count: S = 0
For i = 1 To 3
S = S + (M(i) - Z(i)) ^ 2
Next i
If S <= R ^ 2 Then Str = "Внутри сферы" Else Str = "Вне сферы"
Point = Str
End Function


Вернуться к обсуждению:
Определить принадлежит ли точка N(x, y, z) сфере с центром в точке Z(a, b, c) и радиусу r VBA
Миниатюры
Определить принадлежит ли точка N(x, y, z) сфере с центром в точке Z(a, b, c) и радиусу r  
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.02.2023, 19:01
Готовые ответы и решения:

Определить принадлежит ли точка N(x, y, z) сфере с центром в точке Z(a, b, c) и радиусу r
Очень срочно надо

Определить, принадлежит ли точка N сфере с центром M и радиусом R
Задача 1.Определить принадлежит ли точка N с координатами(x y z) сфере c с центроим M(a d c) и...

Определить, принадлежит ли точка с координатами (х, у) кругу с центром в точке 0 и радиусом 1
Помогите исправить ошибки в программе на фортран! Компилятора нет, а от руки писать нормально не...

А4. Определить, принадлежит ли точка с координатами (x_1,y_1) кругу радиуса r с центром в точке (a,b)
А4. Определить, принадлежит ли точка с координатами (x_1,y_1) кругу радиуса r с центром в точке...

Определить, принадлежит ли точка следующей области: множество точек верхней части круга радиуса 3 и центром точке (3;0)
2.по введенному номеру компьютера вывести фамилию человека, который за ним работает.

9
10.02.2023, 19:01
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.02.2023, 19:01
Помогаю со студенческими работами здесь

Определить, принадлежит ли точка следующей области: множество точек верхней части круга радиуса 3 и центром точке (3;0)
...

Дана точка М(x, y). Присвоить z = 1, если точка принадлежит окружности с радиусом R и центром в точке (a, b) и z = 0 в противном случае.
Дана точка М(x, y). Присвоить z = 1, если точка принадлежит окружности с радиусом R и центром в...

Принадлежит ли точка М(х, у) кругу с центром в точке А(a, b)
такая задача. Определить принадлежит ли точка М(х, у) кругу с центром в точке А(a, b) и радиусом...

Принадлежит ли точка N(x,y,z) шару с центром в точке Z
Доброго времени суток. В универе начали проходить программирование (до этого ни разу в жизни не...

Выяснить принадлежит ли точка с координатами (x1,y1), кругу радиуса r с центром в точке (x,y)
Выяснить принадлежит ли точка с координатами (x1,y1), кругу радиуса r с центром в точке (x,y),...

Дана точка М(Х,У). Присвоить Z=1 если т. принадлежит окружности с радиусом Р и центром в точке (а,б)
Составьте блок-схему пользуясь условным оператором или оператором выбора. Дана точка М(Х,У)....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru