VBA

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VBA Удалить абзац по условию https://www.cyberforum.ru/ vba/ thread1051473.html Здравствуйте, уважаемые форумчане! Помогите с созданием макроса. Есть файл MS Word, в котором содержится несколько тысяч пунктов (по сути отдельных абзацев). Нужен макрос, который будет удалять абзацы, содержащие определённое слово или словосочетание.	VBA Определите первый и последний день месяца, в котором автомобиль отправился в путь Вот что имеется) Option Explicit Private Sub UserForm_Activate() txtT1 = Format(Now, "d/m/yy h:mm") txtT2 = Format(DateAdd("h", 1, Now), "d/m/yy h:mm") End Sub Private Sub cmdÂû÷èñëèòü_Click() Dim dtmT1 As Date Dim dtmT2 As Date
VBA Ввести число x, выяснить что больше : целая часть числа x или его дробная часть умноженная на 10 Ввести число x, выяснить что больше : целая часть числа x или его дробная часть умноженная на 10. Если первое то число разделить на 10 если второе, то дробную часть от него отнять Очень нужно, буду благодарен https://www.cyberforum.ru/ vba/ thread1051178.html	VBA Вставить на место нулевых элементов массива произведение отрицательных элементов массива вставить на место нулевых элементов массива произведение отрицательных элементов массива vba Помогите кому не сложно https://www.cyberforum.ru/ vba/ thread1051166.html
Проверка данных с использованием диапазона допустимых значений VBA Добрый день. Ситуация следующая: создан алгоритм, который сохраняет в две переменные типа Range два диапазона - диапазон данных для проверки (допустим, №1) и диапазон с допустимыми значениями (допустим, №2) Далее каждая ячейка диапазона №1 с помощью цикла ищется в диапазоне №2 (через Find). Если совпадение найдено (т.е. значение является допустимым), то ок. Если не найдено, то ошибочное...	VBA Найти среднее арифметическое значение массива Помогите пожалуйта, ввести массив А(N). Найти среднее арифметическое значение массива. Максимальный элемент массива заменить на среднее арифметическое. Вывести преобразованный массив. https://www.cyberforum.ru/ vba/ thread1050962.html
VBA Вычислить среднее арифметическое положительных элементов массива https://www.cyberforum.ru/ vba/ thread1050941.html Приветствую, помогите пожайлуйста с программой: "Вычислить среднее арифметическое положительных элементов массива."	VBA Выбрать из файла запись с минимальным и максимальным значением функции Создать на рабочем столе excel таблицу значений какой-нибудь функции. Записать данные в файл прямого доступа. Выбрать из файла запись с минимальным и максимальным значением функции и записать в файл последовательного доступа.
VBA Дана последовательность из n чисел. Определить, каких чисел в этой последовательности больше: положительных или отрицательных Макрос для вба + блок-схему..пожалуйста, мыслей вообще нет https://www.cyberforum.ru/ vba/ thread1050350.html	VBA Переписать все строки исходного файла, добавив после каждого слова количество букв в этом слове Помогите пожалуйста, очень срочно нужно сдать код в VBA!!! Нужно открыть файл 1, прочитать его, а потом создать новый файл 2 и записать туда слова из файла 1. НО записать так, чтобы после каждого слова выводилась цифра- количество символов! https://www.cyberforum.ru/ vba/ thread1050346.html
VBA Составить любой индивидуальный проект На практике задали сделать любой индивидуальный проект. Незнаю даже,что можно сделать.Помогите пожалуйста.	VBA Комментарии к коду Всем доброго времени суток! Возникла такая проблема - есть код и даже(аж самой странно) работающая программа. НО!! Нужна помощь в комментариях кода, грубо говоря нужно практически каждую строку закомментировать с описанием проделанной работы Option Explicit Dim Endln As String Private Sub cmdExcel_Click() For i = 1 To N If i > 1 Then Cells(i, 1).Value = Strana(i) https://www.cyberforum.ru/ vba/ thread1050266.html

snipe

4082 / 1462 / 401

Регистрация: 07.08.2013

Сообщений: 3,657

22.12.2013, 08:29

На каждую шестую ячейку вставить рабочие дни месеца - VBA - Ответ 5537137

22.12.2013, 08:29. Показов 1050. Ответов 4

Метки (Все метки)

Ответ

Visual Basic

Dim iMonth As Long
iMonth = InputBox("Введите номер месяца")
Dim iYear As Long
iYear = InputBox("Введите год")
Dim dteDate As Date
Dim LastOfMonth As Date
dteDate = CDate("01." & Right("00" & iMonth, 2) & "." & iYear)
LastOfMonth = DateSerial(Year(dteDate), Month(dteDate) + 1, 1) - 1
j = 1
For i = dteDate To LastOfMonth
If Weekday(i, 2) = 6 Or Weekday(i, 2) = 7 Then
Else
Cells(1, j) = Choose(Weekday(i, 2), "пн", "вт", "ср", "чт", "пт")
Cells(2, j) = Day(i)
j = j + 6
End If
Next i

только не правильно это - что будет если суббота рабочая или среда выходной

Вернуться к обсуждению:
На каждую шестую ячейку вставить рабочие дни месеца VBA

Следующий ответ

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

22.12.2013, 08:29

Готовые ответы и решения:

Рабочие дни
есть формула =Рабдень(дата;кол-во) но она расчитывает как то невнятно, только рабочие, а надо так,...

рабочие дни
как мне расчитать спомощью скрипта рабочие дни в году а потом положить по месяцам их в разные...

Про рабочие дни
Всем привет, помогите решить следующую задачу: Найти даты всех рабочих дней(не считая суббот,...

Рабочие дни в запросе СКД
Здравствуйте всем. Сделал самописный отчёт в СКД, нужные значения считает правильно. Но поставили...

	22.12.2013, 08:29

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

22.12.2013, 08:29

Помогаю со студенческими работами здесь

Рабочие дни из таблицы календаря
Уважаемые форумчане!!! Столкнулся с проблемой по расстановке сроков выполнения задач. Есть...

рассчитать рабочие и нерабочие дни
всем привет. есть задача. в БД есть таблица этап, а в ней поле срок окончания этапа. мне нужно за 3...

Как в программе отсчитать рабочие дни?
Как в программе отсчитать каледарные дни? Бухгалтерия. Добавлено через 18 минут Виноват....

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

Новые блоги и статьи
Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .	Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .	Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .
Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .

Наверх