Никак не могу найти в VBA встроенную функцию, добавляющую элемент в конец динамического массива.
(аналог array_push() или Arr[] в PHP или push() в Perl)
также не получается найти встроенную функцию сортировки массивов (аналог sort() в PHP и Perl)

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

Dim arr() As String
Redim arr(1)

затем, мне надо в цикле просмотреть все строки одной таблицы («Лист1»), на каждой итерации просмотреть колонку второй таблицы («Лист2») и, если интересующие вхождения будут найдены, добавить новые элементы из ячеек «Лист1» в конец массива arr(), а по выходу из цикла, отсортировать этот массив arr() по алфавиту.

Моя конструкция

arr(UBound(arr) + 1) = tb.Cells(j, "C").Value

не срабатывает, ругается, что «Subscript out of range»

Если не трудно, подскажите, как решаются такие задачи в VBA!

(читать всё…)

Идея следующая — есть таблица и связанная с ней форма. В форме combobox (данные берет из таблицы). Необходима фильтрация по мере того как вводишь в combobox текст, чтобы предлагались только те результаты, которые соответствуют вводу. В силу того что я только начинаю осваивать данный предмет (ACCESS), для меня эта задача без помощи, неподъемная. Нужен пример, ибо только описание решения не поможет…

(читать всё…)

Пытаюсь макросом выписать из таблицы строки по определённому признаку. в процедуру передаю параметр «U», по которому производится отбор. Вторая таблица изначально пустая. Не получается добавить строку и заполнить её данными. И ещё: Параметр «U» Не уникален.
Уникальная строка получается только в сочетании с другим параметром.
Как лучше организовать поиск? Или при первом нахождении просто проверить второй параметр? и сделать FindNext

Set rst = dbs.OpenRecordset("*****")
rst.FindFirst "ИНомер ='" & U & " '"

Set rstN = dbs.OpenRecordset("*******")
rstN.FindFirst "ИНомер ='" & U & " '"

 If rstN.NoMatch Then

 rstN.AddNew
  For R = 0 To 4 ' эти поля являются ключевыми
  rstN(R) = rst(R)
  Next R
  rstN(5) = 1
  rstN(6) = "30.11.2011"
  rstN(7) = "30:21:12542/lk:200"
  rstN.Update ' на этой строке ругается
  Else

(читать всё…)

Подскажите пожалуйста как написать макрос в Excel для переноса данных из одного листа одной таблицы в создаваемые листы другой таблицы. Условия такие: есть таблица (Test), имеющая один лист (Лист1) с данными в трех столбцах, необходимо перенести информацию из ячеек столбцов «В» и «С» в другую таблицу (Nado), таким образом что ячейки первого столбца «А» первой таблицы (Test) должны стать названиями листов второй таблицы (Nado), при совпадении значений ячеек первого столбца «А» новая страница не должна создаваться, строки переносятся только на тот лист, который имеет название первой ячейки строки.

(читать всё…)

Уважаемые профи, помогите никак не соображу, есть два столбца в одном наименования, в другом необходимо присвоить уникальный номер для каждого уникального наименования.

(читать всё…)

Подскажите пожалуйста как упростить строку кода (vba excel 2003) ниже, для того чтобы выбрать одновременно 3 ячейки (для дальнейшего их объединения) относительно ячейки следующей вниз за последней заполненной в столбце А?

Range(Cells(Rows.Count, "A").End(xlUp).Offset(1),
    Cells(Rows.Count, "A").End(xlUp).Offset(1).Offset(0, 2)).Select

(читать всё…)

А в качестве блиц-примера — как бы вы подошли к построению оного семейства кривых (циклоид)?

(читать всё…)

Вопрос вот в чем: столбец «В» в таблице на листе 1 содержит входящие номера, а столбец «С» в таблице на листе 2 также содержит те же входящие номера, но не по порядку. Возможно ли в случае совпадения данных в 2-х таблицах в столбце к примеру «Н» в таблице на листе 1 в нужной ячейке было написано слово закрыто или какой нибудь символ?
И еще 1 вопрос: столбце «С» в таблице на листе 1 написана дата исполнения, а в столбце «А» в таблице на листе 2 написана дата отправления, возможно ли прописать что если дата в таблице на листе 2 равна или ранее даты указанной в столбце «А» таблице на 1 листе, то в столбце к примеру «Н» в таблице на листе 2 будет стоять +?

(читать всё…)

Как создать кнопку на форме, которая выполняла бы те же действие, что и маленькая кнопка «Новая запись (New Record)», расположенной в нижней части окна формы.

(читать всё…)

Суть вопроса такова, имеется .txt файл, его нужно открыть в exel указав путь к нему. Далее его необходимо отредактировать так, чтобы все текстовые и пустые строки были удалены. А данные из столбца в который все вставилось расформировались в отдельные. Так же необходимо чтобы строки с одинаковыми значениями в стоблцах B,C,D были удалены(одна из двух осталась).

(читать всё…)