открытие выпадающего списка при выборе ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » открытие выпадающего списка при выборе ячейки (Макросы Sub)

krosav4ig

Дата: Среда, 05.03.2014, 16:53 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

есть столбец с проверкой данных с выбором значений из списка. Нужно чтобы при выборе ячейки из этого столбца автоматически открывался выпадающий список
пока кроме этого ничего в голову не идет

[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 10 Then
'Cells(Target.Row, Target.Column).???
End If
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Попутчик.

Дата: Четверг, 06.03.2014, 09:10 | Сообщение № 2

Группа: Гости

Ответил на эл.почту.

Ответить

Pelena

Дата: Четверг, 06.03.2014, 11:11 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19195

Репутация: 4423 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата Попутчик., 06.03.2014 в 09:10, в сообщении № 2

Ответил на эл.почту.

А что ж не здесь? За нарушение Правил форума можно и бан схлопотать

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Stormy

Дата: Четверг, 06.03.2014, 13:47 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 357

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

Создание выпадающего списка в ячейке речь об этом?

Место для рекламы.

Ответить

krosav4ig

Дата: Пятница, 07.03.2014, 17:00 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Выпадающий список в ячейке у меня есть, мне нужно чтобы этот список появлялся автоматически при получении фокуса ячейкой. Выкладываю файл, в нем это нужно сделать в 10 столбце с 3й строки. И в этом же файле еще у меня вопрос по условному форматированию

[vba]

Код

30        lastrow = ActiveSheet.UsedRange.Rows.Count +ActiveSheet.UsedRange.Rows.Row - 1
40        lastcol = ActiveSheet.UsedRange.Column +ActiveSheet.UsedRange.Columns.Count - 1

...

440       Range(Cells(3, 1), Cells(lastrow, lastcol)).Select
450       Selection.FormatConditions.Add Type:=xlExpression,Formula1:="=RC1<>R[1]C1"
460       Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
470       With Selection.FormatConditions(1).Borders(xlBottom)
                    '???????????????????????
                    .LineStyle = xlContinuous
                    .TintAndShade = 0
                    .Weight = xlThin
480       End With
490       With Selection.FormatConditions(1).Interior
500           .PatternColorIndex = xlAutomatic
510           .Color = 65535
520           .TintAndShade = 0
530       End With
540       Selection.FormatConditions(1).StopIfTrue = False

[/vba]
что тут не так?

и еще 1 вопрос
Если вот тут стоит Range(Cells(2, 1), Cells(lastrow, lastcol))

[vba]

Код

220       Range(Cells(2, 1), Cells(lastrow,lastcol)).Select
230       Selection.FormatConditions.Add Type:=xlExpression,Formula1:= _
                    "=ЯЧЕЙКА(""строка"")=СТРОКА()"
240       Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
250       With Selection.FormatConditions(1).Interior
260           .PatternColorIndex = xlAutomatic
270           .ThemeColor = xlThemeColorLight2
280           .TintAndShade = 0.799981688894314
290       End With
300       Selection.FormatConditions(1).StopIfTrue = False

[/vba]
то макрос успешно срабатывает, но мне нужно чтобы было Range(Cells(3, 1), Cells(lastrow, lastcol))
но тогда ниже вот тут ругается

[vba]

Код

310       Range(Cells(1, 2), Cells(lastrow, lastcol - 1)).Select
320       Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
               "=ЯЧЕЙКА(""столбец"")=СТОЛБЕЦ()"
330       Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
340       With Selection.FormatConditions(1).Font
                 '???????????????????????
350           .ThemeColor = xlThemeColorLight1
360           .TintAndShade = 0
370       End With
380       With Selection.FormatConditions(1).Interior
390           .PatternColorIndex = xlAutomatic
400           .ThemeColor = xlThemeColorLight2
410           .TintAndShade = 0.799981688894314
420       End With
430       Selection.FormatConditions(1).StopIfTrue = False

[/vba]

танцы с бубном вокруг экселя ни к чему не привели

Код

[/vba]
что тут не так?

и еще 1 вопрос
Если вот тут стоит Range(Cells(2, 1), Cells(lastrow, lastcol))

[vba]

Код

[/vba]

танцы с бубном вокруг экселя ни к чему не привели

krosav4ig

К сообщению приложен файл: 1747169-1-.xlsm (34.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 07.03.2014, 17:22

Ответить

СообщениеВыпадающий список в ячейке у меня есть, мне нужно чтобы этот список появлялся автоматически при получении фокуса ячейкой. Выкладываю файл, в нем это нужно сделать в 10 столбце с 3й строки. И в этом же файле еще у меня вопрос по условному форматированию

[vba]

Код

[/vba]
что тут не так?

и еще 1 вопрос
Если вот тут стоит Range(Cells(2, 1), Cells(lastrow, lastcol))

[vba]

Код

[/vba]

танцы с бубном вокруг экселя ни к чему не привели

Автор - krosav4ig
Дата добавления - 07.03.2014 в 17:00

Мир MS Excel » Вопросы и решения » Вопросы по VBA » открытие выпадающего списка при выборе ячейки (Макросы Sub)

Страница 1 из 1
1