Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA ListBox1.Remove(Add)Item вызывает ошибку "Run-time error -2147467259" 1) в функции проверки ввода, я запрещаю вводить цифры и специальные символы. Сначала все работало, теперь выдает ошибку Run-Time error 5 Invalid procedure call or argument, хотя в процедурах ничего не меняла. 2) В процедуре "Поиск" ругается на строчки ListBox1.RemoveItem 0 и ListBox1.AddItem stroka, ошибка Run-time error -2147467259 (80004005) Unspecified error 3) при нажатии на кнопку... https://www.cyberforum.ru/ vba/ thread367016.html Как сделать круглую кнопку на форме VBA ? VBA
Как сделать круглую кнопку вместо прямоугольной на форме VBA ?
VBA Как открыть форму, а Excel скрыть или вовсе не открывать Собственно меня интересует как возможно открыть форму в документе эксель но так что бы была видна только форма при открытии документа а сам документ был скрыт или свернут? https://www.cyberforum.ru/ vba/ thread366582.html VBA Внести изменения в сводную таблицу https://www.cyberforum.ru/ vba/ thread366281.html
Добрый день, Подскажите пожалуйста, у меня вот такая ситуация: есть сводная таблица в которой показаны: ФИО сотрудников и выполняемая работа. Так же на основном поле расставлено кол-во работ для каждого сотрудника. Например на пересечении "Петрова" и "Работы №2" стоит цифра "2". Можно ли как-нибудь в этой ячейке вставить формулу, которая будет умножать эту цифру на определённое число? И...
VBA В ячейке Е1 часть слова которую нужно найти и если есть то выделить эту ячейку со строкой в столбце С
Sub Поиск() ' Dim МестоПоиска As String Dim ЧтоИщем As String For i = 1 To 3 МестоПоиска = "C" & i ' Исходная строка ЧтоИщем = "E1" ' Следует найти часть слова If InStr(МестоПоиска, ЧтоИщем) > 0 Then ' Выполнить выделение желтым цветом если в строке встречается Е1 Range("C" & i).Select
VBA Создание базы данных и вновь прошу о помощи!!! Часть задания сделала, но только часть. Создание базы данных в EXCEL с помощью пользовательской формы. Заполните данную таблицу с использованием диалогового окна вида: (вложенная картинка) Жанр – выпадающий список (Комедия, Драма, Фантастика, Мелодрама). Тип записей - выпадающий список (Mp4, Dvd, Avi). По нажатию кнопки Внести данные данные заносятся в таблицу... https://www.cyberforum.ru/ vba/ thread366180.html
VBA Всплывающая подсказка для перекрестной ссылки https://www.cyberforum.ru/ vba/ thread366111.html
У меня есть перекрестные ссылки (в виде номеров) на закладки (на список литературы). Мне нужно при наведении курсора мыши отображать всплывающие подсказки (подсказка в несколько довольно больших абзацев). Как это можно сделать? Гиперссылкой не получается... Редактор word 2007.
Вывод данных в ячейки Excel VBA
Подскажите пожалуйста, как сделать так, чтобы при нажатии кнопки результат, результат выводился в определенную ячейку?
VBA Найти наименший элемент матрицы и поменять его местами с первым https://www.cyberforum.ru/ vba/ thread365975.html
Есть две одинаковые матрици U(i,j) и V(i,j). В обоих нужно найти найменьший елемент и поменять его местами с первым. Не получается сделать...почему то даже матрицу не могу создать(ошибка в рандомизации)...даже по шаблону делал((
VBA Упрощение таблицы значений булевых функций Здравствуйте! Задана таблица булевых функций типа х1 х2 х3 f 0 0 0 ... 0 0 1 ... 0 1 0 ... ................ 1 1 1 ... f принимает значение или 0 или 1 (задается произвольно) https://www.cyberforum.ru/ vba/ thread365920.html
Перестал работать автофильтр в одном из файлов Excel VBA
в чем возникла проблема был автофилтр в екселевском файле, что то сделал пропал (не активен) пробывал через макрос не катит , но в другом файле он работает прекрасно
VBA Создать макрос, который выводит n чисел Фибоначчи https://www.cyberforum.ru/ vba/ thread365855.html
Помогите создать макрос, который выводит n чисел ФИбоначчи. N-вводит пользователь, нужно использовать рекурсию.Заранее спс)
5562 / 1368 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
16.10.2011, 16:47 0

Определить название текущего месяца - VBA - Ответ 2075074

16.10.2011, 16:47. Показов 14806. Ответов 4
Метки (Все метки)

Ответ

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub DateParts()
Const M = 5     'сюда ставим количество прошедших месяцев
Const N = 10    'сюда ставим количество прошедших дней
Dim CurrentDate As Date
CurrentDate = DateAdd("m", M, #1/1/1990#) + N 'добавили M месяцев и N дней
 
MsgBox CurrentDate                      'показ получившейся даты
MsgBox DatePart("yyyy", CurrentDate)    'показ её года
MsgBox MonthName(Month(CurrentDate))    'показ названия её месяца (что мы и ищем)
MsgBox DatePart("d", CurrentDate)       'показ числа месяца
End Sub


Вернуться к обсуждению:
Определить название текущего месяца VBA
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2011, 16:47
Готовые ответы и решения:

Определить последний день текущего месяца
Есть задание : Определить, сколько часов и минут осталось до конца текущего месяца. Вот что я...

Определить номер последней недели текущего месяца
Ребята, нужно найти последнюю неделю текущего месяца. и если сейчас она, то : к...

Определить дату, название месяца, квартал, неделю года, день недели
Для заданной даты и определенного значения определить дату, название месяца, квартал, неделю года,...

Написать программу, которая по номеру месяца выдает название следующего за ним месяца
Хотел сделать что-то простое, но не понимаю почему выдаёт ошибку, с m Mod 13 работает, помогите...

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

Последний день текущего месяца
Доброго времени суток форумчане. Подскажите каким образом можно узнать методами vba, является ли...

Название месяца в число
Есть строковая переменная strMonth="февраль". Есть ли какая-нибудь стандартная ф-ия vba...

Название месяца по номеру недели
не соображу как получить название месяца по номеру недели

Вернуть название предыдущего месяца
Добрый день! есть макрос: подскажите пожалуйста, как на выходе получить не текущий, а...

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