Введите ключевые вкладки через диапазон, но не в текстовое поле - PullRequest
Новая
       56

Введите ключевые вкладки через диапазон, но не в текстовое поле

0 голосов
/ 13 марта 2020

Этот макрос позволяет клавише ENTER вводить диапазон (как указано именованными ячейками). Макрос активируется с помощью ActiveX CommandButton, а затем автоматически вкладки ENTER KEY.

Я бы хотел, чтобы последнее действие вкладки, после того как Range ("Q8") активная ячейка, перешло на go Sheet1. Textbox1. Затем нажмите на вкладку, чтобы вернуться в Range ("C6") и снова начать порядок табуляции.

Я уже пытался добавить TextBox1 в скобках, вне скобок, в отдельной строке перед C. SELECT и в строке ниже C .SELECT.

Я попробовал версию IF / THEN ... если активной ячейкой является "Q8", то следующим выбором будет TextBox1. Ни одна из этих попыток не увенчалась успехом ... по крайней мере, так, как я это написал.

Есть предложения, как добавить TextBox1 в порядок табуляции? 

Private Sub CommandButton3_Click()
        If Sheet1.CommandButton3.Caption = "AUTO TAB ON" Then
            Sheet1.CommandButton3.Caption = "AUTO TAB OFF"
            Sheet1.CommandButton3.BackColor = vbRed
            Dim c As Range
            Set c = Range("C6, E6, G6, I6, K6, M6, O6, Q6, C8, E8, G8, I8, K8, M8, O8, Q8")
            c.Select
        Else
            Sheet1.CommandButton3.Caption = "AUTO TAB ON"
             Sheet1.CommandButton3.BackColor = vbGreen
            Range("B23").Select
        End If
End Sub

Спасибо за ваше время.

...