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

Вход

Регистрация

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

 

= Мир MS Excel/Показать в текстбокс последнюю заполненную ячейку в стобце. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Показать в текстбокс последнюю заполненную ячейку в стобце.
Показать в текстбокс последнюю заполненную ячейку в стобце.
4lasa Дата: Пятница, 30.03.2018, 18:47 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте!
Помогите решить небольшую проблему… Хотелось бы сделать так чтобы в поле Текстбокса автоматически высвечивались данные последних заполненных ячеек в столбце…
Заранее благодарен!
К сообщению приложен файл: 112.xlsm (17.3 Kb)
 
Ответить
СообщениеЗдравствуйте!
Помогите решить небольшую проблему… Хотелось бы сделать так чтобы в поле Текстбокса автоматически высвечивались данные последних заполненных ячеек в столбце…
Заранее благодарен!
Автор - 4lasa
Дата добавления - 30.03.2018 в 18:47
Mikael Дата: Пятница, 30.03.2018, 19:53 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 80
Репутация: 31 ±
Замечаний: 0% ±

Excel 2010
Добрый вечер!
Пробуйте.
[vba]
Код
Private Sub UserForm_Initialize()
    With Worksheets(1)
        Me.TextBox1.Text = .Cells(.Rows.Count, 1).End(xlUp).Value
        Me.TextBox2.Text = .Cells(.Rows.Count, 2).End(xlUp).Value
    End With
    With Worksheets(2)
        Me.TextBox3.Text = .Cells(.Rows.Count, 1).End(xlUp).Value
        Me.TextBox4.Text = .Cells(.Rows.Count, 2).End(xlUp).Value
    End With
End Sub
[/vba]
К сообщению приложен файл: LRTxtBx.xlsm (17.9 Kb)


Сообщение отредактировал Mikael - Пятница, 30.03.2018, 19:56
 
Ответить
СообщениеДобрый вечер!
Пробуйте.
[vba]
Код
Private Sub UserForm_Initialize()
    With Worksheets(1)
        Me.TextBox1.Text = .Cells(.Rows.Count, 1).End(xlUp).Value
        Me.TextBox2.Text = .Cells(.Rows.Count, 2).End(xlUp).Value
    End With
    With Worksheets(2)
        Me.TextBox3.Text = .Cells(.Rows.Count, 1).End(xlUp).Value
        Me.TextBox4.Text = .Cells(.Rows.Count, 2).End(xlUp).Value
    End With
End Sub
[/vba]
Автор - Mikael
Дата добавления - 30.03.2018 в 19:53
Апострофф Дата: Пятница, 30.03.2018, 19:54 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 468
Репутация: 129 ±
Замечаний: 0% ±

Excel 1997
4lasa, можно так -
[vba]
Код
Private Sub UserForm_Initialize()
  TextBox1.ControlSource = "Лист1!A" & Worksheets("Лист1").[a3].End(xlDown).Row
End Sub
[/vba]Буквы-цыфры для остальных текстбоксов изменить сумеете?
 
Ответить
Сообщение4lasa, можно так -
[vba]
Код
Private Sub UserForm_Initialize()
  TextBox1.ControlSource = "Лист1!A" & Worksheets("Лист1").[a3].End(xlDown).Row
End Sub
[/vba]Буквы-цыфры для остальных текстбоксов изменить сумеете?
Автор - Апострофф
Дата добавления - 30.03.2018 в 19:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Показать в текстбокс последнюю заполненную ячейку в стобце.
  • Страница 1 из 1
  • 1
Поиск:

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