Подскажите как можно работать с мышью — передвижение курсора, эмуляция нажатий.

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

Изменить регистр введенного символа на противоположный по всей строке. Обязательно использовать команду scas. Строку описать в сегменте данных.

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

Нужно из таблицы в Access выбрать данные по определенным условиям и вставить их в определенные ячейки в Excel. Данных, которые нужно выбрать очень много, поэтому хотелось бы записать данные в рекордсет и потом через него выбирать данные по критериям.

connDB.ConnectionString = «Provider=Microsoft.ace.oledb.12.0; data source=» & Path
connDB.Open
Set rs = connDB.Execute(«Select * from » & Table)
Range(«A1»).CopyFromRecordset rs

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

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

Написать программу, которая удаляет три символа в начале слов, оканчивающихся на th.

К примеру задаю строку ghghjhth jdfkth shfjth hjsjhfj
Программа должна вывести hjhth kth jth hjsjhfj

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

Найти наименьший номер элемента последовательности, для которого выполняется условие: |a[n]-a[n-1]|<e. Вывести на экран этот номер и все элементы a, где i=1,2,…,n.
a[n]=1/((3n-2)(3n+1))

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

Все элементы матрицы X (n x n), лежащие ниже главной диагонали, заменить средним арифметическим элементов, значение которых меньше номера столбца.

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

Сформировать одномерный массив, состоящий из произведений четных элементов, располагающихся в четных строках матрицы X (n x m).

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

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

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

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

Нужна отправлялка по электронной почте письма с вложением.
Отправлялку я имею, но вот есть две проблемы на данный момент:
1. Не отображается в тексте полученного письма русский текст, а вместо него вопросительные знаки;
2. Не отправляется вложение, ответ приходит в программу, что типа почтовый сервер принимает мое вложение за спам и посылает меня в поддержку.
(читать всё…)

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

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