Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.06.2010, 22:18   #1
Айда
Новичок
Джуниор
 
Регистрация: 09.06.2010
Сообщений: 1
По умолчанию Работа в VBA.Массивы.Обьясните.

Здравствуйте я написала прогу VBA но понимаю всё в основном в интуитивном плане.Писала на основе работ других.Завтра зачёт преподша будет спрашивать что означает каждая строка.(пойму глупо но такая у нас она).А я смутно знаю названия что и как.Помогите пожалуйста с коментами что и как написать.Буду признательна.
Вот код проги:

Цитата:
Sub Matrix()
Dim k As Integer, l As Integer, tmpArr, iCol As Integer, iRow As Integer, i As Integer, j As Integer
With Selection
iCol = .Columns.Count: iRow = .Rows.Count
If iCol < 2 Or iRow < 2 Then Exit Sub
k = InputBox("First column:"): l = InputBox("Second column:")
If k > iCol Or l > iCol or k + l < 2 Then Exit Sub
tmpArr = .Columns(k)
.Columns(l).Copy .Columns(k)
.Columns(l) = tmpArr
For i = 1 To iRow
tmpArr = 1
For j = 2 To iCol
If .Cells(i, j) > .Cells(i, tmpArr) Then
tmpArr = j
End If
Next
.Cells(i, iCol + 2) = tmpArr
Next
End With
End Sub

работа в Экселе:

Последний раз редактировалось Айда; 09.06.2010 в 22:31.
Айда вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA, двумерные массивы Desha Помощь студентам 0 04.06.2010 18:08
VBA, массивы ksenechka Помощь студентам 6 24.05.2010 16:47
МАССИВЫ В VBA ACCESS ALYSA Microsoft Office Access 1 27.04.2010 06:10
массивы в VBA ALYSA Помощь студентам 0 19.04.2010 18:49
VBA массивы jerniko Помощь студентам 4 26.01.2010 19:46