Мелочи вызывают затруднение

[EducatedFool]

люди кто-нибудь может дать совет?

Легко.

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

[Freddy19]

Сообщение от EducatedFool

Легко.

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

Интересно конечно же, но это как бы на благо института. Таких программ еще десяток есть, они закрепленны за определенной спец аудиторией, было бы замечательно их зарегистрировать.

[Freddy19]

Здрасти всем. А можно ли чтобы эксел показывал координаты точки пересечения 2-х графиков? и еще при задании одной координаты он может показывать вторую?

[Freddy19]

Dim a As Integer

For a = 0 To 400 Step 0.1
If (3.14 * Range("K15") * Range("F31")) / (Range("J28") * (Ln(a / Range("K13").Value) - 1)) = a Then
[F32] = a
End If
Next a

Как задать логарифм натуральный в коде?

[аналитика]

WorksheetFunction.Ln(...

[Freddy19]

Private Sub CommandButton1_Click()

Dim a As Integer

For a = 0 To 400 Step 0.1
If (3.14 * Range("K15") * Range("F31")) / (Range("J28") * (WorksheetFunction.Ln(a / Range("K13")) - 1)) = a Then
[F32] = a
End If
Next a

End Sub

Невозможно получить значение. Что не так?

[аналитика]

ln(0) = -∞

[Freddy19]

Private Sub CommandButton1_Click()
Dim a As Integer
For a = 1 To 400 Step 1
If (3.14 * Range("K15") * Range("F31")) / (Range("J28") * (WorksheetFunction.Ln(a / Range("K13")) - 1)) = a Then
[F32] = a
Else
[F32] = ""
End If
Next a
End Sub

Получилось! Спасибо! Только вот бы еще формулу округлить до целого.
Долгая блин процедура. Циклы так всегда?

[Freddy19]

Private Sub CommandButton1_Click()
Dim a As Integer
For a = 1 To 400 Step 1
If Round((3.14 * Range("K15") * Range("F31")) / (Range("J28") * (WorksheetFunction.Ln(a / Range("K13")) - 1))) = a Then
[F32] = a
End If
Next a
End Sub

Все отлично. А долго это изза очистки ячейки походу.

[EducatedFool]

С логарифмом можно обойтись средствами VBA - если немного почитать встренную справку:

Log Function

Returns a Double specifying the natural logarithm of a number.


You can calculate base-n logarithms for any number x by dividing the natural logarithm of x by the natural logarithm of n as follows:

Logn(x) = Log(x) / Log(n)

Вот что у меня получилось (код выполняется за доли секунды)

Private Sub CommandButton1_Click()
    K15 = [K15]: F31 = [F31]: J28 = [J28]: K13 = [K13]    ' считываем значения ячеек только один раз
    Dim a As Integer: Const PI = 3.1415926
    For a = 1 To 400
        If Round((PI * K15 * F31) / (J28 * (Log(a / K13) - 1))) = a Then
            f32 = a    ' пишем в переменную, а не в ячейку
        End If
    Next a
    [f32] = f32
End Sub