Добрый день! Мне нужно сделать так чтоб я в жёлтой ячейке в списке выбирала условие (столбец М),а в результате в ячейке отражался буквенный код (из столбца L).
Добрый день! Мне нужно сделать так чтоб я в жёлтой ячейке в списке выбирала условие (столбец М),а в результате в ячейке отражался буквенный код (из столбца L).Надёнка
Ну подскажите, пожалуйста! Не могу я сама, пол дня пытаюсь.... [moder]У меня очередной взрыв мозга! Если бы эти цитаты были в обратном порядке - тогда все нормально, а так ...
Ну подскажите, пожалуйста! Не могу я сама, пол дня пытаюсь.... [moder]У меня очередной взрыв мозга! Если бы эти цитаты были в обратном порядке - тогда все нормально, а так ...
Я понимаю, что можно и вручную выбрать, крутить вверх вниз страничку, чтоб посмотреть символ. Хочется чтоб красиво. Для этого и созданы формулы.
Я понимаю, что можно и вручную выбрать, крутить вверх вниз страничку, чтоб посмотреть символ. Хочется чтоб красиво. Для этого и созданы формулы.Надёнка
не путайте тёплое с мягким - выпадающие списки позволяют упростить ввод значения, а не вычислить его. Нельзя в ячейку втыкать значение и в ней же по формуле что-то подтягивать. Как вариант - Listbox - он становится видимым когда клацаете по ячейкам столбца G - двойным кликом по списку вводите значение [vba]
Код
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Long, v, s As String v = ListBox1.List For i = LBound(v, 1) To UBound(v, 1) If ListBox1.Selected(i) Then s = v(i, 0) Next On Error Resume Next ActiveCell = s End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("G5", "G31"), Target) Is Nothing Then ListBox1.Left = ActiveCell.Left + 50 ListBox1.Top = ActiveCell.Top + 30 ListBox1.Visible = True Else ListBox1.Visible = False End If End Sub
[/vba]
Цитата
Для этого и созданы формулы.
не путайте тёплое с мягким - выпадающие списки позволяют упростить ввод значения, а не вычислить его. Нельзя в ячейку втыкать значение и в ней же по формуле что-то подтягивать. Как вариант - Listbox - он становится видимым когда клацаете по ячейкам столбца G - двойным кликом по списку вводите значение [vba]
Код
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Long, v, s As String v = ListBox1.List For i = LBound(v, 1) To UBound(v, 1) If ListBox1.Selected(i) Then s = v(i, 0) Next On Error Resume Next ActiveCell = s End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("G5", "G31"), Target) Is Nothing Then ListBox1.Left = ActiveCell.Left + 50 ListBox1.Top = ActiveCell.Top + 30 ListBox1.Visible = True Else ListBox1.Visible = False End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("g5:g30")) Is Nothing Then u = Target For Each c In Range("l6:l23") If c = u Then Target = c.Offset(0, 1) End If Next End If End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("g5:g30")) Is Nothing Then u = Target For Each c In Range("l6:l23") If c = u Then Target = c.Offset(0, 1) End If Next End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("g5:g30")) Is Nothing Then u = Target For Each c In Range("m6:m23") If c = u Then Target = c.Offset(0, -1) End If Next End If End Sub
[/vba]
Nic70y, ТС вроде наоборот надо: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("g5:g30")) Is Nothing Then u = Target For Each c In Range("m6:m23") If c = u Then Target = c.Offset(0, -1) End If Next End If End Sub