Страницы: 1
RSS
Макрос на переход в нужную ячейку
 
Добрый день.
Поиском не нашел подобной темы. Для знающих думаю вопрос не сложный.

Есть таблица с тысячей строк. Каждая строка пронумерована от 1 до 1000. Если мне нужна строка с номером 756 я мотаю колесико мыши на строку 756.
Задача. Вверху таблицы выделил ячейку, куда я могу вбить номер нужной мне строки. Например 756. Рядом кнопка - "перейти". Жму кнопку - оказываюсь в ячейке А756 (вернее даже не 756, а 756+несколько ячеек, на которые смещена вниз таблица, т.е. первая строка таблицы начинается на с А1, а с А12, т.е. я вбиваю 756, а перейти нужно в 756+12=А768).

Помогите с макросом для кнопки пожалуйста.
 
Ребята, я сам справился. Первый раз, мой первый самостоятельный макрос. Ай да я. Блин, я очень горд :)
Код
Sub переход_к_строке()
'' переход_к_строке Макрос

M = Range("C6").Value
ActiveSheet.Cells((M + 10), 1).Select
End Sub
 
type mismatch выдает ошибку, в чем проблема?)
 
Похоже, что М - не число
 
Мне вот интересно, почему для перехода просто не использовать NameBox. Ну придется конечно букву ввести, но зато ничего мудрить не надо.
По вопросам из тем форума, личку не читаю.
 
Полагаю можно и так:
Код
Private Sub cb1_Click()
i = ActiveSheet.UsedRange.Rows.Count
u = Cells(Rows.Count, 1).End(xlUp).Row - ActiveSheet.UsedRange.Rows.Count
Cells(ad.Value + u, 1).Select
End Sub
 

Можно ещё вот так сделать под правую кнопку мыши:  

Код
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Строка = InputBox("Введите номер строки для перехода", "Переход", 0)
If Строка = Empty Then Exit Sub
ActiveWindow.ScrollRow = CCur(Строка) + 12
ActiveWindow.ScrollColumn = 1
End Sub

Кроме перехода к нужной строке можно будет переходить к первому столбцу с любой точки листа.  
Изменено: Дорожный - 23.10.2018 06:44:09
 
Ребят всем отписавшимся спасибо. Ваши варианты не пробовал. Обошелся своим, попроще :)
Страницы: 1
Наверх