Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос в UserForm прибавляющий определнную сумму - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос в UserForm прибавляющий определнную сумму (Макросы/Sub)
Макрос в 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 (эти формулы неизменны для всех ячеек всего столбца)
К сообщению приложен файл: 8749432.xlsm (50.4 Kb)


Сообщение отредактировал 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
Дата добавления - 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
Дата добавления - 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
Дата добавления - 06.12.2015 в 20:04
AranyHunter Дата: Воскресенье, 06.12.2015, 20:36 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Roman777, спасибо ограменное ))))) респект и уважуха ))))
 
Ответить
СообщениеRoman777, спасибо ограменное ))))) респект и уважуха ))))
Автор - AranyHunter
Дата добавления - 06.12.2015 в 20:36
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос в UserForm прибавляющий определнную сумму (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!