Скажите пожалуйста, как исправить код ниже (vba excel 2003), чтобы форма открывалась располагаясь сразу под кнопкой («Shapes(имя)»), щелкая по которой эта формы и вызывается?

Private Sub UserForm_Initialize()
With Me
 .StartUpPosition = 0
 .Top = ActiveSheet.Shapes(имя).Top
 .Left = ActiveSheet.Shapes(имя).Left
End With
End Sub

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

Подскажите пожалуйста как запретить следующее действие: при вводе значения в textbox1 (на форме) и последующего нажатия клавиши ESC происходит очищение textbox1?

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

нужна помощь. я далёк от программирования(30 лет назад изучал). если не трудно ответьте попроще.
копирую(тупо через блокнот в эксел) таблицы с сайта(одна и та же ежедневно обновляемая) . в одном столбце в ячейках текст, при наведении на который всплывает title с небольшим текстом. он мне нужен в виде ещё одного столбца таблицы или ещё как. то есть чтоб он был виден не только при наведении курсора. как быть?

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

Честно говоря, несколько ошарашен отсутствие в VBA подобных встроенных функций (push, pop, shift, unshift, sort и т.д.), без них становиться совсем грустно…
Нормального справочника с примерами по VBA тоже не могу найти. Кстати, может подскажите такой?

Как же, все-таки, наиболее быстро и грамотно сортировать массивы строк?

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

Никак не могу найти в 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!

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

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

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

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

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

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

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

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

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

Вот макрос на удаление столбца «C» по заданному условию «пусто» в ячейки «c2». Необходимо изменить макрос таким образом, чтобы при сохранении условия «пусто» в ячейке «c2» можно было удалять любой другой столбец.

Sub kmd()
For Each c In Range(«c2:c2»)
If c = пусто Then c.EntireColumn.Delete
Next
End Sub

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