Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Запись значения текстбокса в ячейки на определенном листе
 
#1
20.12.2010 20:59:35
Есть форма с которой инфа записывается на определенный лист, зависит от 2 текстбоксов в которых даты. если обе даты декабрь, то на лист декабрь. если даты разные, то приоритет у даты более поздней. например клиент обратился 20.12.2010, а заплатил деньги только 23.01.2011, то инфу нужно записать в январь. инфа записывается в следующую пустую ячейку. например если А1,В1,С1... заняты, то в А2,В2,С2...  
 
Если есть подобные примеры, укажите пжл, я сам поразбираюсь
 
 
 
#2
20.12.2010 21:41:40
Прицепил пример в 2003 Excel
 
 
 
#3
20.12.2010 21:53:46
Намучаетесь Вы: дабы избежать ошибок с вводом дат, и не писать дополнительных проверок - используйте для ввода дат календарь. Можно взять его из раздела "Приемы". Потом поможем с остальным.
 
 
 
#4
20.12.2010 21:57:44
Ошибок ввода дат не будет, будут вводить через календарь, как можно реализать все остальное? подскажите пожалуйста.
 
 
 
#5
20.12.2010 22:01:44
Давайте форму с календарём: мне лень при отладке каждый раз вводить различные даты :-)
 
 
 
#6
20.12.2010 22:19:03
Добавил, только незнаю как значение календаря написать в бокс.
 
 
 
#7
20.12.2010 22:21:22
ой, не тот файл ((((
 
 
 
#8
20.12.2010 22:25:54
Этот правильный )
 
 
 
#9
20.12.2010 23:02:49
Вот очень упрощённый пример: контролируется разность дат > 30. Листы указаны конкретные. А если нужно отслеживать месяц и приравнивать к одноимённым листам, то код придётся усложнить. Но для "я сам поразбираюсь" - в самый раз :-)
 
 
 
#10
20.12.2010 23:12:43
Ой ей ей ей, кажется я ооочень погаречился )  все не так просто как я представлял ((((. Спасибо большое это то, что нужно.
 
 
 
#11
21.12.2010 00:31:23
как в вышеуказанном примере месяц бокса 1 можно превратить в текст для дальнешего сравнения с назнанием листа? подскажите пжл.
 
 
 
#12
21.12.2010 00:45:29
Успокойтесь. Юрий вот-вот будет. Это его программа, он ее и поправит. Сергей.
Я сам - дурнее всякого примера! ...
 
 
 
#13
21.12.2010 00:46:22
Dim iMonth As String  
   Select Case Month(CDate(Me.TextBox1))  
       Case 1: iMonth = "Январь"  
       Case 2: iMonth = "Февраль"  
       Case 3: iMonth = "Март"  
       Case 4: iMonth = "Апрель"  
       Case 5: iMonth = "Май"  
       Case 6: iMonth = "Июнь"  
       Case 7: iMonth = "Июль"  
       Case 8: iMonth = "Август"  
       Case 9: iMonth = "Сентябрь"  
       Case 10: iMonth = "Октябрь"  
       Case 11: iMonth = "Ноябрь"  
       Case 12: iMonth = "Декабрь"  
   End Select  
MsgBox iMonth
 
 
 
#14
23.12.2010 17:51:06
{quote}{login=KukLP}{date=21.12.2010 12:45}{thema=}{post}Успокойтесь. Юрий вот-вот будет. Это его программа, он ее и поправит. Сергей.{/post}{/quote}  
 
Читаю и не как не могу понять, к чему Вы это все написали??? Я задал вопрос и с терпением жду ответа. Считаю Ваше "успокойтесь" неуместно.
 
 
 
#15
23.12.2010 20:29:55
DOR, мой вариант Вам не подходит?
 
 
 
#16
23.12.2010 21:27:45
Юрий М, подходит, спб Вам за Вашу помощь. Просто мне не понятно вырожение KukLP по поводу успокойтесь. Ощущение такое как будто я сижу и спамлю, хотя я написал и терпиливо жду кто сможет мне помочь.
 
 
 
#17
23.12.2010 21:40:44
{quote}{login=DOR}{date=23.12.2010 09:27}{thema=}{post} Просто мне не понятно вырожение KukLP по поводу успокойтесь.{/post}{/quote}Не напрягайтесь.  
Всё Вы правильно делаете.  
Сори за КукИп.
 
 
 
Страницы: 1
Читают тему
Наверх