Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/заполнение и определение количества элементов в динамическом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » заполнение и определение количества элементов в динамическом (Макросы/Sub)
заполнение и определение количества элементов в динамическом
andreyboluk Дата: Среда, 24.11.2021, 17:50 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

добрый вечер всем))
есть некоторый код в котором проверяется верность функции, то есть нужно проверить принадлежит ли точки функции, если так то нужно ординаты функции записать в отдельный массив и определить их количество
как это воплотить?
я так понял, что нужно использовать динамический массив, но как его заполнить элементами и сосчитать их количество?
вот сам код:
[vba]
Код
Option Base 1
Private Sub pr72()
B = -2.1
A = 1.34
Dim x(6), Y(6), c() As Integer, i, xx As Single

For i = 1 To 6
x(i) = Val(InputBox(" Введіть число x"))
Y(i) = Val(InputBox(" Введіть число y"))
Debug.Print "x ="; x(i), "y = "; Y(i)
Next i

For i = 1 To 6
xx = A * x(i) + B

If xx = Y(i) Then
Debug.Print "y ="; Y(i)
End If
'
Next i
[/vba]


Сообщение отредактировал Serge_007 - Среда, 24.11.2021, 17:57
 
Ответить
Сообщениедобрый вечер всем))
есть некоторый код в котором проверяется верность функции, то есть нужно проверить принадлежит ли точки функции, если так то нужно ординаты функции записать в отдельный массив и определить их количество
как это воплотить?
я так понял, что нужно использовать динамический массив, но как его заполнить элементами и сосчитать их количество?
вот сам код:
[vba]
Код
Option Base 1
Private Sub pr72()
B = -2.1
A = 1.34
Dim x(6), Y(6), c() As Integer, i, xx As Single

For i = 1 To 6
x(i) = Val(InputBox(" Введіть число x"))
Y(i) = Val(InputBox(" Введіть число y"))
Debug.Print "x ="; x(i), "y = "; Y(i)
Next i

For i = 1 To 6
xx = A * x(i) + B

If xx = Y(i) Then
Debug.Print "y ="; Y(i)
End If
'
Next i
[/vba]

Автор - andreyboluk
Дата добавления - 24.11.2021 в 17:50
jun Дата: Четверг, 25.11.2021, 11:30 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 7 ±
Замечаний: 0% ±

Проверьте:

[vba]
Код
Sub Example()
Dim A, B
Dim x, y ' координаты
Dim i
Dim c() As Integer ' массив с координатами
Dim xx As Single ' уравнение
    B = -3
    A = 2
ReDim c(1 To 3, 1 To 2) '- можно сразу объявить размерность массива

For i = 1 To 3
    x = Val(InputBox(" Введіть число x"))
    y = Val(InputBox(" Введіть число y"))
    c(i, 1) = x
    c(i, 2) = y
Next i

For i = LBound(c) To UBound(c)
    xx = A * c(i, 1) + B
    If xx = c(i, 2) Then
        Debug.Print "Точка с координатами: " & "(" & c(i, 1) & ";" & c(i, 2) & ")" & _
        " принадлежит данной функции"
    End If
Next i
End Sub

[/vba]

Тестировались координаты:
3;3
7;11
5;2

Про добавление в динамический двумерный массив:
https://www.planetaexcel.ru/forum....1134476


Сообщение отредактировал jun - Четверг, 25.11.2021, 14:45
 
Ответить
СообщениеПроверьте:

[vba]
Код
Sub Example()
Dim A, B
Dim x, y ' координаты
Dim i
Dim c() As Integer ' массив с координатами
Dim xx As Single ' уравнение
    B = -3
    A = 2
ReDim c(1 To 3, 1 To 2) '- можно сразу объявить размерность массива

For i = 1 To 3
    x = Val(InputBox(" Введіть число x"))
    y = Val(InputBox(" Введіть число y"))
    c(i, 1) = x
    c(i, 2) = y
Next i

For i = LBound(c) To UBound(c)
    xx = A * c(i, 1) + B
    If xx = c(i, 2) Then
        Debug.Print "Точка с координатами: " & "(" & c(i, 1) & ";" & c(i, 2) & ")" & _
        " принадлежит данной функции"
    End If
Next i
End Sub

[/vba]

Тестировались координаты:
3;3
7;11
5;2

Про добавление в динамический двумерный массив:
https://www.planetaexcel.ru/forum....1134476

Автор - jun
Дата добавления - 25.11.2021 в 11:30
andreyboluk Дата: Пятница, 26.11.2021, 22:13 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

jun, спасибо большое
 
Ответить
Сообщениеjun, спасибо большое

Автор - andreyboluk
Дата добавления - 26.11.2021 в 22:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » заполнение и определение количества элементов в динамическом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!