|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.05.2014, 20:39 | #1 |
Регистрация: 08.05.2014
Сообщений: 3
|
Создать двумерный массив A(5,5) / VBA
Создать двумерный массив A(5,5). Вычислить сумму второго положительного и четвертого отрицательного элементов массива. Если таковых элементов в исходном массиве нет, то вывести сообщение об ошибке. Создать новый одномерный массив С, который состоит из элементов второй и четвертой строк исходного массива.
Вот сама программа проблема в сообщении об ошибке. Как правильно это сообщение написать с помощью MsgBox? Private Sub CommandButton1_Click() Dim A, B, J, I, C As Integer Range("A1:Z50").Clear For I = 1 To 5 For J = 1 To 5 Cells(I, J) = Int(Rnd * -30) + 15 Next J Next I For I = 1 To 5 For J = 1 To 5 If Cells(I, J) < 0 Then A = A + 1 If Cells(I, J) > 0 Then B = B + 1 If A = 3 Then Cells(7, 1) = Cells(I, J) A = A + 1 End If If B = 6 Then Cells(7, 2) = Cells(I, J) B = B + 1 End If Cells(7, 3) = Cells(7, 1) - Cells(7, 2) Next J Next I C = 1 For I = 1 To 5 For J = 1 To 5 If I = 2 Then Cells(10, C) = Cells(I, J) C = C + 1 End If Next J Next I C = 1 For I = 1 To 5 For J = 1 To 5 If I = 4 Then Cells(11, C) = Cells(I, J) C = C + 1 End If Next J Next I End Sub |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
двумерный массив (VBA) | Мухаммад | Помощь студентам | 5 | 11.05.2014 08:13 |
Создать двумерный массив A(5,5) / VBA | RayaDemeneva | Помощь студентам | 1 | 08.05.2014 10:07 |
Создать двумерный массив A(5,5) / VBA | RayaDemeneva | Microsoft Office Excel | 1 | 08.05.2014 01:15 |
Создать форму (VBA), двумерный массив | hulio12 | Помощь студентам | 0 | 13.04.2014 17:06 |
VBA (задача на двумерный массив) | Nordbank | Фриланс | 3 | 24.12.2010 20:32 |