[Leizar]

Очень прошу помочь со следующими вопросамии в VBA, связаными со следующими задачами:
1)Два отрезка на плоскости заданы координатами своих концов. Определить, имеют ли эти отрезки общие точки.
Примечание:Необходимо рассмотреть различные случаи взаимной ориентации отрезков: на одной прямой, на паралельных прямых или пересекающихся.

2)в массиве T(k) найтипервый и последний нулевые элементы.
3) От каждого из заданых m чисел x1, x2,…,xm отнять их среднее арифметическое: xi = xi – xср ,
xср = 1/m∑_(i=1)^m xi, i=1,2,…,m.
И что бы результаты были не месте исходных данных!

[Дрюха]

Подниму данную тему (да будут милостливы модераторы), дабы не знаю, как в случае создания новой обозвать ее.
Господа, который час уже ломаю голову над созданием макроса в Excel (знания нулевые) Необходимо вот что:
допустим, есть три числа a,b,c (b=const,c=const). Как мне сделать макрос, чтобы он подбирал значение a, чтобы удовлетворялось условие a*b=c. полагаю ,что это должен быть какой-то цикл (идет подбор числа a с каким-то определенным шагом, типа: если ai*b<c, то aj=ai+delta, где дельта -определенный шаг и далее по кругу. Ну и все почти что то же самое, если значение ai*b>c), но все, что пытался сделать, насмарку.
Буду чрезвычайно рад помощи!!
Заранее спасибо

[ETCartman]

a=c/b

[Олег (jr.)]

Сообщение от Дрюха Подниму данную тему (да будут милостливы модераторы), дабы не знаю, как в случае создания новой обозвать ее. Господа, который час уже ломаю голову над созданием макроса в Excel (знания нулевые) Необходимо вот что: допустим, есть три числа a,b,c (b=const,c=const). Как мне сделать макрос, чтобы он подбирал значение a, чтобы удовлетворялось условие a*b=c. полагаю ,что это должен быть какой-то цикл (идет подбор числа a с каким-то определенным шагом, типа: если ai*b<c, то aj=ai+delta, где дельта -определенный шаг и далее по кругу. Ну и все почти что то же самое, если значение ai*b>c), но все, что пытался сделать, насмарку. Буду чрезвычайно рад помощи!! Заранее спасибо

Пробуй

Код:

[Выделить все]

Option Explicit

Const b As Double = 1.2345
Const c As Double = 5.4321
Sub testiteration()
Dim a As Double
Dim condition As Boolean

Dim step As Double
step = 0.000125
Dim start As Double
start = 0.1
Dim epsilon As Double
epsilon = 0.0001

Dim i As Long
i = 0
a = start
Do
condition = ((a * b) < (c - epsilon))
a = a + step

If condition = False Then
Exit Do
End If
Loop Until condition = False
With ThisWorkbook.ActiveSheet
.Range("A1:B7").Clear
.Range("A1:A7").NumberFormat = "@"
.Range("B2:B7").NumberFormat = "0.0000"
.Range("A1") = "Исходные данные"
.Range("A2") = "B="
.Range("A3") = "C="
.Range("A4") = "Точность="
.Range("A5") = "Приращение="
.Range("A6") = "Математически А= C/B="
.Range("A7") = "Расчетное А="
.Range("B2") = b
.Range("B3") = c
.Range("B4") = step
.Range("B5") = epsilon
.Range("B6") = c / b
.Range("B7") = a
.Range("A:B").Columns.AutoFit
.Range("B7").Select

End With
MsgBox "Done"
End Sub

Sub numb()
MsgBox ThisWorkbook.ActiveSheet.Range("B1").NumberFormat
End Sub

[Дрюха]

Сообщение от ETCartman a=c/b

Я знал, что кто-то это напишет Не смог я правильно разьяснить смысл проблемы в пол-шестого утра) а так обязательно порпобую Ваш вариант, уж больно он привлекателен!!!

Сообщение от Олег (jr.) Пробуй

Немного уточню (по крайней мере, постараюсь). Есть в реальной задаче число a (ячейка A2), которое входит в выражение X(там действительно будет выражение, просто в данный момент эта ячейка численно равна ячейке A2), находящееся в ячейке F5. Так вот, нужно подобрать перебором такое значение A2, чтобы произведение выражения X (ячейка F5) на число b (ячейка G5) было равно числу C (ячейка H5)

Пробую редактировать Ваш код под себя, но не выходит. прикладываю файл, гляньте и ,по возможности, дайте рецензию, что я не сделал не так (ибо макрос не хочет считаться).

[Олег (jr.)]

Сообщение от Дрюха да я походу вообще не выспался

Когда выспишься объясни все заново, поскольку:
в ячейке А1 нет вообще никакого числа так же как нет никакой фрмулы в ячейке В1, а гадать - где что я не буду

