Создание ячеек для ввода и отправки данных - Страница 2

Страница 2 из 2 « 1 2
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание ячеек для ввода и отправки данных (Формулы/Formulas)

Создание ячеек для ввода и отправки данных

Denyols

Дата: Среда, 09.05.2018, 19:44 | Сообщение № 21

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Оп. решил заменой названия S на саму ячейку. Спасибо всем огромнейшое, теперь не буду больше задавать тупых вопросов.
Но это не точно)
[vba]

Код

Sub Сумматор2()

    Found = False

    For i = 3 To 33

        If CDate(Cells(i, 1).Value) = Cells(1, 1).Value Then
            Found = True
            Exit For
        End If

    Next i
    irow = i
    If Not Found Then Exit Sub

    For i = 2 To 2000

        If IsNumeric(Worksheets(2).Cells(i, 1).Value) And Worksheets(2).Cells(i, 1).Value <> "" And IsNumeric(Worksheets(2).Cells(i, 2).Value) And Worksheets(2).Cells(i, 2).Value <> "" Then Worksheets(1).Cells(irow, 2).Value = Worksheets(1).Cells(irow, 2).Value + Worksheets(2).Cells(i, 1).Value * Worksheets(2).Cells(i, 2).Value

    Next i

End Sub

[/vba]

Сообщение отредактировал Denyols - Среда, 09.05.2018, 19:45

Ответить

Denyols

Дата: Среда, 09.05.2018, 21:15 | Сообщение № 22

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

В общем) не получилось сделать так же на столбцы, как и со строкой. Суть всё та же, надо осуществлять поиск по столбцам (лучше по всему листу (даты уникальны)) и вставлять значение рядом.

К сообщению приложен файл: 3402693.xlsm(33.3 Kb)