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

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

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

Выделяю группу (сгруппированы Shap’ы и надписи) щелчком. По периметру высвечиваются 8 белых кружочков. Все хорошо. Я в VB работаю, как с группой и надо мне сделать Ungroup. И работает.
А вот если сгоряча щелкнуть дважды (в руке дрогнул пистолет), то выделяется не просто группа, а еще и её элемент (он обрамляется своими ручками управления — серыми кружочками).  И вот в этом случае при попытке Ungroup получаю: Run-time error…
Данный компонент недоступен на объекте из группы. Как распознать эту ситуацию в VBA (Word 2003)?

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

Как осуществить слияние таблицы Excel с шаблоном Word, если нужно разместить несколько строк на одном листе шаблона? То есть, в Excel у меня десять строк, а в шаблон нужно вставить данные из двух строк, соответственно если применить «слияние» должно получится 5 листов.

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

Подскажите, можно ли вести учёт количества нажатий на гиперссылку, в соседней ячейки, что-бы можно было отследить, какой документ открывается чаще?

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

Необходим макрос удаления каждой 2,3,4,5,6 ячейки и так по циклу, оставляя при этом 1,7,13 и так далее.
(читать всё…)

Хочу попробовать создать файл — простейший аналог R-keeper.
Суть: на вкладке «Приход» вводятся продукты; при нажатии на кнопку, на вкладке «Склад» суммируются имеющиеся значения с позициями, указанными в «Приходе».
Аналогично должно вычитаться на вкладке «Расход»
Подскажите, как можно решить это макросом?

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

Сравниваем столбец А со столбцом С с помощью макроса, после выполнения повторяющиеся значения размещаются в столбец В и напротив таких же значений из столбца А.

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

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

У меня есть лист1, на котором есть некоторое количество кнопок.
Среди них есть CommandButton2
как, находясь на листе2, макросом скопировать эту кнопку в конкретное место на листе1, например спозиционировать новую кнопку по ячейке С24 и задать новое имя кнопке (.Name, а не .Caption), чтобы я знал это имя и использовал в дальнейшем в работе.

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

нужно проверить через код вба в 1 строке с 1 по 10 ячейки с данными на применено ли на каждую условное форматирование. если да то очистить ее от данных если нет то пропустить.

сама формула условного форматирования =деньнед( b1;2)>5 где b1 ячейка с датой.

мне в основном нужно условие допустим я выделяю программно ячейку 1 и проверяю подверглась ли она условному форматированию если да очищаем от данных если нет ничего не делаю перехожу к следующей ячейки

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

Не могу понять как узнать номер строки последнего разрыва страницы.

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