Макрос в UserForm прибавляющий определнную сумму
AranyHunter
Дата: Воскресенье, 06.12.2015, 17:14 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
И еще раз здравствуйте! есть UserForm при заполнение в ней данных, захотелось расширить ее возможности (что бы в таблице не писать формулы как K2=J2+50, L2=K2+50 и т.д.). Как сделать что бы при внесение данных в TextBox8 автоматически данные увеличивались на 50 и вносились в столбцы , но столбцов 5 (J, K, L, M, N.) Данные в столбец J вносятся через textbox8, остальные столбцы высчитывались автоматически по формуле K=J+50 J=K+50 L=J+50 M=L+50 N=M+50 (эти формулы неизменны для всех ячеек всего столбца)
И еще раз здравствуйте! есть UserForm при заполнение в ней данных, захотелось расширить ее возможности (что бы в таблице не писать формулы как K2=J2+50, L2=K2+50 и т.д.). Как сделать что бы при внесение данных в TextBox8 автоматически данные увеличивались на 50 и вносились в столбцы , но столбцов 5 (J, K, L, M, N.) Данные в столбец J вносятся через textbox8, остальные столбцы высчитывались автоматически по формуле K=J+50 J=K+50 L=J+50 M=L+50 N=M+50 (эти формулы неизменны для всех ячеек всего столбца) AranyHunter
Сообщение отредактировал AranyHunter - Воскресенье, 06.12.2015, 17:48
Ответить
Сообщение И еще раз здравствуйте! есть UserForm при заполнение в ней данных, захотелось расширить ее возможности (что бы в таблице не писать формулы как K2=J2+50, L2=K2+50 и т.д.). Как сделать что бы при внесение данных в TextBox8 автоматически данные увеличивались на 50 и вносились в столбцы , но столбцов 5 (J, K, L, M, N.) Данные в столбец J вносятся через textbox8, остальные столбцы высчитывались автоматически по формуле K=J+50 J=K+50 L=J+50 M=L+50 N=M+50 (эти формулы неизменны для всех ячеек всего столбца) Автор - AranyHunter Дата добавления - 06.12.2015 в 17:14
Roman777
Дата: Воскресенье, 06.12.2015, 18:32 |
Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация:
127
±
Замечаний:
0% ±
Excel 2007, Excel 2013
AranyHunter , [vba]Код
Private Sub CommandButton1_Click() EmptyRows = WorksheetFunction.CountA(Range("B:B")) + 1 Cells(EmptyRows, 2) = ComboBox1.Value Cells(EmptyRows, 3) = ComboBox2.Value Cells(EmptyRows, 4) = ComboBox3.Value Cells(EmptyRows, 5) = TextBox3.Value Cells(EmptyRows, 6) = TextBox4.Value Cells(EmptyRows, 7) = TextBox5.Value Cells(EmptyRows, 9) = TextBox7.Value Cells(EmptyRows, 10) = TextBox8.Value + 50 End Sub
[/vba] Так?)
AranyHunter , [vba]Код
Private Sub CommandButton1_Click() EmptyRows = WorksheetFunction.CountA(Range("B:B")) + 1 Cells(EmptyRows, 2) = ComboBox1.Value Cells(EmptyRows, 3) = ComboBox2.Value Cells(EmptyRows, 4) = ComboBox3.Value Cells(EmptyRows, 5) = TextBox3.Value Cells(EmptyRows, 6) = TextBox4.Value Cells(EmptyRows, 7) = TextBox5.Value Cells(EmptyRows, 9) = TextBox7.Value Cells(EmptyRows, 10) = TextBox8.Value + 50 End Sub
[/vba] Так?)Roman777
Много чего не знаю!!!!
Ответить
Сообщение AranyHunter , [vba]Код
Private Sub CommandButton1_Click() EmptyRows = WorksheetFunction.CountA(Range("B:B")) + 1 Cells(EmptyRows, 2) = ComboBox1.Value Cells(EmptyRows, 3) = ComboBox2.Value Cells(EmptyRows, 4) = ComboBox3.Value Cells(EmptyRows, 5) = TextBox3.Value Cells(EmptyRows, 6) = TextBox4.Value Cells(EmptyRows, 7) = TextBox5.Value Cells(EmptyRows, 9) = TextBox7.Value Cells(EmptyRows, 10) = TextBox8.Value + 50 End Sub
[/vba] Так?)Автор - Roman777 Дата добавления - 06.12.2015 в 18:32
AranyHunter
Дата: Воскресенье, 06.12.2015, 18:49 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Roman777 , почти так но не так! К примеру: в TextBox8 вводим стоимость суточного цыпленка 300, это значение неизменно для столбца J, а нужно прибавление к следующиму столбцу К (недельные цыплята) и внесение полученного в столбец и строку по формуле K=J+50 (где K=350, J=30) и так дале (L=K+50, M=L+50, N=M+50)
Roman777 , почти так но не так! К примеру: в TextBox8 вводим стоимость суточного цыпленка 300, это значение неизменно для столбца J, а нужно прибавление к следующиму столбцу К (недельные цыплята) и внесение полученного в столбец и строку по формуле K=J+50 (где K=350, J=30) и так дале (L=K+50, M=L+50, N=M+50)AranyHunter
Ответить
Сообщение Roman777 , почти так но не так! К примеру: в TextBox8 вводим стоимость суточного цыпленка 300, это значение неизменно для столбца J, а нужно прибавление к следующиму столбцу К (недельные цыплята) и внесение полученного в столбец и строку по формуле K=J+50 (где K=350, J=30) и так дале (L=K+50, M=L+50, N=M+50)Автор - AranyHunter Дата добавления - 06.12.2015 в 18:49
Roman777
Дата: Воскресенье, 06.12.2015, 20:04 |
Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация:
127
±
Замечаний:
0% ±
Excel 2007, Excel 2013
Похоже что-то типа того: [vba]Код
Private Sub CommandButton1_Click() EmptyRows = WorksheetFunction.CountA(Range("B:B")) + 1 Cells(EmptyRows, 2) = ComboBox1.Value Cells(EmptyRows, 3) = ComboBox2.Value Cells(EmptyRows, 4) = ComboBox3.Value Cells(EmptyRows, 5) = TextBox3.Value Cells(EmptyRows, 6) = TextBox4.Value Cells(EmptyRows, 7) = TextBox5.Value Cells(EmptyRows, 9) = TextBox7.Value Cells(EmptyRows, 10) = TextBox8.Value Cells(EmptyRows, 11) = TextBox8.Value + 50 Cells(EmptyRows, 12) = TextBox8.Value + 100 Cells(EmptyRows, 13) = TextBox8.Value + 150 Cells(EmptyRows, 14) = TextBox8.Value + 200 End Sub
[/vba]
Похоже что-то типа того: [vba]Код
Private Sub CommandButton1_Click() EmptyRows = WorksheetFunction.CountA(Range("B:B")) + 1 Cells(EmptyRows, 2) = ComboBox1.Value Cells(EmptyRows, 3) = ComboBox2.Value Cells(EmptyRows, 4) = ComboBox3.Value Cells(EmptyRows, 5) = TextBox3.Value Cells(EmptyRows, 6) = TextBox4.Value Cells(EmptyRows, 7) = TextBox5.Value Cells(EmptyRows, 9) = TextBox7.Value Cells(EmptyRows, 10) = TextBox8.Value Cells(EmptyRows, 11) = TextBox8.Value + 50 Cells(EmptyRows, 12) = TextBox8.Value + 100 Cells(EmptyRows, 13) = TextBox8.Value + 150 Cells(EmptyRows, 14) = TextBox8.Value + 200 End Sub
[/vba] Roman777
Много чего не знаю!!!!
Ответить
Сообщение Похоже что-то типа того: [vba]Код
Private Sub CommandButton1_Click() EmptyRows = WorksheetFunction.CountA(Range("B:B")) + 1 Cells(EmptyRows, 2) = ComboBox1.Value Cells(EmptyRows, 3) = ComboBox2.Value Cells(EmptyRows, 4) = ComboBox3.Value Cells(EmptyRows, 5) = TextBox3.Value Cells(EmptyRows, 6) = TextBox4.Value Cells(EmptyRows, 7) = TextBox5.Value Cells(EmptyRows, 9) = TextBox7.Value Cells(EmptyRows, 10) = TextBox8.Value Cells(EmptyRows, 11) = TextBox8.Value + 50 Cells(EmptyRows, 12) = TextBox8.Value + 100 Cells(EmptyRows, 13) = TextBox8.Value + 150 Cells(EmptyRows, 14) = TextBox8.Value + 200 End Sub
[/vba] Автор - Roman777 Дата добавления - 06.12.2015 в 20:04
AranyHunter
Дата: Воскресенье, 06.12.2015, 20:36 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Roman777 , спасибо ограменное ))))) респект и уважуха ))))
Roman777 , спасибо ограменное ))))) респект и уважуха ))))AranyHunter
Ответить
Сообщение Roman777 , спасибо ограменное ))))) респект и уважуха ))))Автор - AranyHunter Дата добавления - 06.12.2015 в 20:36