Excel VBA

[MIKE11IPME]

Задача стоит простая , выделить столбец нажать на созданную кнопку на листе и вывести результат вычислений
Вычисления сводятся к поиску максимального эл-та столбца и заменой всех кратных ему чисел столбца на их кв-ты
Суть вопроса как записать в одномерный массив выделенный нами столбец с данными и как вывести результат на тот же лист "книги" ?
Пытался писать только так и не понял как записать в массив
Есть вариант с определением диапазона ячеек (первая и последняя) , но пока приберегу его на потом =)
Заранее спасибо
Собственно вот что родил , но это не работает именно из-за неверной записи данных в массив =)

Private Sub CommandButton1_Click()

Dim Mas() As Byte
Dim p As Byte
p = Selection.Rows.Count
ReDim Mas(1 To p) As Byte
'Вот тут должно быть внесение данных в массив'
For i = 1 To p
 Mas(i) = Selection.Range.Rows(i)
 Next

Max = Mas(1)
For i = 1 To p - 1
 If Mas(i + 1) > Max Then Max = Mas(i + 1) Else Max = Max
Next
 
For i = 1 To p
Hug = Mas(i)
If Max Mod Hug = 0 Then Mas(i) = Hug * Hug
Next

End Sub

[MIKE11IPME]

И да Selection.Rows.Count эт мы случаем не диапазон получаем ?=)
или это все же число строк ?

[IgorGO]

Selection - может быть что угодно, но если в этот момент отмечен диапазон - это диапазон

Selection.Rows - коллекция строк в диапазоне

Selection.Rows.Count - количество элементов в коллекции (строк в диапазоне)

Откройте в редакторе окно Locals, выполняйте свой макрос нажимая F8, следите за состоянием переменных, Вам многое станет понятно самостоятельно

[SAS888]

Примерно так (всего 1 цикл, и то не по ячейкам, а внутри массива):

Private Sub CommandButton1_Click()
    Dim i As Long, Mas(), MaxValue As Double
    If Selection.Columns.Count > 1 Then Exit Sub
    If Selection.Cells.Count = 1 Then Exit Sub
    Mas = Selection.Value
    MaxValue = Application.Max(Application.Index(Mas, 0, 1))
    For i = 1 To UBound(Mas, 1)
        If Max Mod Mas(i, 1) = 0 Then Mas(i, 1) = Hug * Hug
    Next
    Selection.Value = Mas
End Sub

P.S. Совет: по возможности, не используйте имена переменных, совпадающих с зарезервированными в VBA Excel. Так, например, вместо используемой вами переменной "Max", надежнее использовать другую. Например, "MaxValue".

[MIKE11IPME]

Большущее спасибо =)
просто с синтаксисом VB не знаком

[IgorGO]

и тут, видимо, опечатка
If Max Mod Mas(i, 1) = 0 Then Mas(i, 1) = Hug * Hug
заменить на
If MaxValue Mod Mas(i, 1) = 0 Then Mas(i, 1) = Hug * Hug

Собственно, Сережа детально разобрал эту ошибку сообщением выше))

[SAS888]

и тут, видимо, опечатка

Да-да... Конечно... Извиняюсь. Спасибо, Игорь.