Забрать значения из ячейки в форму

[mihha2]

по вопросу 1 может чтото в TabIndex элемента кнопок указать чтоб их игнорировать при переборе клавишей Enter?

[nilem]

Сообщение от mihha2

по вопросу 1 может чтото в TabIndex элемента кнопок указать чтоб их игнорировать при переборе клавишей Enter?

Можно свойство TabStop для кнопок установить False в окне свойств, чтобы фокус на них не переходил.
А с удалением может так как-то:

Private Sub CommandButton3_Click()
Dim i&, s$
For i = 5 To 1 Step -1
    s = Me.Controls("TextBox" & i).Text
    If Len(s) Then
        s = Mid(s, 1, Len(s) - 1)
        Me.Controls("TextBox" & i).Text = s
        Exit For
    End If
Next
End Sub

[mihha2]

c TabStop спасибо за совет - все гениальное просто - работает !

код по копке С работает - правда стирает не с положения курсора а начиная с TextBox5

главная проблема в другом обнаружилась - для местных телефонов в формате ###-##-## и сотовых в формате #-(###)-###-##-## все будет работать нормально (для местных другую форму сделаю с 3-мя текстбоксами) - здесь формат един для всех телефонов

а вот с межгородом не знаю как - дело в том что там единого формата нет
может быть такой #-(####)-##-##-## может быть такой #-(#####)-##-## и тд
вся проблема только в "плавающем" коде в скобках (от 3 до 5 символов мб) который заносится в TextBox2
те сейчас формат типа #-(###)-###-##-## 8-(777)-777-77-77 работает без проблем - заносится в ячейку таблицы и вынимается формой правильно

а вот если занести в ячейку формой формат например типа #-(#####)-#-##-## 8-(77777)-7-77-77 (бывает и такой) или такой 8-(7777)-77-77 ) то занесется в ячейку правильно а вот когда формой вынимаешь из ячейки - неправильно вынимает

в связи с этим вопрос - можно ли както поправить макрос на вынимание кода из ячейки при старте формы - чтоб не распределял а просто вставлял все что в скобках в ячейке (....) в TextBox2 - а 8 в TextBox1?

файлик поправленный с учетом доработок прилагаю

[nilem]

Сообщение от mihha2

... а просто вставлял все что в скобках в ячейке (....) в TextBox2 - а 8 в TextBox1?...

Вариант. Меняем это:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D2:D100")) Is Nothing Then
    Cancel = True
    str = Target.Value
    UserForm1.Show 0
End If
End Sub

и это:

Private Sub UserForm_Initialize()
Dim b&, l&
b = InStr(str, "(") + 1
l = InStr(str, ")") - b
Me.TextBox1.Text = "8"
Me.TextBox2.Text = Mid(str, b, l)
Me.TextBox3.SetFocus
End Sub

А что делать, если скобок в ячейке не окажется?

[mihha2]

Ввод кода в скобках и вывод совпадает и 8 в первый текстбокс вставляется-то что надо получилось !

осталось только как остальные цифры после скобок при вводе из ячейки в форму в форме раскидать в TextBox3 TextBox4 TextBox5 по формату ###-##-## ( если номер после скобок будет не 7 знаков а меньше например 5 зн то будет заполнен TextBox3 и TextBox4 TextBox5 будет пустой - это некритично)

по поводу отсутствия скобок были правы - при вводе из пустой ячейки дает ошибку-может условие поставить - если ячейка пустая то запускается форма с пустыми 2-5TextBox-ми и 8 в TextBox1
- если заполнена со скобками - то обычный вариант с заполнением ?

Чтобы вариант отсутствия скобок предусмотреть можно вызов формы через

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D2:D100")) Is Nothing Then
str = Target.Value
UserForm1.Show 0
End If
End Sub

чтоб в ячейку вводить изменения только через форму