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

Вход

Регистрация

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

 

= Мир MS Excel/Данные верхних и нижних открытых строк умной таблицы. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Данные верхних и нижних открытых строк умной таблицы. (Макросы/Sub)
Данные верхних и нижних открытых строк умной таблицы.
Сергей13 Дата: Воскресенье, 13.06.2021, 13:51 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 342
Репутация: -3 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте!
Ребята для загрузки значений в комбобоксы, последней и верхней заполненной строки по столбцу 2 в открытых строках умной таблицы, использую функцию End(xlDown) и End(xlUp).
Но данный метод определяет значение только нижней заполненной строки, также данный метод учитывает и скрытые строки. Каким образом в предлагаемом примере определить данные верхних и нижних открытых строк умной таблицы.
К сообщению приложен файл: stroka.xlsm(21.7 Kb)


Сообщение отредактировал Сергей13 - Воскресенье, 13.06.2021, 13:51
 
Ответить
СообщениеЗдравствуйте!
Ребята для загрузки значений в комбобоксы, последней и верхней заполненной строки по столбцу 2 в открытых строках умной таблицы, использую функцию End(xlDown) и End(xlUp).
Но данный метод определяет значение только нижней заполненной строки, также данный метод учитывает и скрытые строки. Каким образом в предлагаемом примере определить данные верхних и нижних открытых строк умной таблицы.

Автор - Сергей13
Дата добавления - 13.06.2021 в 13:51
Kuzmich Дата: Воскресенье, 13.06.2021, 14:47 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 605
Репутация: 128 ±
Замечаний: 0% ±

Excel 2003
Для умной таблицы несколько другие критерии определения последней и верхней заполненной строки по столбцу
См. https://www.thespreadsheetguru.com/blog....-tables
 
Ответить
СообщениеДля умной таблицы несколько другие критерии определения последней и верхней заполненной строки по столбцу
См. https://www.thespreadsheetguru.com/blog....-tables

Автор - Kuzmich
Дата добавления - 13.06.2021 в 14:47
Сергей13 Дата: Воскресенье, 13.06.2021, 17:16 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 342
Репутация: -3 ±
Замечаний: 0% ±

Excel 2016
Для умной таблицы несколько другие критерии определения последней и верхней заполненной строки по столбцу

Укажите в каких разделах статьи уловить данные критерии.
Пока что для определения данных по столбцу нижней открытой строки внутри таблице данная функция как бы дает тоже положительный результат
[vba]
Код
Range("tabl_logbook[[#Headers],[Дата]]").End(xlDown)
[/vba]
Но как определить данные по столбцу в верхней открытой строке не знаю.
Спасибо.
 
Ответить
Сообщение
Для умной таблицы несколько другие критерии определения последней и верхней заполненной строки по столбцу

Укажите в каких разделах статьи уловить данные критерии.
Пока что для определения данных по столбцу нижней открытой строки внутри таблице данная функция как бы дает тоже положительный результат
[vba]
Код
Range("tabl_logbook[[#Headers],[Дата]]").End(xlDown)
[/vba]
Но как определить данные по столбцу в верхней открытой строке не знаю.
Спасибо.

Автор - Сергей13
Дата добавления - 13.06.2021 в 17:16
Kuzmich Дата: Воскресенье, 13.06.2021, 18:38 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 605
Репутация: 128 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Sub Period()
  With ActiveSheet.ListObjects(1)
    FormDemand.Cmb1.Value = .DataBodyRange(1, 2)
    FormDemand.Cmb2.Value = .DataBodyRange(.ListRows.Count, 2)
  End With
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub Period()
  With ActiveSheet.ListObjects(1)
    FormDemand.Cmb1.Value = .DataBodyRange(1, 2)
    FormDemand.Cmb2.Value = .DataBodyRange(.ListRows.Count, 2)
  End With
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 13.06.2021 в 18:38
Сергей13 Дата: Воскресенье, 13.06.2021, 20:20 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 342
Репутация: -3 ±
Замечаний: 0% ±

Excel 2016
Kuzmich,

Дело в том, что к таблице может быть применен фильтр, тогда первая и последняя открытые строки могут быть любыми из строк таблицы, именно с них и необходимо снять данные по столбцу 2, в противном случаи, например для верхней строки столбца 2 можно просто указать верхнюю фиксированную ячейку таблицы

[vba]
Код
Cmb1.Value = Range(“B8”)
[/vba]
но необходимо именно с первой открытой среди скрытых или открытых строк по столбцу 2.


