Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Ширина таблицы в WORD 2007 https://www.cyberforum.ru/ vba/ thread192273.html
При проходе по таблицам ворда With Selection.Tables(1) .PreferredWidthType = 2 'wdPreferredWidthPercent .PreferredWidth = 100 End With все без исключения таблицы "расширокиваются" по ширине страницы. Среди них, увы, есть и маленькие, которые безобразно растягиваются на всю ширину. Хотелось бы обрабатывать только таблицы шире текущего листа, а те...
VBA Формирование чертежа в ворде.
Ребята, помогите пожалуйста! Задача следующая, формируется вордовский файл, в который из программы, (написана на basiс 2010) переносятся текст и таблицы, за тем формируется чертёж в элементе панель программы и переносится в ворд, с текстом и таблицами нормально, а вот чертёж перенести не получается, помогите, если не сложно, за ранее благодарен.
VBA Форма в Excel Братцы.. Есть код создающий новый лист..Хочу чтобы появлялась форма в виде поля для ввода (названия листа) и кнопка ОК..Буду признателен за помощь https://www.cyberforum.ru/ vba/ thread191978.html VBA смена событий https://www.cyberforum.ru/ vba/ thread191553.html
Плиз подскажите, столкнулся с проблемой - при нажатии на кнопку (либо на созданной форме, либо на вставленной фигуре с присвоенным макросом, не суть важно) в определенных ячейках должны отображаться значения с другого листа. При последующем нажатии на эту кнопку в этих же ячейках должны отобразиться следующие записи и т.д. Тупик полный....
Нормализация таблицы excel VBA
Нужна помощь в написании макроса который бы производил нормализацию таблицы до первой нормальной формы(1NF). Например есть строка в ячейка которых записано несколько дат(1.01.2010, 2.02.2010), макрос должен разбить строку на две одинаковые строки за исключением ячейки с датой в первой будет(1.01.2010), во второй (2.02.2010), причем таких в строке может быть несколько нуждающихся в нормализации...
VBA Определить, что натуральное число N является точным квадратом 1. Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: а) натуральное число N является точным квадратом; б) цифры данного трехзначного числа N являются членами арифметической прогрессии. 2.Дано действительное число х. Не пользуясь никакими другими арифметическими операциями, кроме умножения, сложения и вычитания,... https://www.cyberforum.ru/ vba/ thread190886.html
VBA Определить, пройдет ли кирпич через отверстие https://www.cyberforum.ru/ vba/ thread190885.html
1.Заданы размеры A, B прямоугольного отверстия и размеры X, Y, Z кирпича. Определить, пройдет ли кирпич через отверс*тие 2.Два прямоугольника, расположенные в первом квадранте, со сторонами, параллельными осям координат, заданы коорди*натами своих левого верхнего и правого нижнего углов. Для первого прямоугольника это точки (x1, y1) и (x2, 0), для второ*го — (x3, y3), (x4, 0) Составить...
Создание массива с формы на листе VBA
Здравствуйте У меня такая вот проблемка, точнее недостаток знаний мне необходимо с формы вводя по одному значению записывать их на лист, причем формировать двумерный массив (N*M), причем значения вводятся по одному. теперь перейдем к вопросам: 1) как сделать так чтобы можно было обращаться с пользовательской формы к ячейкам 2) как записывать в ячейки с формы вот кусочек где у меня...
VBA Путь к файлу https://www.cyberforum.ru/ vba/ thread190377.html
в макросе MS Word нужно получить путь и имя файла, выбранного в диалоговом окне "Открыть файл".. имя файла есть, а вот путь к нему никак не удается получить.. пол дня сегодня убил на поиск нужной функции, так и не нашел.. :( Private Sub CommandButton2_Click() With Dialogs(wdDialogFileOpen) .Name = "*.xls" .Display MsgBox .Name End With
VBA copy of columns задача , скопировать содержание с2:с21 из трех листов , в один лист "results.xlsm" C3:c22,D3:d22,e3:e22 соответственно ,вот код что смог то смог , тока не работает :) как исправит кто нибуд знает , спасибо !!! Sub exam3() Dim book As Workbook Dim ans As Integer Dim tt As String Dim jj As Integer Dim j1 As Range Dim jjj, jjj1, jjj2, jjj3 As Integer Dim j11, j2, j3, j4 As Range https://www.cyberforum.ru/ vba/ thread190338.html
VBA Как вывести название диаграммы сверху, и подписать некоторые её свойства снизу?
есть диаграмма "Отметки" Сверху имя "предмет" Справа отметки от 0 до 10 Снизу нужно вывести средний бал и число не получивших отметки Какой метод отвечает за текст снизу??? подскажите плиз
VBA VBA Excel печать листа На листе ActiveSheet определены сквозные строки "$1:$2" для печати на каждой странице (ActiveSheet.PageSetup.PrintTitleRows = "$1:$2"). Вопрос: можно ли в этой области (сквозные строки) впечатывать номер текущей страницы? https://www.cyberforum.ru/ vba/ thread190308.html
204 / 43 / 6
Регистрация: 15.10.2010
Сообщений: 125
16.11.2010, 23:27 0

