Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
Oneman
0 / 0 / 0
Регистрация: 23.03.2011
Сообщений: 3
#1

В первой строке активного листа заданы N значений одномерного массива X - VBA

23.03.2011, 20:11. Просмотров 743. Ответов 4
Метки нет (Все метки)

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

1. В первой строке активного листа заданы N значений одномерного массива X. Вывести во вторую строку те элементы, значения которых принадлежат диапазону [a; b].
2. Один из наиболее эффективных способов вычисления квадратного корня основывается на том, что сумма первых n нечетных чисел равна n2. Составить программу, вычисляющую модуль квадратного корня из n для заданного натурального n, используя указанное свойство ([x] — целая часть x).
3. Отрицательные элементы вещественной матрицы заменить максимальным элементом.

За ранее Благодарю!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.03.2011, 20:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В первой строке активного листа заданы N значений одномерного массива X (VBA):

Вставка значений из массива в ячейки листа - VBA
Всем привет! У меня есть вопрос. Работаю в EXCEL 2007, являюсь сильно начинающим в вопросах написания макросов на VBA. Имею...

Адресс активной колонки и название активного Листа - VBA
Всем доброго времени суток! Как обычно с глупым вопросом :-( Есть макрос, который вводит курсс с поля "USD" в 9 колонку указанной строки ...

Макрос сохранение активного листа книги в отдельный файл - VBA
Код сохраняет файл, но с пустым содержанием. Подскажите, в чем может быть проблема? With Application.FileDialog(msoFileDialogSaveAs)...

Как скопировать данные с активного листа книги в новую книгу? - VBA
Как можно программно скопировать данные из активного листа одной книги во вновь созданную?

Перенос значений определенных ячеек активной строки одного листа в определенные ячейки другого листа - VBA
Добрый день! Создаю простенькую программу для регистрации посетителей. Состоит из трех листов - список посетителей, "форма" для печати на...

Разбить строку, введённую в первую ячейку первого столбца активного листа, на слова - VBA
Задали следующее задание: 1я часть: Разбить строку, введённую в первую ячейку первого столбца активного листа, на слова, и вывести их в...

4
Vlanib
Частенько бываю
744 / 326 / 42
Регистрация: 20.06.2007
Сообщений: 854
24.03.2011, 06:58 #2
Visual Basic
1
2
3
4
5
6
7
8
Sub Task1()
'1. Г‚ ïåðâîé ñòðîêå Г*ГЄГІГЁГўГ*îãî ëèñòГ* Г§Г*Г¤Г*Г*Г» N Г§Г*Г*Г·ГҐГ*ГЁГ© îäГ*îìåðГ*îãî Г¬Г*Г±Г±ГЁГўГ* X. Âûâåñòè ГўГ® âòîðóþ ñòðîêó ГІГҐ ýëåìåГ*ГІГ», Г§Г*Г*Г·ГҐГ*ГЁГї êîòîðûõ ïðèГ*Г*äëåæГ*ГІ äèГ*ГЇГ*çîГ*Гі [a; b].
Dim As Long, b As Long, i As Integer, N As Integer
A = Val(InputBox("a:")): b = Val(InputBox("b:"))
For i = 1 To ActiveSheet.UsedRange.Columns.Count
    If Cells(1, i) >= A And Cells(1, i) <= b Then N = N + 1: Cells(2, N) = Cells(1, i)
Next
End Sub
Вот во второй я не до конца врубился, по всей вероятности так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub Task2()
'2. ÎäèГ* ГЁГ§ Г*Г*èáîëåå ГЅГґГґГҐГЄГІГЁГўГ*ûõ ñïîñîáîâ âû÷èñëåГ*ГЁГї ГЄГўГ*äðГ*ГІГ*îãî êîðГ*Гї îñГ*îâûâГ*ГҐГІГ±Гї Г*Г* òîì, Г·ГІГ® ñóììГ* ïåðâûõ n Г*ГҐГ·ГҐГІГ*ûõ Г·ГЁГ±ГҐГ« Г°Г*ГўГ*Г* n2. ÑîñòГ*ГўГЁГІГј ïðîãðГ*ììó, âû÷èñëÿþùóþ ìîäóëü ГЄГўГ*äðГ*ГІГ*îãî êîðГ*Гї ГЁГ§ n äëÿ Г§Г*Г¤Г*Г*Г*îãî Г*Г*ГІГіГ°Г*ëüГ*îãî n, èñïîëüçóÿ ГіГЄГ*Г§Г*Г*Г*îå ñâîéñòâî ([x] — öåëГ*Гї Г·Г*Г±ГІГј x).
N = Val(InputBox("×èñëî:"))
For i = 1 To N Step 2
    If y >= N Then Exit For
    y = y + i
    x = x + 1
Next
MsgBox x
End Sub
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Task3()
'3. ÎòðèöГ*òåëüГ*ûå ýëåìåГ*ГІГ» ГўГҐГ№ГҐГ±ГІГўГҐГ*Г*îé Г¬Г*òðèöû Г§Г*ìåГ*ГЁГІГј Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*ûì ýëåìåГ*òîì.
Dim A, oObj, iMax As Integer, N As Integer, i As Integer, sStr As String
N = InputBox("ГђГ*çìåð Г¬Г*Г±Г±ГЁГўГ*:")
ReDim A(1 To N)
iMax = -50
For i = 1 To N
    A(i) = Int(Rnd * 100 - 50)
    sStr = sStr & A(i) & "; "
    If A(i) > iMax Then iMax = A(i)
Next
sStr = sStr & vbNewLine & "ГЊГ*ГЄГ±. = " & iMax & vbNewLine
For Each oObj In A
    If oObj < 0 Then oObj = iMax
    sStr = sStr & oObj & "; "
Next
MsgBox sStr
End Sub
0
Oneman
0 / 0 / 0
Регистрация: 23.03.2011
Сообщений: 3
24.03.2011, 12:31  [ТС] #3
Спасибо, большое, но чет у меня ошибку выдает...
0
Vlanib
Частенько бываю
744 / 326 / 42
Регистрация: 20.06.2007
Сообщений: 854
25.03.2011, 04:46 #4
Мне надо угадать какую ошибку и где?
0
Oneman
0 / 0 / 0
Регистрация: 23.03.2011
Сообщений: 3
25.03.2011, 17:56  [ТС] #5
Прошу прощение, всё, разобрался, вродь работает. Благодарю за помощь!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2011, 17:56
Привет! Вот еще темы с ответами:

Разбить строку, введённую в первую ячейку первого столбца активного листа, на слова - VBA
Общая часть задания Разбить строку, введённую в первую ячейку первого столбца активного листа, на слова, и вывести их в ячейки первого...

Разработать программу, заполняющую первые два столбца активного листа значениями аргумента и функции - VBA
Разработать программу, заполняющую первые два столбца активного листа значениями аргумента и функции y=2*x^2+3*x-1 в заданном...

Как разбить строку на отдельные слова и вывести их в столбец А активного рабочего листа в порядке возрастания их длины - VBA
Дана строка символов,разделенных пробелами.Разбить строку на отдельные слова и вывести их в столбец А активного рабочего листа в порядке...

Сумма только неотрицательных значений элементов одномерного массива, места которых кратные 3-м - VBA
Всем привет. Надо найти сумму только неотрицательных значений элементов одномерного массива, места которых кратные 3-м. Про количество не...


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

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

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