Перейти до основного матеріалу
Note: The other languages of the website are Google-translated. Back to English

Як автоматично перемістити курсор до певної комірки в Excel?

Іноді вам може знадобитися перейти до певної комірки з якоюсь метою. Ця стаття детально покаже способи переміщення курсору до певної комірки.

Автоматично переміщувати курсор до певної комірки за допомогою поля Ім'я
Автоматичне переміщення курсору до певної комірки з кодом VBA

Автоматично переміщувати курсор до певної комірки за допомогою поля Ім'я

Поле Ім'я може допомогти вам легко перемістити курсор до певної комірки в Excel.

1 В Назва введіть конкретну посилання на клітинку, до якої ви перейдете, а потім натисніть вводити ключ

Потім курсор негайно рухається до вказаної комірки.

примітки: Якщо вам потрібно перейти до вказаної комірки на іншому робочому аркуші, наприклад, перейти до комірки С30 аркуша2, введіть Аркуш2! C30 у поле Ім'я, а потім натисніть клавішу Enter.

Автоматичне переміщення курсору до певної комірки з кодом VBA

Наступний код VBA допомагає перейти до певної комірки одночасно в Excel.

1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікно, двічі клацніть TйогоРобоча книга на лівій панелі, щоб відкрити Tйого робоча книга (код) вікно. Потім скопіюйте та вставте наведений нижче код VBA у вікно.

Код VBA: переміщення на початок або початок наступного рядка для введення даних

Sub jumpnext()
    Range("F100").Select
End Sub

примітки: У коді F100 - це вказана комірка, до якої ви переходите. Ви можете змінити його, як вам потрібно.

3 Натисніть кнопку F5 клавішу для запуску коду, тоді курсор негайно переміщується до комірки F100 на поточному аркуші.

Статті по темі:

Найкращі інструменти для підвищення продуктивності офісу

Kutools for Excel Вирішує більшість ваших проблем і підвищує вашу продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (15)
Поки немає оцінок. Оцініть першим!
Kris
Kris
Цей коментар був мінімізований модератором на сайті
Я хотів би створити макрос, який крок за кроком переміщується від однієї клітинки до наступної.
відповісти
0
0
Стів
Стів
Цей коментар був мінімізований модератором на сайті
Це корисно, дякую. Однак я хотів би мати формулу як аргумент для функції «Діапазон». Чи допустимо це? Я хотів би, щоб користувач ввів число в діалоговому вікні, потім шукав перше входження цього числа в діапазон клітинок, а потім перейшов курсор до цієї клітинки...
відповісти
0
0
кристал
кристал     Стів
Цей коментар був мінімізований модератором на сайті
Привіт Стів,
Вибачте, не можу вам з цим допомогти.
відповісти
доповідь
0
0
Джеймс
Джеймс
Цей коментар був мінімізований модератором на сайті
Як я міг би перемістити курсор з клітинки E6 до F8, коли дані були введені в E6? Я хотів би, щоб курсор ігнорував усі інші рядки в стовпці E і миттєво перейшов до E6.
відповісти
0
0
Джеймс
Джеймс
Цей коментар був мінімізований модератором на сайті
Вибачте, я маю на увазі ввести "миттєво перейти до F8"
відповісти
0
0
кристал
кристал     Джеймс
Цей коментар був мінімізований модератором на сайті
Привіт Джеймс,
Спробуйте наведений нижче код. Після того, як дані були введені в E6, натисніть клавішу Tab або клавішу Enter, і курсор миттєво перескочить до F8.

Приватний допоміжний робочий лист_Change(ByVal Target As Range)

'Оновлено Extendoffice 2020087

Dim tabArray як варіант

Dim i As Long

tabArray = масив ("E6", "F8")

Application.ScreenUpdating = Невірний

Для i = LBound(tabArray) до UBound(tabArray)

Якщо tabArray(i) = Target.Address(0, 0) Тоді

Якщо i = UBound(tabArray), Тоді

Me.Range(tabArray(LBound(tabArray))).Select

Ще

Me.Range(tabArray(i + 1)).Вибрати

End If

