Переход к ячейке с наибольшим значением в столбце.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Переход к ячейке с наибольшим значением в столбце. (Макросы/Sub)

proshin

Дата: Воскресенье, 13.04.2014, 23:23 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Задача:
в определённом столбце перейти к ячейке с наибольшим значением(датой), чтобы каждый раз не листать вниз))
ctrl+end не подходит и другие стандартные методы тоже.

Ответить

wild_pig

Дата: Понедельник, 14.04.2014, 08:00 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 518

Репутация: 97 ±

Замечаний: 0% ±

2003, 2013

Цитата proshin, 13.04.2014 в 23:23, в сообщении № 1

чтобы каждый раз не листать вниз))

Откуда инфа, что надо листать вниз. Пример файла покажите, может в таблице шапка имеется, может снизу итоги, может и не цифры вовсе(даты).

Ответить

anvg

Дата: Понедельник, 14.04.2014, 08:42 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

И вам доброе время суток <_<

Вариант. Константой colId задаётся номер столбца используемого диапазона листа в котором ищется максимальное значение.
[vba]

Код

Public Sub ScrollToMax()
      Const colId = 1
      Dim vMax As Double, pCells As Range, maxCell As Range
      Set pCells = ActiveSheet.UsedRange
      vMax = Application.WorksheetFunction.Max(pCells.Columns(colId).Value)
       Set maxCell = pCells.Find(vMax, pCells.Cells(1, 1), LookAt:=xlWhole)
       If Not maxCell Is Nothing Then ActiveWindow.ActivePane.ScrollRow = maxCell.Row
End Sub

[/vba]
Успехов

Сообщение отредактировал anvg - Понедельник, 14.04.2014, 08:43

Ответить

proshin

Дата: Понедельник, 14.04.2014, 12:11 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

А мама говорила чудесников не бывает hands

Ответить

Переход к ячейке с наибольшим значением в столбце. (Макросы/Sub)

Страница 1 из 1
1