textbox можно ли сделать вычитание данных

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

textbox можно ли сделать вычитание данных (Макросы/Sub)

AranyHunter

Дата: Среда, 09.12.2015, 13:28 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

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

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

Excel 2013

В очередной раз у меня возникли вопросы!
при введение данных в textbox2 и textbox3 нужно получить разницу, которая запишется в столбец H. т.е. textbox2 (15) минус textbox3 (10) = 5

[vba]

Код

Private Sub CommandButton1_Click()
EmptyRows = WorksheetFunction.CountA(Range("B:B")) + 1
If ComboBox1.ListIndex = -1 Then Worksheets("Породы гнезда").Cells(Worksheets("Породы гнезда").Cells(Rows.Count, "B1:B").End(xlUp).Row + 1, "B").Value = ComboBox1.Value
Cells(EmptyRows, 2) = ComboBox1.Value

If ComboBox2.ListIndex = -1 Then Worksheets("Окрасы").Cells(Worksheets("Окрасы").Cells(Rows.Count, "C1:C").End(xlUp).Row + 1, "C").Value = ComboBox2.Value
Cells(EmptyRows, 3) = ComboBox2.Value

If ComboBox3.ListIndex = -1 Then Worksheets("Породы гнезда").Cells(Worksheets("Породы гнезда").Cells(Rows.Count, "D1:D").End(xlUp).Row + 1, "D").Value = ComboBox3.Value
Cells(EmptyRows, 4) = ComboBox3.Value
Cells(EmptyRows, 5) = TextBox1.Value 'дата'
Cells(EmptyRows, 6) = TextBox2.Value 'количество голов'
Cells(EmptyRows, 7) = TextBox3.Value 'из них кур'
Cells(EmptyRows, 8) = TextBox4.Value 'инкубационное яйцо'
Cells(EmptyRows, 9) = TextBox5.Value 'суточные цыплята'
Cells(EmptyRows, 10) = TextBox5.Value + 50 'недельные цыплята'
Cells(EmptyRows, 11) = TextBox5.Value + 100 'двухнедельные цыплята'
Cells(EmptyRows, 12) = TextBox5.Value + 150 'трехнедельные цыплята'
Cells(EmptyRows, 13) = TextBox5.Value + 200 'месячные цыплята'
Cells(EmptyRows, 14) = TextBox5.Value + 400 'двухмесячные цыплята'
Cells(EmptyRows, 15) = TextBox5.Value + 600 'трехмесячные цыплята'
Cells(EmptyRows, 16) = TextBox5.Value + 800 'четырехмесячные цыплята'
UserForm_Initialize
End Sub

[/vba]

Код

[/vba]AranyHunter

Ответить

СообщениеВ очередной раз у меня возникли вопросы!
при введение данных в textbox2 и textbox3 нужно получить разницу, которая запишется в столбец H. т.е. textbox2 (15) минус textbox3 (10) = 5

[vba]

Код

[/vba]

Автор - AranyHunter
Дата добавления - 09.12.2015 в 13:28

Roman777

Дата: Среда, 09.12.2015, 13:39 | Сообщение № 2

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

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

Сообщений: 980

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

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

Excel 2007, Excel 2013

AranyHunter, Так не работает:
[vba]

Код

Range("H"&EmptyRows) = TextBox2.Value -textbox3.value

[/vba] ?
[offtop]Александр, да, совпало =)[/offtop]

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

Сообщение отредактировал Roman777 - Среда, 09.12.2015, 13:58

Ответить

_Boroda_

Дата: Среда, 09.12.2015, 13:41 | Сообщение № 3

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

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

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А вот так не работает?
[vba]

Код

Cells(EmptyRows, 8) = TextBox2.Value - TextBox3.Value

[/vba]

[offtop]Хе-хе, даже вопросы почти одинаковые задали!

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

AranyHunter

Дата: Среда, 09.12.2015, 13:48 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

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

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

Excel 2013

Roman777, Спасибо
_Boroda_, Спасибо
вопрос закрыт )
[vba]

Код

Private Sub CommandButton1_Click()
EmptyRows = WorksheetFunction.CountA(Range("B:B")) + 1
If ComboBox1.ListIndex = -1 Then Worksheets("Ïîðîäû ãíåçäà").Cells(Worksheets("Ïîðîäû ãíåçäà").Cells(Rows.Count, "B1:B").End(xlUp).Row + 1, "B").Value = ComboBox1.Value
Cells(EmptyRows, 2) = ComboBox1.Value

If ComboBox2.ListIndex = -1 Then Worksheets("Îêðàñû").Cells(Worksheets("Îêðàñû").Cells(Rows.Count, "C1:C").End(xlUp).Row + 1, "C").Value = ComboBox2.Value
Cells(EmptyRows, 3) = ComboBox2.Value

If ComboBox3.ListIndex = -1 Then Worksheets("Ïîðîäû ãíåçäà").Cells(Worksheets("Ïîðîäû ãíåçäà").Cells(Rows.Count, "D1:D").End(xlUp).Row + 1, "D").Value = ComboBox3.Value
Cells(EmptyRows, 4) = ComboBox3.Value
Cells(EmptyRows, 5) = TextBox1.Value 'äàòà'
Cells(EmptyRows, 6) = TextBox2.Value 'êîëè÷åñòâî ãîëîâ'
Cells(EmptyRows, 7) = TextBox3.Value 'èç íèõ êóð'
Cells(EmptyRows, 8) = TextBox2.Value - TextBox3.Value
Cells(EmptyRows, 9) = TextBox4.Value 'èíêóáàöèîííîå ÿéöî'
Cells(EmptyRows, 10) = TextBox5.Value 'ñóòî÷íûå öûïëÿòà'
Cells(EmptyRows, 11) = TextBox5.Value + 50 'íåäåëüíûå öûïëÿòà'
Cells(EmptyRows, 12) = TextBox5.Value + 100 'äâóõíåäåëüíûå öûïëÿòà'
Cells(EmptyRows, 13) = TextBox5.Value + 150 'òðåõíåäåëüíûå öûïëÿòà'
Cells(EmptyRows, 14) = TextBox5.Value + 200 'ìåñÿ÷íûå öûïëÿòà'
Cells(EmptyRows, 15) = TextBox5.Value + 400 'äâóõìåñÿ÷íûå öûïëÿòà'
Cells(EmptyRows, 16) = TextBox5.Value + 600 'òðåõìåñÿ÷íûå öûïëÿòà'
Cells(EmptyRows, 17) = TextBox5.Value + 800 '÷åòûðåõìåñÿ÷íûå öûïëÿòà'
UserForm_Initialize
End Sub

[/vba]

Ответить

textbox можно ли сделать вычитание данных (Макросы/Sub)

Страница 1 из 1
1