|
|
| Другие темы раздела | ||||||||||||||||||
| VBA Задано натуральное число n. Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из 1. Формализация задачи. 2. Разработка алгоритма. 3. Построение схемы обработки данных. 4. Запись алгоритма на языке программирования. Var n,s:integer; Begin write('Введите число n = '); readln(n); {ввод числа n} s:=n-(n div 2+n div 3+n div 5-n div 6-n div 10-n div 15-n div 30); write('Количество натуральных чисел = '); https://www.cyberforum.ru/ vba/ thread1730828.html |
VBA Сетевая база данных в Excel Здравствуйте, изначально была задумка написать маленькую БД подручными средствами, использовалось 2 файла Excel, первый файл как файл с данными, второй как файл интерфейса, возникла проблема, при одновременном занесении данных в первый файл одновременно двумя пользователями, данные одного из пользователей терялись, при этом занесение происходило следующим образом, из второго файла открывался... | |||||||||||||||||
| VBA Перенос динамической таблицы из Excel в Word Всем Доброго Вечера и с праздником! Имеется задача: Есть файл Excel, информация (Наименование организации, ФИО и тому подобное) из которого поступает в различные шаблоны документов. В шаблонах документов есть несколько таблиц в разных местах. Некоторые из этих таблиц динамические по строкам. Имеется следующий код: Sub Test() Dim i As Long Dim j As Long Dim wdApp As Object ... https://www.cyberforum.ru/ vba/ thread1730678.html |
VBA Как нарисовать прямоугольник в VBA Excel
https://www.cyberforum.ru/ vba/ thread1730631.html Координаты вершин прямоугольника должны задаваться по клику мышки. Я попытался создать программу, однако она не работает. Линии по идее должны рисоваться, однако они не рисуются. Option Explicit Public x1, y1, x2, y2, x3, y3, x4, y4, m, X, Y Dim Coord As New Collection Const maxPoint = 4 Private Declare Function dwLineTo Lib "gdi32" Alias "LineTo" _ (ByVal hdc As Long, ByVal X As... | |||||||||||||||||
|
Копирование в соседний столбец с условием VBA Создать процедуру копирования в соседний столбец (начиная с ячейки В5, без пропусков ячеек) положительных чисел из диапазона А5:А14. Sub макросссс111() Dim i As Integer Const j As Integer = 1 Dim rng As Range Set rng = Worksheets("Лист1").Range("A4:A14") For i = 1 To rng.Rows.Count If rng.Cells(i, j).Value >= 0 Then rng.Cells(i, j).Copy rng.Cells(i, j + 1) ... |
VBA Из текстового файла программно переделать в Ворд файл Здравствуйте есть некий файл txt, если его открыть Блокнот++ то он имеет текст на 154 строках, эти строки имеют 144 столбца как программно на ВБА считать этот файл и вывести на один лист, получается, что если вся эта инфа не будет влазить на 1 лист тогда видимо на проценты убавлять шрифт или масштаб, но чтобы инфа влезла, но реально туда влезет.... пысы этот текстовый файл имеет таблицу,... https://www.cyberforum.ru/ vba/ thread1730608.html | |||||||||||||||||
|
VBA Оценочная таблица, VBA
https://www.cyberforum.ru/ vba/ thread1730569.html Всем доброго времени суток! Прошу помочь, ибо сам не справляюсь. Дана задача, в которой нужно посредством теста определить уровень знаний сотрудника, из чего в итоге должна получиться таблица с оценкой в конце. Скрины в Turist- пример оформления, вот элементы таблицы: Экзаменующийся: ФИО, специальность, группа; вопрос (список из 10), вариант ответа (3 варианта: А-0, Б-5, В-10 баллов), сумма... |
Замена Range на Columns VBA Всем привет. С праздником. Есть такой вопрос: есть код rr = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row) Как заменить "A1:A" на ncolumn = Cells.Find(What:="Код операции", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns).Column rr = Range(Columns(ncolumn) & Cells(Rows.Count, Columns(ncolumn)).End(xlUp).Row) | |||||||||||||||||
|
VBA Наблюдаю глюк файлов в модуле в VBA
https://www.cyberforum.ru/ vba/ thread1730537.html Работаю с файлом эксель. В нем используется внешняя библиотека dll подключенная через модуль. Адрес и название этого файла обьявляется в modules (согласно описанию на этот внешний файл от разработчика) выглядит так Public Declare Function SetJob Lib "..\calcdll\calcdll.dll" (ByRef p1 As Double, ByRef p2 As Variant, ByRef p3 As Double) As Boolean Public Declare Function SetPrice Lib... |
VBA Макрос для построения диаграммы Здравствуйте! Помогите создать макрос который будет строить диаграмму или по заранее заданным значения или по значениям которые надо будет выбрать самому. Спасибо! https://www.cyberforum.ru/ vba/ thread1730504.html | |||||||||||||||||
|
VBA Run-time error 13 VBA Excel Dim stroka As Integer, i As Integer Private Sub ComboBox3_Change() stroka = CInt(ComboBox3.Text)?показывает ошибку With Worksheets("Ëèñò1") If .Cells(stroka, 8) = "Ì" Then OptionButton1.Value = True Else OptionButton2.Value = True End If TextBox1.Text = .Cells(stroka, 1) |
VBA Ошибка при заполнении ComboBox названиями листов книги
Добрый день.
Требуется заполнить ComboBox названиями листов книги .xls, для этого использую данный код:
Dim DateSheets As Worksheet
For Each DateSheets In Workbooks(DateFile).Worksheets ' DateF
Наверх
| |||||||||||||||||