Помогите в решении задачи! Нужно присвоить ячейкам массива A1:D1 значения из ячейки E1, при условии если ячейки массива не пустые. Надеюсь понятно написал))
Помогите в решении задачи! Нужно присвоить ячейкам массива A1:D1 значения из ячейки E1, при условии если ячейки массива не пустые. Надеюсь понятно написал))gopal
Я понял так: поскольку А1 не пустая (=23,68), нужно ее значение заменить на Е1 (=11,2) Поскольку В1, С1 и Д1 пустые, то ничего менять не нужно. Если бы какие то из этих ячеек были бы не пустые, то их также нужно было бы заменить на значение ячейки Е1. Получается циклическая ссылка.
Я понял так: поскольку А1 не пустая (=23,68), нужно ее значение заменить на Е1 (=11,2) Поскольку В1, С1 и Д1 пустые, то ничего менять не нужно. Если бы какие то из этих ячеек были бы не пустые, то их также нужно было бы заменить на значение ячейки Е1. Получается циклическая ссылка.SergeyKorotun
Sub ReplaceValue () Dim i As Long With Worksheets("Лист1") For i = 1 To 4 If .Cells(1, i).Value <> "" Then .Cells(1, i).Value = .Cells(1, 5).Value End If Next i End With End Sub
[/vba]
[vba]
Код
Sub ReplaceValue () Dim i As Long With Worksheets("Лист1") For i = 1 To 4 If .Cells(1, i).Value <> "" Then .Cells(1, i).Value = .Cells(1, 5).Value End If Next i End With End Sub
Получается циклическая ссылка Не-а не получатся. С чего такой вывод?
Потому что в А1:Д1 хранятся значения и туда же надо вписать формулы для изменения этих значений. Реализация макросом имеет недостаток: при смене значений в А1:Д1 макрос сам не запустится и в реальном времени перерасчет значений ячеек выполняться не будет.
Цитата (Пользователь)
Получается циклическая ссылка Не-а не получатся. С чего такой вывод?
Потому что в А1:Д1 хранятся значения и туда же надо вписать формулы для изменения этих значений. Реализация макросом имеет недостаток: при смене значений в А1:Д1 макрос сам не запустится и в реальном времени перерасчет значений ячеек выполняться не будет.SergeyKorotun
Цитата (SergeyKorotun писал(а)): туда же надо вписать формулы для изменения этих значений SergeyKorotun, где Вы нашли в топике условие что обязательно надо использовать формулы?
Тема размещена на форуме "Вопросы по Excel", а не в "Вопросы по VBA"
Цитата (Serge_007)
Цитата (SergeyKorotun писал(а)): при смене значений в А1:Д1 макрос сам не запустится и в реальном времени перерасчет значений ячеек выполняться не будет. Кто Вам такое сказал? А если макрос будет срабатывать на Worksheet_Change, например?
Подскажите как это сделать.
Цитата (SergeyKorotun)
Цитата (SergeyKorotun писал(а)): туда же надо вписать формулы для изменения этих значений SergeyKorotun, где Вы нашли в топике условие что обязательно надо использовать формулы?
Тема размещена на форуме "Вопросы по Excel", а не в "Вопросы по VBA"
Цитата (Serge_007)
Цитата (SergeyKorotun писал(а)): при смене значений в А1:Д1 макрос сам не запустится и в реальном времени перерасчет значений ячеек выполняться не будет. Кто Вам такое сказал? А если макрос будет срабатывать на Worksheet_Change, например?
Ребята, о чем спор? ТС написал что-то, кое-как и убежал, не дав разъяснений, когда нужно сравнивать и изменять: при изменении в диапазоне A1:D1, при изменении в ячейке Е1, при нажатии на волшебную кнопку, после дождичка в четверг? [offtop]Последнее навеяно тем, что после пару дней за 50 по С пошел дождь и похолодало. Класс!!! :)[/offtop]
Ребята, о чем спор? ТС написал что-то, кое-как и убежал, не дав разъяснений, когда нужно сравнивать и изменять: при изменении в диапазоне A1:D1, при изменении в ячейке Е1, при нажатии на волшебную кнопку, после дождичка в четверг? [offtop]Последнее навеяно тем, что после пару дней за 50 по С пошел дождь и похолодало. Класс!!! :)[/offtop]ShAM
Вопрос как заменить значение в ячейке А1 на Е1(23,68 заменить на 11,2), а пустые оставить без изменения. Как это реализовать при помощи формулы? Извиняюсь, что вчера не появился, не было доступа к интернету.
Вопрос как заменить значение в ячейке А1 на Е1(23,68 заменить на 11,2), а пустые оставить без изменения. Как это реализовать при помощи формулы? Извиняюсь, что вчера не появился, не было доступа к интернету.gopal