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]
Оп. решил заменой названия 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
Сообщение отредактировал Denyols - Среда, 09.05.2018, 19:45
Ответить
Сообщение Оп. решил заменой названия 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:44
Denyols
Дата: Среда, 09.05.2018, 21:15 |
Сообщение № 22
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
В общем) не получилось сделать так же на столбцы, как и со строкой. Суть всё та же, надо осуществлять поиск по столбцам (лучше по всему листу (даты уникальны)) и вставлять значение рядом.
В общем) не получилось сделать так же на столбцы, как и со строкой. Суть всё та же, надо осуществлять поиск по столбцам (лучше по всему листу (даты уникальны)) и вставлять значение рядом. Denyols
Ответить
Сообщение В общем) не получилось сделать так же на столбцы, как и со строкой. Суть всё та же, надо осуществлять поиск по столбцам (лучше по всему листу (даты уникальны)) и вставлять значение рядом. Автор - Denyols Дата добавления - 09.05.2018 в 21:15
Pelena
Дата: Среда, 09.05.2018, 22:12 |
Сообщение № 23
Группа: Админы
Ранг: Местный житель
Сообщений: 19179
Репутация:
4419
±
Замечаний:
±
Excel 365 & Mac Excel
Так подойдёт? [p.s.]И не нужно складывать все вопросы в одну тему. Читайте Правила форума[/p.s.]
Так подойдёт? [p.s.]И не нужно складывать все вопросы в одну тему. Читайте Правила форума[/p.s.] Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Так подойдёт? [p.s.]И не нужно складывать все вопросы в одну тему. Читайте Правила форума[/p.s.] Автор - Pelena Дата добавления - 09.05.2018 в 22:12