Циклические алгоритмы - VBA - Ответ 1116686

16.11.2010, 23:27. Показов 1772. Ответов 1
Метки (Все метки)

Ответ

Поскольку математическая формула не была предоставлена, 1-ый пункт решен так же по-дурацки, как была поставлена задача. Если хотите красивого макроса-пишите формулу.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub mas()
 
Dim ind, k As Double
Dim tekst$
Dim mas() 
 
k = InputBox("Введите k") 'запрашиваем число элементов
ReDim mas(k) 'задаем размер массива
 
For ind = 1 To k
If ind < 4 Then mas(ind) = 1 Else mas(ind) = mas(ind - 3) + mas(ind - 1) 'вычисляем каждый элемент
tekst = tekst & "X" & k & "=" & mas(ind) & ", "       'добавляем его в выводимый текст
Next
MsgBox (tekst) ' выводим результат на экран
 
End Sub
а 2-ой пункт попробуйте все-таки сначала сделать самостоятельно. ;-)

Вернуться к обсуждению:
Циклические алгоритмы VBA
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2010, 23:27
Готовые ответы и решения:

Циклические алгоритмы
Помогите пожалуйста, написать программки первая программа: Найти сумму элементов ячеек главной...

Циклические алгоритмы
задание: дано целое число - степень числа 2. Определить, какой целой степенью числа 2 оно является?...

Циклические алгоритмы
дано задание: для n введенных с клавиатуры чисел найти сумму положительных, кратных 3. вопрос:...

Индивидуальные задания Тема: Циклические алгоритмы.
Ребят помогите пожалуйста составит программу!!!, в VBA ничего не понимаю, а завтра последний день...

1
16.11.2010, 23:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.11.2010, 23:27
Помогаю со студенческими работами здесь

Циклические программы
Напечатать значения функции z=1/(x-2)+1/(x-5)+ln(12.8-x) для x изменяющегося на отрезке c шагом 1....

VBA, Структурные циклические процессы
1). Три первые буквы поменять местами с тремя последними 2). Каждую вторую букву продублировать...

VBA-циклические операторы(отрезок),массивы
Добрый день! Помогите пожалуйста в решении двух данных задач. Задание 1. Используя VBA,...

Циклические процессы: вычисление min, max со счетчиком
Напечатать 14 случайных целых чисел в диапазоне от 1 до 100, заданных с помощью генератора...

Циклические Алгоритмы
1) Циклические Алгоритмы. Оператор цикла с предусловием. Примеры использования. 2) Алгоритм...

Циклические проэкты
http://s016.***********/i336/1512/e9/e1a5d1f74d95.jpg в первом задании создать проэкт, чтобы он...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru