Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир 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
 
Ответить
СообщениеОп. решил заменой названия 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
В общем) не получилось сделать так же на столбцы, как и со строкой. Суть всё та же, надо осуществлять поиск по столбцам (лучше по всему листу (даты уникальны)) и вставлять значение рядом.
К сообщению приложен файл: 3402693.xlsm (33.3 Kb)
 
Ответить
СообщениеВ общем) не получилось сделать так же на столбцы, как и со строкой. Суть всё та же, надо осуществлять поиск по столбцам (лучше по всему листу (даты уникальны)) и вставлять значение рядом.

Автор - Denyols
Дата добавления - 09.05.2018 в 21:15
Pelena Дата: Среда, 09.05.2018, 22:12 | Сообщение № 23
Группа: Админы
Ранг: Местный житель
Сообщений: 19179
Репутация: 4419 ±
Замечаний: ±

Excel 365 & Mac Excel
Так подойдёт?

[p.s.]И не нужно складывать все вопросы в одну тему. Читайте Правила форума[/p.s.]
К сообщению приложен файл: 0309545.xlsm (31.5 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеТак подойдёт?

[p.s.]И не нужно складывать все вопросы в одну тему. Читайте Правила форума[/p.s.]

Автор - Pelena
Дата добавления - 09.05.2018 в 22:12
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание ячеек для ввода и отправки данных (Формулы/Formulas)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!