Прошу написать комментарии к каждой строке. Sub aaa() Randomize Timer For r = 4 To 9 For...

Question

Прошу написать комментарии к каждой строке.

Sub aaa()
Randomize Timer
For r = 4 To 9
For c = 2 To 8
Cells(r, c) = 10 * Rnd - 5
Next c
Next r
For c = 2 To 8
Set d = Range(Cells(4, c), Cells(9, c))
d.Sort d, xlAscending
Next c
End Sub

Answer 1

Читай комментарии, там всё в трёх частях подробно описано(всё после " // " - комментарии), если что-то непонятно - читай про макросы для exel, которые пишут с помощью твоего языка программирование VBA. Удачи!. ______________________________________________________________
Не забудь сказать "Спасибо", ведь я старался!

Comments

VBA

---

Sub aaa() // "ааа" - имяПроцедуры (списокПараметров)
Randomize Timer // генератор случайных чисел
For r = 4 To 9 // переменная r будет генерироваться от 4 до 9
For c = 2 To 8 // переменная с будет генерироваться от 2 до 8
Cells(r, c) = 10 * Rnd - 5 // Генерируем случайные числа от -5 до 10
Next c // значение с
Next r
For c = 2 To 8
Set d = Range(Cells(4, c), Cells(9, c))
d.Sort d, xlAscending
Next c
End Sub

---

ой, подожди минутку, тут не всё. мой косяк.

---

Первая часть: Sub aaa() // "ааа" - имяПроцедуры (списокПараметров)
Randomize Timer // генератор случайных чисел
For r = 4 To 9 // переменная "r" будет генерироваться от 4 до 9
For c = 2 To 8 // переменная "с" будет генерироваться от 2 до 8
Cells(r, c) = 10 * Rnd - 5 // Генерируем случайные числа от -5 до 10
Next c // значение с
Next r // значение r
For c = 2 To 8 // теперь переменая "с" будет генирировать случайное число от 2 до 8

---

Вторая часть: Set d = Range(Cells(4, c), Cells(9, c)) // Set предназначена для закрепления объекта за переменной d, Range описывает диапазон ячеек рабочего листа и возвращает свойства и методы, range - обеспечивает доступ к ячейке. В скобках указываются координаты ячейки от 4 до с и от 9 до с

---

Третья часть: d.Sort d, xlAscending // Sort осуществляет сортировку по твоим критериям d, xlAscending -задает порядок упорядочивания.
Next c // значение с
End Sub // конец программы под название 'Sub'