End If

Далі я

Application.ScreenUpdating = True

End Sub
відповісти
доповідь
0
0
Джон
Джон
Цей коментар був мінімізований модератором на сайті
Чи можна перемістити активну комірку без натискання клавіші на клавіатурі? Наприклад, чи можу я перемістити клітинку вниз, як тільки клітинка над нею буде заповнена? Я шукаю функцію або VBA для запуску, коли клітинка заповнена. Як тільки A3 містить символи, чи є VBA для переміщення активної клітинки вниз до A4?
відповісти
0
0
кристал
кристал     Джон
Цей коментар був мінімізований модератором на сайті
Привіт Джон,
Я заплутався у вашому питанні. Як ми можемо дізнатися, чи завершено редагування клітинки?
відповісти
доповідь
0
0
Шахад
Шахад
Цей коментар був мінімізований модератором на сайті
ви не підписували F5 для коду, як він буде працювати, натиснувши F5?
відповісти
0
0
Нельсон
Нельсон
Цей коментар був мінімізований модератором на сайті
Щоб указати текстове поле, у формі, що містить дані в клітинці/аркуші, чи маєте курсор?
відповісти
0
0
кристал
кристал     Нельсон
Цей коментар був мінімізований модератором на сайті
Привіт, Лелсон!
Вибачте, я не розумію, що ви маєте на увазі. Не могли б ви надати скріншот ваших даних? Або спробуйте уточнити своє запитання. Вибачте за незручності.
відповісти
доповідь
0
0
Енді Coghlan
Енді Coghlan
Цей коментар був мінімізований модератором на сайті
привіт,

Чи можете ви допомогти з таким запитом на код VBA?

Аркуш 1 називається «Основний актив», а інші 100 аркушів — «0001...0002...0003....0004 ~ 0100».

На будь-якому з аркушів "0001 ~ 0100"
Я хочу мати можливість вибрати клітинку A4, яка вже містить текст «Назад до основного активу», а потім натиснути клавішу Enter, щоб автоматично повернутися до клітинки J3 у «Головному активі»

Спасибо заранее.
Енді К.
відповісти
0
0
кристал
кристал     Енді Coghlan
Цей коментар був мінімізований модератором на сайті
Привіт, Енді Коглан,
Зараз я не можу знайти спосіб запустити макрос за допомогою клавіші enter. У наведеному нижче коді VBA можна одночасно вставити одне й те саме гіперпосилання в A4 усіх робочих аркушів. Після клацання гіперпосилання в A4, воно перейде до J3 у «Master Asset». Будь ласка, спробуйте.

Sub AddHyperlinks()
'Updated by Extendoffice 20220715
    Dim xRg, yRg As Range
    Set xRg = Worksheets("Master Asset").Range("J3")
    xStr = xRg.Address(External:=True)
    For Each Sh In Worksheets
        If Sh.Name <> "Sh.Name" Then
            Set yRg = Sh.Range("A4")
            yRg.Hyperlinks.Add anchor:=yRg, Address:="", SubAddress:=xStr, TextToDisplay:="Back to Master Asset"
        End If
    Next
End Sub
відповісти
доповідь
0
0
арвінд
арвінд
Цей коментар був мінімізований модератором на сайті
Sub jumpnext()
Діапазон ("F100"). Виберіть
End Sub

Що мені потрібно зробити, щоб цей код можна було використовувати на всіх аркушах книги одночасно.

З повагою,
відповісти
0
0
кристал
кристал     арвінд
Цей коментар був мінімізований модератором на сайті
Привіт Арвінд,

Наступний код VBA може зробити вам послугу. Будь ласка, спробуйте. Дякую.
Примітка. Вам потрібно розмістити код VBA в Ця робоча книга (код) редактор.
Sub jumpnext()
'Updated by Extendoffice 20230109
Set CurrWS = ActiveSheet
    For Each WS In ThisWorkbook.Worksheets
    WS.Activate
        WS.Range("F100").Select
    Next
    CurrWS.Activate
End Sub

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/select-same-cell.png
відповісти
доповідь
0
0
There are no comments posted here yet