Элемент управления "Поле" - ввод чисел

[Bozhkov]

Хочу данные в книге вводить не в ячейку а в окошко "Поле" (делаю калькулятор), чтоб красивее было. Но в связаную с "Поле" ячейкой число сохраняется как текст и формулы с ней не работают. Что посоветуете? Есть ли возможность сделать так чтоб из "поля" числа сохранялись числами?

[tae1980]

Функция
=Ч()

[Bozhkov]

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

Функция
=Ч()

не работает так, ввожу число, а оно просто не переносится в ячейку с =Ч()
тоесть если в связаную с полем ячейку ввести число, то в ячейке с =Ч() оно светится, если ввести в поле, то в связаной ячейке оказывается текст и в ячейке с =Ч() "0"

[tae1980]

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

не работает так, ввожу число, а оно просто не переносится в ячейку с =Ч()
тоесть если в связаную с полем ячейку ввести число, то в ячейке с =Ч() оно светится, если ввести в поле, то в связаной ячейке оказывается текст и в ячейке с =Ч() "0"

Ээээ.... =Ч(C20) или по другому =Ч(СвязаннаяЯчейка)

[Aent]

Например:

Private Sub TextBox1_LostFocus() 'Потеря фокуса полем
    [ЦелеваяЯчейка] = Val(TextBox1.Text)
End Sub

Не забывая о разнице в десятичном разделителе Excel и VBA

[Bozhkov]

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

Private Sub TextBox1_LostFocus() 'Потеря фокуса полем
    [ЦелеваяЯчейка] = Val(TextBox1.Text)
End Sub

Я так понял, это нужно вставить в иходны код и в [ЦелеваяЯчейка] указать ячейку, которая будет связаная с "Полем"?
Не получилось так .
И еще, у меня таких ячеек будет несколько

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

Не забывая о разнице в десятичном разделителе Excel и VBA

А это я не понял, не програмист я...

[Bozhkov]

вот вложил файлик, так должно быть понятно. Если не сложно, подправьте, я потом в свойкалькулятор перенесу. (желательно б написать, как сделали )

[Aent]

Private Sub Worksheet_Change(ByVal Target As Range)
   'Проверяем что ячейки из нашего диапазона и изменена одна ячейка
   If Not Intersect(Target, [E7:E10]) Is Nothing And Target.Cells.Count = 1 Then
        Application.EnableEvents = False 'Отключаем обработку событий
        With Target
            'Десятичный разделитель для аргумента Val - точка
            .Value = Val(Replace(Target.Value, ",", ".")) 'Преобразуeм строку в число
        End With
        Application.EnableEvents = True 'Включаем обработку событий
   End If
End Sub

[Bozhkov]

Я рад что мне пытаются помочь. Спасибо!Но и этот код я не могу реализовать вставил ваш код в файл, который прикреплен в посте выше, не работает, в ячейках текст.
Что я мог не правильно сделать?
Aent, Вы сам вставляли этот код, проверяли его, или только написали?
P.S. Ага, оно все таки считает, но пишет что в ячейке текст, так и должно быть?

[Bozhkov]

Я понял свою проблему. В принципе, это текстовое значение может учавствовать в вычислениях, но вот функция "И" не работает корректно с этой ячейкой