Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Макрос: из данного вектора построить другой вектор, в котором нет нулевых элементов из первого https://www.cyberforum.ru/vba/thread2012900.html
With Application.Workbooks.Item("20file 3 sposob.xlsm") Worksheets("Лист3").Activate Range("A2:A20") = "=RANDBETWEEN(0,1)" Range("B2:B20") = "=IF(RC<>0,RC,"""")" End With End Sub Код...
Word. Заменить текст на ссылку VBA
Имеется следующий код: Dim link As String Dim tip As String 'RegExp Init Dim selText As String Dim RA As Range
Генератор модуля расширения клавиатуры для Word и описание программы VBA
Думаю, будет интересно для народа. http://www.tvitaly1.narod.ru/generator_modulja_rasshirenija_klaviatury2.zip
VBA Квадратичная интерполяция как в vba реализовать квадратичную интерполяцию функций двух переменных? https://www.cyberforum.ru/vba/thread2012682.html
VBA Отбор уникальных данных из двух диапазонов https://www.cyberforum.ru/vba/thread2012640.html
Доброе времени суток, Господа! Помогите мне автоматизировать свод базы данных, для месячной инвентаризации.Приложил маленький пример. В примере на листе "База" Я отметил цветами(оранжевым, и красным)...
Копирование листа из закрытой книги в открытую VBA
Добрые люди, пофиксите макрос, чтобы он запускался с панели инструментов для открытой книги... Sub nununu() Const fromFile = "\\___for___ribbon___\excel\IR_SERIALIZED.xlsx" Dim srcBook As...
Макрос - интересная производственная задача VBA
VBA Нужен код для замены фразы в ячейке Здравствуйте, умные помощники! Помогите еще раз с написанием кода. В столбце "А" список из цифр с фразами. В столбце "В" только цифры. Нужно, чтобы при совпадении цифр столбца "А" и "В" поменялась... https://www.cyberforum.ru/vba/thread2012330.html
VBA Необходимо в тексте убрать точку в конце типа в пунктах - типа 1.1. - заменить на 1.1 (не нумерацию, а ссылки) https://www.cyberforum.ru/vba/thread2012004.html
With ActiveDocument.Content.Find .ClearFormatting .MatchWildcards = True .Text = "({1;}) ({1;}.)>>" With .Replacement .ClearFormatting .Text = "/1 /2" End With .Execute Replace:=wdReplaceAll...
VBA Вывод в таблицу Здравствуйте! Скажите как сделать вывод в столбец "A" - Дату, в столбец "B" - время (почти получилось у меня), а из листа "БД" подтянуть случайным образом в колонку "C" - выполняемую работу, а в "D"... https://www.cyberforum.ru/vba/thread2011797.html
pie
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 124
06.07.2017, 06:35  [ТС] 0

Создание выпадающего списка в VBA Excel с использованием диспетчера имен

06.07.2017, 06:35. Просмотров 2297. Ответов 4
Метки (Все метки)

Ответ

Добрый день.
Все перепробовал, но не могу сделать второй зависимый список через VBA. Выводит ошибку.
Сперва пробовал с помощью формулы выше, теперь так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub CommandButton1_Click()
    Dim wb As Workbook
    Dim wsh As Worksheet
    Dim row As Integer
    
    Set wb = ActiveWorkbook
    Set wsh = wb.Worksheets(1)
    row = wsh.Cells(1, 1).Value
    
    wsh.Rows(row).Insert
    
    wsh.Cells(row, 2).Value = row
        
     With wsh.Cells(row, 3).Validation
        .Add Type:=xlValidateList, Formula1:="=ссылки1"
    End With
    
    q = wsh.Cells(1, 11).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    w = wsh.Cells(row, 3).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    e = wsh.Range(Cells(2, 11), Cells(5, 11)).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    
    With wsh.Cells(row, 4).Validation
        .Add Type:=xlValidateList, Formula1:="=СМЕЩ(" & q & "; ПОИСКПОЗ(" & w & "; " & e & "; 0); 1; СЧЁТЕСЛИ (" & e & ", " & w & "); 1)"
    End With
    
    wsh.Cells(1, 1).Value = wsh.Cells(1, 1).Value + 1
End Sub


Вернуться к обсуждению:
Создание выпадающего списка в VBA Excel с использованием диспетчера имен
0
Миниатюры
Создание выпадающего списка в VBA Excel с использованием диспетчера имен  
Вложения
Тип файла: zip Протокол по ПБ v2.zip (18.2 Кб, 5 просмотров)
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.07.2017, 06:35

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Создание выпадающего списка как в яндексе или Т9
Привет профессионалам, может кто знает как это сказать. Вопрос следующчий возможно сделать такую...

Как задать диапазон имен для рабочей книги в VBA Excel?
Добрый день. Нужна помощь с несколькими вопросами по vba excel: 1. Для создания сводной таблицы я...

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

Скопировать строку Excel, за текущей строкой если из выпадающего списка выбрать второе значение в ячейке
Добрый день, никак не получается совместить макрос который я пытаюсь совместить Есть макрос...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.