Sub All_delated() Dim i% For i = Range("f2") To Range("f2") Range("c2").Value = Range("f2").Value + Range("c2").Value 'Range("ag" & i).Value = "" Next i Dim sell As Range 'проверка диапазаона ячеек For Each cell In Range("f3:F55").Cells If cell.Value = "off" Then cell.Value = "Заполнить" ElseIf cell.Value = "Заполнить" Then Range("I3:I55").Value = "Заполнить" End If Next End Sub
Логика следующая, в диапазоне ячеек ("f3:F55") может содержаться значение "off" в какой-нибудь из, так вот, задача такая, если в ячейке f3 содержится значение "заполнить" то точно такое же значение нужно присвоить и скажем ячейке I3. В макросе приведённом выше значение заполнить попадает во все ячейки I, а должно быть соответствие строке и содержанию ячейке F. Я так понимаю, нужно пройтись по всему столбцу F - пересчитать ячей со значением "Заполнить" и перезаписать значение в ячейку I этой же строки, понимае вроде есть, как сделать нет)) Благодарен всем, кто откликнулся)
Всем привет написал кое как такой скрипт:
Sub All_delated() Dim i% For i = Range("f2") To Range("f2") Range("c2").Value = Range("f2").Value + Range("c2").Value 'Range("ag" & i).Value = "" Next i Dim sell As Range 'проверка диапазаона ячеек For Each cell In Range("f3:F55").Cells If cell.Value = "off" Then cell.Value = "Заполнить" ElseIf cell.Value = "Заполнить" Then Range("I3:I55").Value = "Заполнить" End If Next End Sub
Логика следующая, в диапазоне ячеек ("f3:F55") может содержаться значение "off" в какой-нибудь из, так вот, задача такая, если в ячейке f3 содержится значение "заполнить" то точно такое же значение нужно присвоить и скажем ячейке I3. В макросе приведённом выше значение заполнить попадает во все ячейки I, а должно быть соответствие строке и содержанию ячейке F. Я так понимаю, нужно пройтись по всему столбцу F - пересчитать ячей со значением "Заполнить" и перезаписать значение в ячейку I этой же строки, понимае вроде есть, как сделать нет)) Благодарен всем, кто откликнулся)Igorka001
Сообщение отредактировал Igorka001 - Среда, 13.12.2023, 12:55
Sub All_delated() Dim i% For i = Range("f2") To Range("f2") Range("c2").Value = Range("f2").Value + Range("c2").Value 'Range("ag" & i).Value = "" Next i Dim sell As Range 'ïðîâåðêà äèàïàçàîíà ÿ÷ååê For Each cell In Range("f3:F55").Cells If cell.Value = "off" Then cell.Value = "Çàïîëíèòü" ElseIf Range("F3").Value = "Çàïîëíèòü" Then Range("I3").Value = "Çàïîëíèòü" ElseIf Range("F4").Value = "Çàïîëíèòü" Then Range("I4").Value = "Çàïîëíèòü" ElseIf Range("F5").Value = "Çàïîëíèòü" Then Range("I5").Value = "Çàïîëíèòü" End If Next End Sub
Написал так, меняется почему-то только в одной строке F3
Всё благодарю! Вы помогли)
Sub All_delated() Dim i% For i = Range("f2") To Range("f2") Range("c2").Value = Range("f2").Value + Range("c2").Value 'Range("ag" & i).Value = "" Next i Dim sell As Range 'ïðîâåðêà äèàïàçàîíà ÿ÷ååê For Each cell In Range("f3:F55").Cells If cell.Value = "off" Then cell.Value = "Çàïîëíèòü" ElseIf Range("F3").Value = "Çàïîëíèòü" Then Range("I3").Value = "Çàïîëíèòü" ElseIf Range("F4").Value = "Çàïîëíèòü" Then Range("I4").Value = "Çàïîëíèòü" ElseIf Range("F5").Value = "Çàïîëíèòü" Then Range("I5").Value = "Çàïîëíèòü" End If Next End Sub
Написал так, меняется почему-то только в одной строке F3
Sub All_delated() Dim i% For i = Range("f2") To Range("f2") Range("c2").Value = Range("f2").Value + Range("c2").Value 'Range("ag" & i).Value = "" Next i Dim sell As Range 'проверка диапазаона ячеек For Each cell In Range("f3:F55").Cells If cell.Value = "off" Then cell.Value = "Заполнить" cell.Offset(0, 3).Value = "Заполнить" cell.Offset(0, 13).Value = DateValue(Now) End If
Next End Sub
Вот ещё вопрос, почему дата не выставляется по такому условию?
Sub All_delated() Dim i% For i = Range("f2") To Range("f2") Range("c2").Value = Range("f2").Value + Range("c2").Value 'Range("ag" & i).Value = "" Next i Dim sell As Range 'проверка диапазаона ячеек For Each cell In Range("f3:F55").Cells If cell.Value = "off" Then cell.Value = "Заполнить" cell.Offset(0, 3).Value = "Заполнить" cell.Offset(0, 13).Value = DateValue(Now) End If
Next End Sub
Вот ещё вопрос, почему дата не выставляется по такому условию?Igorka001
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
