Помогите пожалуйсиа написать программу с условием:
1)Найти все натуральные числа а, в и с из интервала от 1 до 20, для которых выполняется равенство а^2 + в^2 = с^2.
2)Дано натуральное число. Верно ли, что в данном числе цифра А встречается более двух раз. А задается.

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

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

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

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

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

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

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

Нужно из таблицы в 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?

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

Вот макрос на удаление столбца «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 и так далее.
(читать всё…)