Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Bebnikov_Nikita
0 / 0 / 0
Регистрация: 11.04.2018
Сообщений: 27
#1

Почти готовая задачка на VBA

23.04.2018, 08:13. Просмотров 170. Ответов 3
Метки нет (Все метки)

Написал задачку, функцию к ней. Все вроде бы правильно прописал, но в 4 строке ошибку диапазонов выдает.
Я что-то пропустил или не так написал? Заранее благодарю.
Должно искаться наибольшее и наименьшее значение процентных платежей массива (или как-то так).
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub ex7()
Dim x() As Integer, n As Byte, I As Byte
n = Application.CountA(ActiveSheet.Range("A:A"))
ReDim x(1 To 10)
24
For I = 1 To n
x(I) = Cells(I, 1).Value
Next I
Call МетодПрямВыбора(x, n)
MsgBox "Наибольший элемент массива=" & Format(x(M), "0.00")
MsgBox "Наименьший элемент массива =" & Format(x(1), "0.00")
End Sub
 
Function МетодПрямВыбора(ByRef Y() As Integer, ByVal M As Byte)
Dim Mn As Integer
Dim K As Byte, J As Byte, I As Byte
For K = 1 To M - 1
Mn = Y(K): l = K
For J = K + 1 To M
If Y(J) < Mn Then Mn = Y(I): l = J
Next J
Y(l) = Y(K): Y(K) = Mn
Next K
End Function
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.04.2018, 08:13
Ответы с готовыми решениями:

Задачка Написать VBA
№1 На рабочем листе Excel заполнить диапазон размера n•m случайными числами с...

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

VBA Задачка, про именованные форматы!
Вечер добрый, может кто помочь решить данное задание? Создать программный код,...

Задачка, не понимаю как это написать на VBA
Дано натур число N. Вычислить \sum_{k=1}^{N}\frac{1}{(k^2)!}

Задачка с пользовательской формой VBA Excel нужно исправить границы цикла. Условие задачи и файл в теме
Умельцам тут делов на пару минут, помогите дурачку)) Условие Разработать...

3
Burk
471 / 351 / 104
Регистрация: 11.07.2014
Сообщений: 1,151
23.04.2018, 09:09 #2
Bebnikov_Nikita, а в 5 строке, что означает 24

Добавлено через 7 минут
Bebnikov_Nikita, в строке 19 М чему равно (думаю нулю т.к. не определено)???

Добавлено через 4 минуты
Bebnikov_Nikita, простите, не заметил, что это параметр функции

Добавлено через 5 минут
Bebnikov_Nikita, а вот в 10 строке М не определено, т.к. оно не имеет никакого отношения к М внутри функции
0
snipe
2861 / 971 / 219
Регистрация: 07.08.2013
Сообщений: 2,427
23.04.2018, 09:54 #3
странно все
в начале вы ищете последнюю строку на листе
потом переопределяете массив на 10 элементов
далее заполняете массив но для его заполнения берете диапазон от 1 до номера последней строки

в функции применяете метод сортировки массива
и после того как отсортировали берете 1 элемент и последний
(метод имеет право существовать- вот только какие на него трудозатраты)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub ex7()
Dim x(), n%, I%, iMax%, iMin%
n = Application.CountA(ActiveSheet.Range("A:A"))
x() = Range("A1:A" & n).Value
For I = 1 To n
If I = 1 Then iMax = x(I, 1): iMin = x(I, 1)
If iMax < x(I, 1) Then iMax = x(I, 1)
If iMin > x(I, 1) Then iMin = x(I, 1)
Next I
MsgBox "Наибольший элемент массива=" & Format(iMax, "0.00")
MsgBox "Наименьший элемент массива =" & Format(iMin, "0.00")
End Sub
0
Остап Бонд
590 / 389 / 187
Регистрация: 17.08.2017
Сообщений: 958
23.04.2018, 10:06 #4
Visual Basic
1
2
3
4
Sub ex7()
MsgBox "Наибольший элемент массива=" & 100 * WorksheetFunction.Max([a:a]) 'Format(x(M), "0.00")
MsgBox "Наименьший элемент массива =" & 100 * WorksheetFunction.Min([a:a]) ' Format(x(1), "0.00")
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.04.2018, 10:06

строки C++ почти готовая
вот условие: Дан текст, состоящий из N (2&lt;=N&lt;=10) строк с максимальной длиной...

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

Простая программа Турфирма почти готовая, но надо доделать
Всем привет, скажу сразу на Delphi я мало что понимаю, мне задали сделать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru