Суммирование значений текстбоксов в числовом формате.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Суммирование значений текстбоксов в числовом формате. (Макросы/Sub)

Amator

Дата: Понедельник, 27.06.2016, 13:13 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте. Помогите ,пожалуйста, задать числовой формат (0,000) для текстбоксов. По нажатию на деталь (А, В ,С ) увеличивается их количество на еденицу и соответственно увеличивается площадь деталей. Автоматически суммируется колличество всех деталей и их площадь. Если площадь детали целое число - все работает (деталь А и В), но если дробь (деталь С) , то ошибка.

К сообщению приложен файл: _1.xlsm (30.4 Kb)

Ответить

Roman777

Дата: Понедельник, 27.06.2016, 13:38 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

Amator, проблема в том, что при изменении, у Вас возникает в какой-то момент запись аля: "2,", в данный момент отрабатывается событие Change и CDbl("2,") даёт ошибку...
Поэтому, поставив обработчик ошибок (On Error Resume Next), мы это минуем.
[vba]

Код

Private Sub myTextBox_Change()
    Dim dblSum As Double
    Dim i As Long
    Dim a As String
    For i = 1 To 3 Step 1
        a = UserForm1.Controls("TextBox" & i).Text
        If a <> "" Then
        On Error Resume Next
               dblSum = dblSum + CDbl(a)
        End If
    Next i
    UserForm1.TextBox86.Text = dblSum
End Sub

[/vba]

Много чего не знаю!!!!

Ответить

Amator

Дата: Понедельник, 27.06.2016, 14:02 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Roman777, код изменил, ошибка не возникает. Но текстбокс с дробью не суммируется.

Ответить

Roman777

Дата: Понедельник, 27.06.2016, 14:11 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

Amator, дробь пишете через "." или ","?
Честно говоря, у меня и 1й Ваш вариант норм складывает, когда пишу через ",".

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Понедельник, 27.06.2016, 14:17

Ответить

Serge_007

Дата: Понедельник, 27.06.2016, 14:22 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата Amator, 27.06.2016 в 13:13, в сообщении № 1

задать числовой формат (0,000) для текстбоксов

Текстбокс - он на то и текстбокс, что бы в нем был текст

Суммировать текст нельзя, можно только числа, значит текст текстбоксов надо переводить в числа. Как - написано выше:

Цитата

CDbl(a)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Amator

Дата: Понедельник, 27.06.2016, 14:26 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Roman777, через " , ".

К сообщению приложен файл: 9429389.xlsm (23.5 Kb)

Ответить

Manyasha

Дата: Понедельник, 27.06.2016, 14:29 | Сообщение № 7

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Amator, вот так попробуйте:
[vba]

Код

dblSum = dblSum + CDbl(Replace(UserForm1.Controls("TextBox" & i).Text, ".", ","))

[/vba]
Roman777,

Цитата Roman777, 27.06.2016 в 14:11, в сообщении № 4

у меня и 1й Ваш вариант норм складывает, когда пишу через ","

напишите в 1-ю строчку, "1,5" и нажмите кнопку А. Должно стать "2,5", исходя из кода. У Вас так? У меня нет.

Либо меняем точки на запятые (см. выше), либо вот тут:
[vba]

Код

Private Sub CommandButton1_Click()
Me.TextBox1.Value = CStr(CDbl(Me.TextBox1) + "1")
Me.TextBox43.Value = CStr(CDbl(Me.TextBox1) * "2")
End Sub

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

Amator

Дата: Понедельник, 27.06.2016, 14:40 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Спасибо, все работает.

Ответить

Roman777

Дата: Понедельник, 27.06.2016, 15:04 | Сообщение № 9

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

Amator, как вариант, можно попробовать так:
[vba]

Код

Private Sub myTextBox_Change()
    Dim dblSum As Double, a$, s$
    Dim i As Long
    Set RE = CreateObject("VBScript.RegExp")
    RE.Global = True
    RE.IgnoreCase = True
    RE.Pattern = "\d|\.|\,"
    For i = 1 To 3 Step 1
        a = UserForm1.Controls("TextBox" & i).Text
        Set oMatches = RE.Execute(a)
        For i1 = 0 To oMatches.Count - 1
            s = s & oMatches.Item(i1)
        Next i1
        s = Replace(s, ".", ",")
        If s <> "" Then
            dblSum = dblSum + CDbl(s)
        End If
        s = ""
    Next i
    UserForm1.TextBox86.Text = dblSum
End Sub

[/vba]
будет отсеивать нечисловые значения (всё что не цифра и всё что не ".", ",").