Private Sub TextBox2_GotFocus()

[bank_notes]

Доброго Здоровья!

VBA6 Excel: На UserForm1 в TextBox1 посредством CommandButton1 вводится какое-то значение, пусть цифра 1. Необходимо, чтобы при перемещении фокуса в TextBox2, которая находится также на UserForm1 с помощью CommandButton1 единица вводилась уже в TextBox2. И при возврате фокуса в TextBox1 эта же кнопка опять "работала на TextBox1".
Как это выразить в виде работающего кода (по событию)? Спасибо.

[EducatedFool]

Примерно так:

Private Sub CommandButton1_Click()
    Me.TextBox1 = "текст"
End Sub

Private Sub TextBox1_Enter()
    Me.TextBox1 = Me.TextBox2
End Sub

Private Sub TextBox2_Enter()
    Me.TextBox2 = Me.TextBox1
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...__22-44-17.zip

[bank_notes]

На основе Вашего примера получилось то, что было нужно (файл – в приложении). Все работает как надо. И все бы хорошо. Но на рабочей форме происходит странный глюк: Поменять окно ввода можно только один раз. После чего кнопка продолжает вводить значение в TextBox2, и на смену фокуса и положение курсора не реагирует. В чем может быть загвоздка?? Какие нибудь предположения?? :-(

[doober]

А такой вариант.Проверил-работает

Private Sub TextBox1_Change()
CommandButton1.Tag = 1
End Sub

Private Sub TextBox2_Change()
CommandButton1.Tag = 2
End Sub

Private Sub CommandButton1_Click()

If CommandButton1.Tag Like 1 Then
TextBox2 = "текст"
Else
TextBox1 = "текст"
End If
End Sub

[bank_notes]

Dober, Спасибо за отклик. Код работает, но цель не достигнута. Суть в том, что юзер должен сам выбрать окно ввода (TextBox1 или TextBox2). В процессе работы TextBox1 может очиститься и снова понадобится ввести значение именно TextBox1…..

[nilem]

А если такой вариант. Добавляем на форму CheckBox1, который переключает булеву переменную, очищает один ТекстБокс и переводит фокус в другой ТекстБокс.
А по кнопке CommandButton1 записывается "text" в тот ТекстБокс, который имеет фокус.

PHP код:

Option Explicit
Dim TT As Boolean

Private Sub CheckBox1_Click()
If Me.CheckBox1 Then
    TT = False: Me.TextBox1.SetFocus: Me.TextBox2.Value = ""
Else
    TT = True: Me.TextBox2.SetFocus: Me.TextBox1.Value = ""
End If
End Sub

Private Sub CommandButton1_Click()
    If TT Then
        Me.TextBox2.Value = "text"
    Else
        Me.TextBox1.Value = "text"
    End If
End Sub 


[bank_notes]

Спасибо, Nilem. Вариант с CheckBox рассматривался и он, безусловно, работоспособен и надежен и решает проблему технически. Возможно, что придется на нем и остановиться.

Но…, как бы это выразить, нет в нем изящества…. Лишний клик…Это почти то-же самое, что создать отдельную кнопу для TextBox2… Наверняка есть другое решение…

[nilem]

In my humble opinion, the additional condition means additional click.
ИМХО, дополнительное условие означает дополнительный клик.