|
|
| Другие темы раздела | |
| VBA Создание границы в Excel при вызове макроса из Word'а Доброго времени суток! Проблема следующая: В Word'е выполняется макрос, который в определённый момент вызывает Excel. Создаёт средствами Excel таблицу и прорисовывает границы. Заковырка заключается в том, что при попытке нарисовать границы, возникает ошибка 1004: "Application-defined or object-defined error" Подскажите, как можно решить проблему. Ниже код. Private Sub... https://www.cyberforum.ru/ vba/ thread81056.html |
VBA Программа для идеальной СМО Здравствуйте, уважаемые программисты! Есть программа для реальной системы массового обслуживания. Заявки без приоритетов. Заявки обслуживаются по принципу первым пришла, первым обслуживается. Сдедовательно если есть очередь, то заявки добавляются в массив turn с временем прихода (TOA) (функция add_turn (turn, TOA). Потом массив сортируется (функция SORT (turn, TOA)) и находится элемент с... |
| VBA Вычисление экспоненты средствами VBA Есть уравнение http://xmages.net/upload/9ed020aa.jpg при 1<=x<=2, dx=0.2 С чего начать, чтобы вычислить его средствами VBA в Exel? https://www.cyberforum.ru/ vba/ thread80932.html | VBA Активизация документа при автоматизации Word Всем доброе время суток ! Код Sub test() Dim WordApp As New Word.Application WordApp.Visible = True With WordApp .Documents.Add With .Selection https://www.cyberforum.ru/ vba/ thread80388.html |
|
Заполнить массив из 100 элементов случайными числами VBA Задание: Заполнить массив из 100 элементов случайными числами от 0 до 1000. Отсортировать массив, организовать поиск числа в массиве.:help: Решение: Dim x(100) As Integer For N = 1 To 1000 x(N) = Int(Rnd * 1000 + 1) |
VBA код массива помогите, пожалуйста подправить код чтоб он мог считать возрастает, убывает, или невозрастает и не увывает одномерный массив ... код : Sub test() Dim n As Integer n = CDbl(InputBox("Вводим n")) i = 1 While Cells(i, 1).Value > Cells(i + 1).Value i = i + 1 If i = n Then MsgBox ("Ряд убывающий") https://www.cyberforum.ru/ vba/ thread79850.html |
|
VBA Выяснить, является ли последовательность возрастающей
https://www.cyberforum.ru/ vba/ thread79795.html Дана последовательность действительных чисел a1,a2,a3,..,an. Выяснить, будет ли она возрастающей... я написал код, но чо то он не работает -,- собственно сам код: Private Sub CommandButton1_Click() Dim i, j, x, n As Integer n = InputBox("Вводим n") For i = 1 To n - 1 If Cells(1, i) < Cells(1, i + 1) Then Cells(2, i) = x End If |
VBA Сколько совершенных чисел в диапазоне [a:b] Сколько совершенных чисел в диапазоне ? |
|
VBA Запрос в VBA Excel
https://www.cyberforum.ru/ vba/ thread79529.html заданы три файла (таблицы) такой структури:1.код магазина, название магазина.2.код товара, название товара.3.код магазина код товара стоимость поставки товара.Считая файлы уже созданными, написать программу и отладить VBA программу, которая выдает на дисплей ответ на запрос, : названия магазинов, в которые поступил чоча бы один товар с названием "Хлеб", но не поступил ни один товар с названием... |
VBA Для заданного натурального н найти сумму первых н четных
https://www.cyberforum.ru/ vba/ thread79517.html Нам на зачет задали 4 задачи. у меня есть решения, но они решенные в бейсике. я попробывала забить их в ексель, но серовно программа не работает. я думаю, отличия незначительные, но я незнаю какие.. может кто-нибудь помочь исправить задачи, чтоб они работали в екселе. 1) для заданного натурального н найти сумму первых н четных (при н- четном) или сумму первых н не четных (при н не четных) ... |
|
Найти сумму ряда с точностью E, общий член которой задан формулой VBA Дан числовой ряд и малая величина . Найти сумму ряда с точностью E , общий член которой задан формулой 1 / ((3 * n - 2) * (3 * n + 1)) создал код: Sub zadanie5() Dim x, eps As Single Dim i As Long eps = 0.001 i = 1 Do x = CSng((1) / ((3 * n - 2) * (3 * n + 1))) |
VBA Задание циклов с параметрами Задание:Дано натуральное число N. Вычислить: cos1/sin1 * (cos1+cos2)/(sin1+sin2)*...*(cos1+...+cosN)/(sin1+...+sinN) я написал программу такого плана : Sub programm() Dim i, n As Integer Dim x, s, p As Single n = InputBox(" Введите N") x = InputBox(" Введите x") s = 0 For i = 1 To n https://www.cyberforum.ru/ vba/ thread79482.html |
|
134 / 79 / 6
Регистрация: 06.04.2009
Сообщений: 192
|
|
| 30.12.2009, 15:55 | 0 |
Пропал MS DTPicker - VBA - Ответ 45137530.12.2009, 15:55. Показов 46516. Ответов 12
Метки (Все метки)
Ответ 
Сообщение от EducatedFool
Вернуться к обсуждению: Пропал MS DTPicker VBA
0
|
|
| 30.12.2009, 15:55 | |
|
Готовые ответы и решения:
12
Автоматическое раскрытие DTPicker
Microsoft Data Time Picker (DTPicker) |
| 30.12.2009, 15:55 | |
| 30.12.2009, 15:55 | |
|
Помогаю со студенческими работами здесь
0
Стирается значение DTPicker (время) после редактирования с клавиатуры (не стрелками) DTPicker глючит DTPicker автоматическое открытие Элемент управления DTPicker |
Наверх