|
|
Другие темы раздела | |
VBA Как передать "" через formulalocal? Добрый день! мне нужно записать в ячейку ЕСЛИ(A1<>"";A1*2;#Н/Д), записываю через макрос ActiveCell.FormulaLocal= "=ЕСЛИ(A1<>"";A1*2;#Н/Д)" Возникает ошибка, из-за того, что нельзя передавать "" через FormulaLocal. Как тогда проверить, если ли данные в A1? https://www.cyberforum.ru/ vba/ thread1492434.html |
VBA Как проверить результат фильтрации данных на <пусто> Фильтрую количество строк N по столбцу IDcol (номер столбца) ,используя массив аргументов отбора Array(pol2) ActiveSheet.Range("$A$1:$w$" & CStr(N)).AutoFilter Field:=IDcol, Criteria1:=Array(pol2), Operator:=xlFilterValues Фильтрация дает пустышку (как вариант отбора). В окне Watches значение Range("A2:A" & N).SpecialCells(xlCellTypeVisible) равно <Не найдено ни одной ячейки,... |
VBA Установка полужирного шрифта на знаки препинания рядом со словом Здравствуйте! Есть огромный текст, много слов в полужирном шрифте. Но некоторые знаки препинания, которые находятся рядом с такими словами, имеют обычное, не полужирное начертание. Как можно с помощью макроса установить для знаков препинания такой-же шрифт и начертание, как и у слова, к которому они прилеплены? Например слово МОЛОКО. - слово жирное, а точка - нет (ну или наоборот). Речь о... https://www.cyberforum.ru/ vba/ thread1492228.html | VBA Образовать из двух упорядоченных последовательностей третью, сохранив упорядоченность (без доп. массива) Даны две последовательности a1<=a2<=...<=an и b1<=b2<=...<=bn. Образовать из них новую последовательность чисел так, чтобы она была неубывающей. Дополнительный массив не использовать. Добавлено через 42 секунды Честно не догоняю как решить не используя дополнительный массив https://www.cyberforum.ru/ vba/ thread1492032.html |
VBA Прокоментируйте код Private Sub Userform_initialize() n = Range("F3").Value With ComboBox1 .AddItem "ПКС-11" .AddItem "ПКС-12" .AddItem "ОРУМ-12" .AddItem "ПРУМ-11" .AddItem "ПРУМ-12" .AddItem "1ТОА-11" .AddItem "2ТОА-11" |
VBA Получить координаты первой (левой верхней) выделенной ячейки
https://www.cyberforum.ru/ vba/ thread1491857.html Добрый день, есть ячейки со значениями в одной строке, надо их совместить в первую ячейку. Вопрос - как получить координаты первой (левой верхней) выделенной ячейки. Dim final As String Dim cell As Excel.Range For Each cell In Selection final = final & " " & cell.Value & " " Next cell 'final надо передать в первую из выделенных ячеек. |
VBA Исследовать биквадратное уравнение
https://www.cyberforum.ru/ vba/ thread1491771.html Даны действительные числа а, b, с (а > 0). Полностью исследовать би-квадратное уравнение ах4 + bх2 + с = 0, то есть если действительных корней нет, то должно быть выдано сообщение об этом, иначе найти действительные корни, сообщив, сколько из них являются различными. Прошу помочь :( |
VBA Сравнение двух диапазонов по последней строке Здравствуйте, Проблема такова. Необходимо сравнить значения в последних строках двух диапазонов, находящихся на одной странице. Количество столбцов и диапазонах одинаковое. Диапазоны пополняющиеся (в первый значения вносятся вручную, во втором через Userform и оба строятся одна под другой). Если значения в ячейках совпадают, тогда совпавшая ячейка закрашивается цветом. Поиски в интернете не... |
VBA Импорт данных в несколько файлов в Excel
https://www.cyberforum.ru/ vba/ thread1491747.html Есть несколько файлов в ексель, в которые нужно всавить информацию, например название или имя работника. Попытался написать макрос с циклом, но что-то не получается... выдаёт ошибку "Run-time-error 424 object required" Sub Paste() Dim r As String r = InputBox("Data", "Inputs") Dim SelectedFiles() As Variant SelectedFiles = Application.GetOpenFilename( _ |
VBA Процент совпадения значения в ячейках Всем привет. Нужна помощь. Необходимо сравнить две ячейки на совпадения. Результат вывести в процентах. Сравнить нужно не просто слова, а и например если разница и в одной букве. Например. 1 значение шла саша по шоссе и сосала сушку 2 значение саша шла по шоссе и сосала сушку либо https://www.cyberforum.ru/ vba/ thread1491662.html |
VBA Цикл по выделенным элементам списка Доброго времени суток! Есть поле со списком на форме. В нем выделены некоторые элементы. Мне нужно составить цикл на VBA, в котором с каждым выделенным элементом списка будут проводиться какие-либо действия. Фото со списком и элементами прилагается. Прошу помощи. Работаю в Access 2010. |
VBA Прокомментировать код
https://www.cyberforum.ru/ vba/ thread1491593.html Есть кнопки на них есть код его надо прокомментировать все напианно с помощью VBA 1 Кнопка Private Sub CommandButton1_Click() c = 3 s = Trim(Str(c + n)) Range("A" + s).Value = n + 1 Range("B" + s).Value = TextBox1.Text Range("C" + s).Value = ComboBox1.Value |
3920 / 2317 / 785
Регистрация: 02.11.2012
Сообщений: 6,162
|
|
04.07.2015, 09:58 | 0 |
Сделать выборку значений из массива типа Range - VBA - Ответ 783677004.07.2015, 09:58. Показов 3000. Ответов 9
Метки (Все метки)
Ответ
1. вам хотят сказать что функция не может менять диапазоны, соответственно вам нужна не функция а обычный макрос.
2. "aa As Range" массив так не объявляется, нужно так aa(). Вернуться к обсуждению: Сделать выборку значений из массива типа Range VBA
0
|
04.07.2015, 09:58 | |
Готовые ответы и решения:
9
Как сделать выборку по полю типа smalldatetime? Как сделать выборку из таблицы каждые 10 или n-ое кол-во значений Как сделать выборку с проводок и выгрузить в таблицу значений в 1с77? Помогите с функциями в Excel.... Есть набор значений нужно сделать выборку |
04.07.2015, 09:58 | |
04.07.2015, 09:58 | |
Помогаю со студенческими работами здесь
0
SLQ. Как сделать выборку значений из одного столбца в каждый отдельно? Как сделать выборку из массива? Как сделать выборку элементов из массива? Как сделать выборку из массива по длине строк и отсортировать ее по алфавиту? |