Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.09.2016, 21:39   #11
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Так надо?
Вложения
Тип файла: xls проект_2_1.xls (72.0 Кб, 19 просмотров)
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 01.10.2016, 15:17   #12
Al1en
 
Регистрация: 30.09.2016
Сообщений: 8
По умолчанию

Цитата:
Сообщение от VictorM Посмотреть сообщение
Так надо?
Да! Спасибо большое!
Al1en вне форума Ответить с цитированием
Старый 01.10.2016, 20:52   #13
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

В качестве дополнения:
Если у Вас получается большое количество одинаковых контролов на форме, в данном случае текстбоксов, очистку (да и другие действия применяемые к ним) лучше делать так
Код:
 Dim iControl As MSForms.Control
    For Each iControl In Me.Controls
        If TypeName(iControl) = "TextBox" Then
            iControl = ""
        End If
    Next
вместо
Код:
        Me.TextBox1 = ""
        Me.TextBox2 = ""
        Me.TextBox14 = ""
        Me.TextBox16 = ""
        Me.TextBox18 = ""
        Me.TextBox20 = ""
        Me.TextBox22 = ""
        Me.TextBox30 = ""
        Me.TextBox28 = ""
        Me.TextBox24 = ""
        Me.TextBox26 = ""
        Me.TextBox12 = ""
        Me.TextBox13 = ""
        Me.TextBox15 = ""
        Me.TextBox17 = ""
        Me.TextBox19 = ""
        Me.TextBox21 = ""
        Me.TextBox29 = ""
        Me.TextBox27 = ""
        Me.TextBox23 = ""
        Me.TextBox25 = ""
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 01.10.2016, 22:10   #14
Al1en
 
Регистрация: 30.09.2016
Сообщений: 8
По умолчанию

Благодарю!
Еще не подскажите возможно ли реализовать условие "каждая 7-ая бытылка в подарок", т.е. складывалось количество бутылок по каждому клиенту и случае, если сумма кратна 7 то выводилось бы соответствующее сообщение или выделялась бы строка?
Я пытался это реализовать через условное форматирование с помощью ф-и =ОСТАТ(СУММ(E4:M4);7)=0 , но к сожалению у меня не получилось сдалать так, чтобы вся строка закрашивалась.
П.С. тут еще проблема состоит в том, что если у клиента будет допустим, в сумме число бутылок равно 6 и через форму к этому числу добавить еще 2 бутылки, то собственно формула не поймет, что нужно закрасить строку т.к. число уже не будет кратно 7. Поэтому хотелось бы понять возможно ли это реализовать через vba.

Последний раз редактировалось Al1en; 01.10.2016 в 22:18.
Al1en вне форума Ответить с цитированием
Старый 01.10.2016, 23:30   #15
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Через VBA можно реализовать все.
Алгоритм думаю такой - при изменении суммы бутылок в строке, проверять частное от деления на 7. =ЦЕЛОЕ(СУММ(E4:M4)/7)
Если увеличилось - должны бутылку
Ну а дальше уже можно все это обрабатывать
Естественно, все это можно сделать в vba
Вложения
Тип файла: xls проект_2_1.xls (72.0 Кб, 11 просмотров)
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499

Последний раз редактировалось VictorM; 01.10.2016 в 23:34.
VictorM вне форума Ответить с цитированием
Старый 02.10.2016, 00:29   #16
Al1en
 
Регистрация: 30.09.2016
Сообщений: 8
По умолчанию

Цитата:
Сообщение от VictorM Посмотреть сообщение
Через VBA можно реализовать все.
Алгоритм думаю такой - при изменении суммы бутылок в строке, проверять частное от деления на 7. =ЦЕЛОЕ(СУММ(E4:M4)/7)
Если увеличилось - должны бутылку
Ну а дальше уже можно все это обрабатывать
Естественно, все это можно сделать в vba
Я просто премного благодарен вам за помощь! В скайпе написал про спасибо
Al1en вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Первое непустое значение над ячейкой Excel Pluselectro Microsoft Office Excel 2 26.08.2016 09:50
Не записывается значение в textbox lamarLich Помощь студентам 1 15.11.2014 10:11
Суммирование значение textbox в форме! Punker1 Microsoft Office Excel 7 05.02.2010 20:27
Отрицательное значение TextBox segail Microsoft Office Excel 7 08.11.2009 20:35
значение TextBox в колонтитул segail Microsoft Office Excel 3 15.08.2009 21:58