Этот макрос позволяет клавише 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
Спасибо за ваше время.