[Дрюха]

Вроде отредактировал

[BetoN]

2Дрюха
Excel 2007, Данные - Работа с данными - Анализ "что-если" - Подбор параметра

[Олег (jr.)]

Сообщение от Дрюха Вроде отредактировал

Завтра постараюсь

[Дрюха]

Надеюсь на Вашу помощь!
BetoN, нужен именно макрос. но все равно спасибо

[Олег (jr.)]

Попробуй еще раз

Код:

[Выделить все]

Option Explicit


Sub testiteration()
Application.Volatile True
Dim a As Double
Dim b As Double
Dim c As Double
Dim condition As Boolean

b = CDbl(Worksheets("1").Range("g5"))
c = Worksheets("1").Range("h5")
Dim step As Double
step = 0.00000001
Dim start As Double
start = 0.00000001
Dim epsilon As Double
epsilon = 0.00000001

Dim i As Long
i = 0
a = start
Do
a = a + step
condition = ((a * b) < (c - epsilon))
If condition = False Then
Exit Do
End If
Loop Until condition = False
With Sheets("1")
.Range("a8") = a '<--поменяй адрес ячейки
End With


''/*======= Только для проверки(удалить строчки)
With Sheets("1")

.Range("a9") = .[a8] * .[g5]
.Range("a10") = .[a9] < .[h5] + epsilon
End With ==========='/*

MsgBox "Done"
End Sub

[Дрюха]

Все отлично. Спасибо , Олег (jr.), буду теперь использовать ваш макрос. ибо это только вершина айсберга

[Cfytrr]

Знающие люди помогите написать макрос
Есть исходные данные A, B и C есть решение D
как сделать так, что бы решение D было найдено в каждой из строк исходных данных

з.ы. В задаче, решение D занимает два листа сплошных формул.

[Кулик Алексей aka kpblc]

Вариантов два. Первый - писать все внутри ячейки (т.е. =бла-бла-бла). Вариант второй: написать пользовательскую функцию, принимающую в качестве параметра несколько ячеек и вычисления выполнять уже в ней. По скорости быстродействия второй (особенно для длинных вычислений) практически гарантированно проиграет.
Для представленной формулы можешь посмотреть такой файлец...

[Cfytrr]

Сообщение от Кулик Алексей aka kpblc написать пользовательскую функцию, принимающую в качестве параметра несколько ячеек и вычисления выполнять уже в ней

Я правильно понимаю, что в одной ячейке придется описать все действия с исходными данными (полный алгоритм решения)? Если то так то такой вариант не подойдет, так как в реальном расчете решение D сложнее чем в примере и с A, B и С производятся не только арифметические , но и логические действия

[KronSerg]

Логические действия тоже возможно прописать в формуле, но на мой взгляд, проще сделать по варианту два из №14
есть ещё третий вариант, расписать в дополнительных колонках промежуточные результаты вычислений зависящие друг от друга чтобы не городить очень длинную формулу в одной ячейке, потом промежуточные результаты можно просто скрыть.

[Cfytrr]

Кулик Алексей aka kpblc, KronSerg, Спасибо, буду пробовать.

[Кулик Алексей aka kpblc]

При очень (подчеркиваю - очень!) больших вычислениях фактически выбор между пользовательской формулой и #16. Основной вопрос в скорости быстродействия: как правило, пользовательская формула работает чрезвычайно медленно, и, если есть возможность, от нее надо отказаться. То есть вычисления производить в отдельных ячейках (кстати, иногда все вычисления "прячутся" на отдельном скрытом листе, с именованием ячеек и т.д. )

[Brain Murder]

Весь интернет обшарил не могу найти как привязать элемент ActiveX к ячейке. Мне нужно чтобы скрытый комбобокс появлялся при нажатии на ячейку принадлежащую определенному диапазону. Через "именованные диапазоны" способ меня не устраивает, мне нужен быстрый поиск элемента по первым буквам. Как запустить что-либо по нажатию на ячейку понятно. Классика...

Код:

[Выделить все]

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("b2:b1000")) Is Nothing Then
и пошло поехало...

но возникают вопросы:
1. Как указать диапазон всего столбца? Не Range("b2:b1000") а от b2 и пока таблица не кончится.
2. Как координаты комбобокса задать чтоб он точно рядом с поюзаной ячейкой появлялся?
И кстати, чем элементы ActiveX отличаются от Элементов управления?

[T-Yoke]

Сообщение от Brain Murder Весь интернет обшарил не могу найти как привязать элемент ActiveX к ячейке. Мне нужно чтобы скрытый комбобокс появлялся при нажатии на ячейку принадлежащую определенному диапазону....

Посмотри здесь думаю должно устроить. Описаны четыре варианта.