| Вопрос: Cумма ячеек VBA_ EXEL | Добавлено: 14.02.09 19:35 |
Автор вопроса:  Григорий
|
|
Не работает функция сложения
помогите пожалуйста Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Single, m3(1 To 65536) m1 = [A:A]: m2 = [B:B] For i = 1 To UBound(m3) If Len(m1(i, 1) & m2(i, 1)) > 0 Then m3(i) = m1(i, 1) + m2(i, 1) End If Next [C:C].Value = Application.Transpose(m3) End Sub с уважением |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Григорий Вопросов: 21 Ответов: 35 |
Профиль | | #1 | Добавлено: 14.02.09 23:40 |
| Можно не отвечать - все получилось с Божьей помощью | ||
Страница: 1 |