Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вставить данные в последнюю ячейку в строке
 
#1
17.02.2020 03:17:49
Доброго времени суток, подскажите как вставить программно текст "готово" в последнюю строку 3 столбца.
Изменено: balagancha - 17.02.2020 03:18:43
 
 
 
#2
17.02.2020 06:18:14
Вероятно так:
Код
Private Sub cb1_Click()
x = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(x, 3) = "готово"
ActiveSheet.Cells(x, 3).Interior.Color = 65535
End Sub
 
 
 
#3
17.02.2020 06:30:04
GRIM, да так нужно, огромное спасибо Вам.
 
 
 
#4
17.02.2020 06:54:23
Доброго времени суток,

Немного доработал, чтобы также определял последний заполенный столбец:
Код
Sub insert_text()
        x = ActiveSheet.UsedRange.Find("*", , xlValues, xlWhole, , xlPrevious).Row
        y = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
        ActiveSheet.Cells(x + 1, y) = "готов"
        ActiveSheet.Cells(x + 1, y).Interior.Color = 65535
End Sub
 
 
 
Страницы: 1
Наверх