|
29.10.2010 16:49:12
как вариант создать список из возможных сочетаний через пробел
|
|
|
|
|
|
29.10.2010 16:50:03
А где должны быть списки? Из примера ничего не ясно.
|
|
|
|
|
|
29.10.2010 16:52:15
Похожая тема была:
См. мой пост от 12.08.2010, 14:37. Что надо изменить для Вашей задачи? |
|
|
|
|
|
29.10.2010 16:52:31
в выделенной ячейке.
|
|
|
|
|
|
29.10.2010 16:57:56
{quote}{login=Казанский}{date=29.10.2010 04:52}{thema=}{post}Похожая тема была:
См. мой пост от 12.08.2010, 14:37. Что надо изменить для Вашей задачи?{/post}{/quote} тема похожая, но не для меня. Смотрел ее. Нужно чтобы при клике на желтую ячейку, вылетал список (о, П, Н, и т.д) и можно было выбрать несколько значений. и чтобы эти значения стали в желтую ячейку, либо через запятую, либо еще как то. |
|
|
|
|
|
29.10.2010 18:16:47
смотрите пойдет?
|
|||
|
|
|
|
01.11.2010 08:21:23
{quote}{login=R Dmitry}{date=29.10.2010 06:16}{thema=Re: Re: }{post}смотрите пойдет?{/post}{/quote}
Спасибо. Но не совсем то. Хотелось бы попроще, чтобы можно было легко добавлять еще критерии выбора, т.е. список на самом деле может увеличиваться. да и пенсионеры мои, при клике на ячейку - скорее испугаются, и не поймут что надо делать:) С удовольствием и нетерпением буду ждать еще вариантов. |
|
|
|
|
|
01.11.2010 09:31:17
Люди! помогите! Очень надо. Подкиньте еще вариантов решения моего вопроса.
|
|
|
|
|
|
01.11.2010 09:36:15
{quote}{login=}{date=01.11.2010 09:31}{thema=}{post}Люди! помогите! Очень надо. Подкиньте еще вариантов решения моего вопроса.{/post}{/quote}
чего кричать то вот вам динамически, поменяйте этот код в форме Private Sub UserForm_Initialize() ListBox1.List = Range("B17:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value End Sub
|
|||
|
|
|
|
01.11.2010 09:38:46
да и опишите алгоритм действий который для Ваших пенсионеров простой
:)
|
|||
|
|
|
|
01.11.2010 09:58:02
{quote}{login=R Dmitry}{date=01.11.2010 09:38}{thema=}{post}да и опишите алгоритм действий который для Ваших пенсионеров простой
:){/post}{/quote} Становишься в ячейку - вылетает список, напротив каждого значения - галочка - проставляешь нужные и все попадает в ячейку:) |
|
|
|
|
|
01.11.2010 10:04:56
{quote}{login=}{date=01.11.2010 09:58}{thema=Re: }{post}{quote}{login=R Dmitry}{date=01.11.2010 09:38}{thema=}{post}да и опишите алгоритм действий который для Ваших пенсионеров простой
:){/post}{/quote} Становишься в ячейку - вылетает список, напротив каждого значения - галочка - проставляешь нужные и все попадает в ячейку:){/post}{/quote} с галочками сложнее они должны быть динамическими, а это уже тродозатраты:)
|
|||
|
|
|
|
01.11.2010 10:12:54
может так? без макроса, просто.
|
|
|
|
|
|
01.11.2010 10:49:03
{quote}{login=i need help}{date=01.11.2010 10:12}{thema=}{post}может так? без макроса, просто.{/post}{/quote}
Так хорошо, - так я тоже умею. Но надо чтобы несколько вариантов выбиралось из списка одновременно. |
|
|
|
|
|
01.11.2010 11:49:41
нужны еще варианты.....
|
|
|
|
|
|
06.09.2011 22:24:44
У меня та же необходимость. Ваш макрос очень помог. Только нужно чтоб форма активировалась лишь при нажатии на ячейки определенного столбца. Подскажите, пожалуйста, как это реализовать? И еще.. Возможно ли, чтобы список для формы
"тянулся" с другого листа? Как это можно сделать? Заранее спасибо! |
|
|
|
|
|
06.09.2011 22:34:18
Смотрите: форма будет вызываться только при активации ячейки из "жёлтого" диапазона. Данные для него на другом листе.
|
|
|
|
|
|
07.09.2011 11:05:48
смотрите пойдет?
_______________________ Skype RDG_Dmitry ______ mail dg_rusak@mail.ru Если программа тебе понятна,значит она уже устарела ...................... Thank_you_WM:_R269866874234 U144446690328 К сообщению прикреплен файл: post_169520.xls Хороший пример! А можно ли сделать так, чтобы после ":" , второе (третье и т.д.) введенное слово (буква) из списка смещалось вниз, как при нажатии Alt+Enter? Чтоб было не так О:Р, а вот так: О: Р И чтоб все этовмещалось в одну ячейку? Спасибо. |
|
|
|
|
|
07.09.2011 11:12:28
{quote}{login=piratxp}{date=07.09.2011 11:05}{thema=Re: Re: Re: }{post}смотрите пойдет?
_______________________ К сообщению прикреплен файл: post_169520.xls Хороший пример! А можно ли сделать так, чтобы после ":" , второе (третье и т.д.) введенное слово (буква) из списка смещалось вниз, как при нажатии Alt+Enter? Чтоб было не так О:Р, а вот так: О: Р И чтоб все это вмещалось в одну ячейку? Спасибо.{/post}{/quote} Private Sub CommandButton1_Click() Dim i&, str$, str1$ For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then str = ListBox1.List(i) str1 = str1 & ":" & str: str = "" End If Next ActiveCell = Mid(str1, 2) End Sub Private Sub UserForm_Initialize() ListBox1.List = Range("B17:B21").Value End Sub Что нужно поменять в коде, чтобы исполнить команду Alt+Enter? |
|
|
|
|
|
07.09.2011 12:22:44
{quote}{login=piratxp}{date=07.09.2011 11:12}{thema=Re: Re: Re: Re: }{post}{quote}{login=piratxp}{date=07.09.2011 11:05}{thema=Re: Re: Re: }{post}смотрите пойдет?
_______________________ К сообщению прикреплен файл: post_169520.xls Хороший пример! А можно ли сделать так, чтобы после ":" , второе (третье и т.д.) введенное слово (буква) из списка смещалось вниз, как при нажатии Alt+Enter? Чтоб было не так О:Р, а вот так: О: Р И чтоб все это вмещалось в одну ячейку? Спасибо.{/post}{/quote} Private Sub CommandButton1_Click() Dim i&, str$, str1$ For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then str = ListBox1.List(i) str1 = str1 & ":" & str: str = "" End If Next ActiveCell = Mid(str1, 2) End Sub Private Sub UserForm_Initialize() ListBox1.List = Range("B17:B21").Value End Sub Что нужно поменять в коде, чтобы исполнить команду Alt+Enter?{/post}{/quote} И еще подскажите пожалуйста, как сделать, чтобы табличка автоматически исчезала после нажатия на клавишу CommandButton1? |
|
|
|
|
|
07.09.2011 16:20:00
{quote}{login=piratxp}{date=07.09.2011 12:22}{thema=Re: Re: Re: Re: Re: }{post}{quote}{login=piratxp}{date=07.09.2011 11:12}{thema=Re: Re: Re: Re: }{post}{quote}{login=piratxp}{date=07.09.2011 11:05}{thema=Re: Re: Re: }{post}смотрите пойдет?
_______________________ К сообщению прикреплен файл: post_169520.xls Хороший пример! А можно ли сделать так, чтобы после ":" , второе (третье и т.д.) введенное слово (буква) из списка смещалось вниз, как при нажатии Alt+Enter? Чтоб было не так О:Р, а вот так: О: Р И чтоб все это вмещалось в одну ячейку? Спасибо.{/post}{/quote} Private Sub CommandButton1_Click() Dim i&, str$, str1$ For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then str = ListBox1.List(i) str1 = str1 & ":" & str: str = "" End If Next ActiveCell = Mid(str1, 2) End Sub Private Sub UserForm_Initialize() ListBox1.List = Range("B17:B21").Value End Sub Что нужно поменять в коде, чтобы исполнить команду Alt+Enter?{/post}{/quote} И еще подскажите пожалуйста, как сделать, чтобы табличка автоматически исчезала после нажатия на клавишу CommandButton1?{/post}{/quote} Все, задача решена, спасибо Юрий М. Private Sub CommandButton1_Click() Dim i&, str$, str1$ For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then ' str = ListBox1.List(i) ' str1 = str1 & "; " & str: str = "" If ActiveCell = "" Then ActiveCell = ListBox1.List(i) Else ActiveCell = ActiveCell & ";" & Chr(10) & ListBox1.List(i) End If End If Next 'ActiveCell = Mid(str1, 2) Unload Me End Sub |
|
|
|
|
|
16.11.2011 10:05:58
Всем привет! В продолжении темы, подскажите как сделать что бы значения выпадающего списка (с возможностью выбора нескольких значения, как здесь реализовано) зависили от значения в предыдущем столбце, т.е. количество записей в списке и их наименования были связаны со значениями из столбца A
Заранее спасибо. |
|
|
|
|
|
16.11.2011 11:14:16
{quote}{login=сапожище}{date=16.11.2011 10:05}{thema=}{post}Всем привет! В продолжении темы, ..........................
Заранее спасибо.{/post}{/quote} Слово таблица удалите Private Sub UserForm_Initialize() Dim arr(), t$, i&, j& arr = Range("B17").CurrentRegion.Value t = Cells(ActiveCell.Row, 1).Value ListBox1.ListStyle = fmListStyleOption For i = 1 To UBound(arr, 2) If LCase(t) = LCase(arr(1, i)) Then For j = 2 To UBound(arr) ListBox1.AddItem arr(j, i) Next Exit For End If Next End Sub
|
||||
|
|
|
|||
