|
|
| Другие темы раздела | ||||||||||||||||||
|
VBA Ограничение поиска, количеством страниц, в word
https://www.cyberforum.ru/ vba/ thread1069773.html Добрый вечер!Стала такая проблема в создании макроса.Поиск дат в самом тексте я осуществила,но необходимо искать эти даты строго в содержании (к примеру это стр. с 2й по 4-ю). Форматы дат прописаны в макросе. Так же, если возможно, помогите с подсчетом в этом диапазоне не соответствий с системной. То есть чтобы макрос выводил сколько дат не соответствуют системной. P.S. Системной могут... |
Есть ли хоть одна непустая ячейка в Range VBA Есть диапазон ячеек. Нужно проверить, есть ли хоть одна непустая ячейка. If Cells(2, 1).Value = "" And _ Cells(2, 2).Value = "" And _ Cells(2, 3).Value = "" And _ Cells(2, 4).Value = "" And _ Cells(2, 5).Value = "" And _ Cells(2, 6).Value = "" And _ Cells(2, 7).Value = "" Then | |||||||||||||||||
|
VBA Составить программу определения наименьшего числа ферзей, которые можно расставить на доске
https://www.cyberforum.ru/ vba/ thread1069557.html Пожалуйста, помогите решить вот такую задачу Минимум ферзей. Составить программу определения наименьшего числа ферзей, которые можно расставить на доске так, чтобы они держали под боем все её свободные поля. |
VBA программа которая бы определяла область , в которой находится точка с координатами Х и У
https://www.cyberforum.ru/ vba/ thread1069389.html Нужна помощь Написать программу и составить к ней блок-схему, которая бы определяла область, в которой находится точка с координатами Х и У Ссылка удалена Вторая задача и контакты тоже | |||||||||||||||||
|
Заполнение ListBox таблицей с неактивного листа Excel VBA Требуется заполнить ListBox таблицей, которая находится на листе другой книги, которая открывается программно. Вот код: Public Sub UpdateListRowSource() If wb Is Nothing Then Set wb = GetObject(Filename) Set ws = wb.Worksheets("Персонал") End If ListBox.RowSource = "'Персонал'!A2:G" & ws..CurrentRegion.Rows.Count end Sub |
VBA Как обратиться к слайду (т.е. сделать активным следующий слайд для работы с таблицами на нём)? Добрый день! Подскажите, пожалуйста, как обратиться к следующему слайду для работы с таблицами на нём Т.е. таблицы назвал на всех слайдах одинаково, и соответственно пытаюсь обращаться к слайду указывая его номер, а выдаётся ошибка "To select a shape it's view must be active" Т.е. когда например стоит код With ppt.ActivePresentation.Slides(1).Shapes("table prod").Table то на первый... https://www.cyberforum.ru/ vba/ thread1069306.html | |||||||||||||||||
|
VBA Печать данных в документ Word, находясь в рабочей книге Excel
https://www.cyberforum.ru/ vba/ thread1069227.html Как напечатать в конкретный документ Word данные, находясь в открытой книге Excel? Печать производится в таблицу. Например: Чек Номер столика: 1 Наценка: 3% Скидка клиента: нет Сумма по цене блюд: 100 руб. Итого: 103 руб. |
Преобразование числа в цифры VBA Уважаемые форумчане.Столкнулся с проблемой в EXCELe преобразования числа в ячейке вида ххх,х в цифры,которые желательно разместить в соседних ячейках "сотни","десятки","единицы","десятые доли". Помогите пожалуйста. | |||||||||||||||||
|
VBA Табулирование функции
https://www.cyberforum.ru/ vba/ thread1068595.html Здравствуйте, помогите пожалуйста решить задачу. Очень нужно! На интервале 0.25<y<0.75 протабулировать функцию z=(cosy-cosx)/(sin2x+sin2y), причем если tgy-x>0 то Δy=0.05 иначе Δy=0.1, x=0.416 Вот мой код: Dim a As Double, b As Double, h As Double Dim y As Double, z As Double, x As Double, i As Long a = CDbl(TextBox2.Text) b = CDbl(TextBox3.Text) x = 0.416 |
VBA Как можно оптимизировать/ускорить код?
https://www.cyberforum.ru/ vba/ thread1068369.html Здравствуйте, задача примерно такого типа: на экселевском листе есть данные в 3 колоннах (обозначим a,b,c), для каждой ячейки a (обозначим a) надо найти ячейку с тем же значением в колонке b (b)), и затем присвоить ячейке a значение ячейки c. В общем, я написал такой код: For k = 3 To 4 For i = 8 To n For j = 8 To n If Cells(i, k) = Cells(j, 58) Then Cells(i, k) = Cells(j,... | |||||||||||||||||
|
VBA Выбрать несколько максимальных значений из диапазона Нужно сформировать таблицу с данными о 5-ти самых высокооплачиваемых сотрудниках фирмы, диапазон их окладов F2:F100, как выбрать из этого диапазона 5 самых больших окладов? Заготовка: Sheets(1).Activate Sheets(2).Cells(1, 1) = "Cведения о 5-ти самых высокооплачиваемых сотрудниках фирмы" Sheets(2).Cells(2, 1) = "Фамилия сотрудника" Sheets(2).Cells(2, 2) = "Должность" Sheets(2).Cells(2,... |
VBA Сверка системной даты в колонтитулах
https://www.cyberforum.ru/ vba/ thread1067683.html Всем добрый день!Суть задачи. в том, что макрос должен осуществлять поиск даты, формата "месяц год", в колонтитулах документа. С поиском справилась :) , а вот дальнейшее сравнение с системной датой не получается.Из-за формата даты. в нем отсутствует день.Пример к тесту написала(...Очень нужна помощь, так к
Наверх
| |||||||||||||||||
Сообщение от StepInLik
