refedit

Ответ от Пьяный пират[гуру]
ну вот так тогда.. ))
Private Sub CommandButton1_Click()
Dim summ As Double
Dim MyRange As Range
If RefEdit1.Value = "" Then
MsgBox "Пожалуйста, выделите диапазон"
Else
Set MyRange = Range(RefEdit1.Value)
Start_stroka = MyRange.Item(1, 1).Row
Start_stolbec = MyRange.Item(1, 1).Column
End_stroka = (Start_stroka - 1) + MyRange.Rows.Count
End_stolbec = (Start_stolbec - 1) + MyRange.Columns.Count
summ = 0
num_stolbca = Start_stolbec
While num_stolbca <= End_stolbec
If num_stolbca Mod 2 <> 0 Then
num_stroki = Start_stroka
While num_stroki <= End_stroka
summ = summ + Val(Cells(num_stroki, num_stolbca))
num_stroki = num_stroki + 1
Wend
End If
num_stolbca = num_stolbca + 1
Wend
MsgBox (summ)
End If
End Sub

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]