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

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

23.04.2018, 08:13. Просмотров 150. Ответов 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 (VBA):

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

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

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

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

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

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

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

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

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

Добавлено через 5 минут
Bebnikov_Nikita, а вот в 10 строке М не определено, т.к. оно не имеет никакого отношения к М внутри функции
0
snipe
2814 / 927 / 205
Регистрация: 07.08.2013
Сообщений: 2,290
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
Остап Бонд
573 / 374 / 180
Регистрация: 17.08.2017
Сообщений: 908
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
Привет! Вот еще темы с решениями:

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

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

Почти готовая программа с матрицами, не могу загрузить матрицу из файла
Косяк в функции на 32 строке. Собственно мне нужно узнать сколько символов...

Задачка почти на смекалку, помоги те же решить
мне тут задание досталось: придумайте примеры синтаксически правильных...


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

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

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