Сообщение отредактировал Сергей13 - Воскресенье, 13.06.2021, 20:23
 
Ответить
СообщениеKuzmich,

Дело в том, что к таблице может быть применен фильтр, тогда первая и последняя открытые строки могут быть любыми из строк таблицы, именно с них и необходимо снять данные по столбцу 2, в противном случаи, например для верхней строки столбца 2 можно просто указать верхнюю фиксированную ячейку таблицы

[vba]
Код
Cmb1.Value = Range(“B8”)
[/vba]
но необходимо именно с первой открытой среди скрытых или открытых строк по столбцу 2.

Автор - Сергей13
Дата добавления - 13.06.2021 в 20:20
Kuzmich Дата: Воскресенье, 13.06.2021, 20:40 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 605
Репутация: 128 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Sub Period()
  With ActiveSheet.ListObjects(1)
    FormDemand.Cmb1.Value = .DataBodyRange.SpecialCells(xlCellTypeVisible)(1, 2)
    FormDemand.Cmb2.Value = .DataBodyRange.SpecialCells(xlCellTypeVisible)(.DataBodyRange.SpecialCells(xlCellTypeVisible).Rows.Count, 2)
  End With
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub Period()
  With ActiveSheet.ListObjects(1)
    FormDemand.Cmb1.Value = .DataBodyRange.SpecialCells(xlCellTypeVisible)(1, 2)
    FormDemand.Cmb2.Value = .DataBodyRange.SpecialCells(xlCellTypeVisible)(.DataBodyRange.SpecialCells(xlCellTypeVisible).Rows.Count, 2)
  End With
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 13.06.2021 в 20:40
Сергей13 Дата: Понедельник, 14.06.2021, 00:32 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 342
Репутация: -3 ±
Замечаний: 0% ±

Excel 2016
Kuzmich,
Вторая строка кода работает не корректно бывает что показывает данные верхней строки пришлось заменить на
[vba]
Код
RowLow = Range("tabl_logbook[[#Headers],[Дата]]").End(xlDown)
[/vba]
Благодарю за помощь!


Сообщение отредактировал Сергей13 - Понедельник, 14.06.2021, 00:44
 
Ответить
СообщениеKuzmich,
Вторая строка кода работает не корректно бывает что показывает данные верхней строки пришлось заменить на
[vba]
Код
RowLow = Range("tabl_logbook[[#Headers],[Дата]]").End(xlDown)
[/vba]
Благодарю за помощь!

Автор - Сергей13
Дата добавления - 14.06.2021 в 00:32
Kuzmich Дата: Понедельник, 14.06.2021, 10:08 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 605
Репутация: 128 ±
Замечаний: 0% ±

Excel 2003
Цитата
Вторая строка кода работает не корректно

[vba]
Код
FormDemand.Cmb2.Value = .DataBodyRange.SpecialCells(xlCellTypeVisible)(.DataBodyRange.SpecialCells(xlCellTypeVisible).Rows.Count, 2)
[/vba]
Надеюсь вы эту строку ввели в код одной строкой? А то движок форума показывает двумя отдельными строками
 
Ответить
Сообщение
Цитата
Вторая строка кода работает не корректно

[vba]
Код
FormDemand.Cmb2.Value = .DataBodyRange.SpecialCells(xlCellTypeVisible)(.DataBodyRange.SpecialCells(xlCellTypeVisible).Rows.Count, 2)
[/vba]
Надеюсь вы эту строку ввели в код одной строкой? А то движок форума показывает двумя отдельными строками

Автор - Kuzmich
Дата добавления - 14.06.2021 в 10:08
Сергей13 Дата: Понедельник, 14.06.2021, 11:31 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 342
Репутация: -3 ±
Замечаний: 0% ±

Excel 2016
Kuzmich,
Да эту, одной строкой. Не постоянно, но часто выводит значения идентичные первой строки. Заменил на ранее предложенную мной, для нижних строк.
Вроде работает, спасибо!


Сообщение отредактировал Сергей13 - Понедельник, 14.06.2021, 12:29
 
Ответить
СообщениеKuzmich,
Да эту, одной строкой. Не постоянно, но часто выводит значения идентичные первой строки. Заменил на ранее предложенную мной, для нижних строк.
Вроде работает, спасибо!

Автор - Сергей13
Дата добавления - 14.06.2021 в 11:31
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Данные верхних и нижних открытых строк умной таблицы. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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