Заполнить период используя календари ("от" и "до") и выбрать человека использую выпадающий список

@AlexanderSh88 · Регистрация: 28.09.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте, подскажите пожалуйста макрос, который будет вызывать форму при клике по ячейке "H5", в которой будет два календаря и поле с выпадающем списком в котором будут данные из диспетчера имен "люди". Я выберу период от какого до какого числа (в двух календарях) и выберу из выпадающего списка человека. после этого нажму "ОК" и ячейка "H5" заполнится по образцу как это сейчас в примере..

Код

17.08.15 - 28.08.15 (Иванов И.)

.
Сейчас при клике по ячейке появляется обычный календарик

Конечно я не программист, но думаю что это громоздко все и может проще сделать так.. сначала появляется календарик (до), я выбираю число, потом опять появляется календарик (после), я опять выбираю число, а потом появляется поле с выпадающем списком (с данными из диспетчера имен "люди") Нажимаю "ОК" и ячейка становится по образцу примера

Код

17.08.15 - 28.08.15 (Иванов И.)

@Vlad999 · 23.10.2015, 11:01

по моему это лучше сделать в разных ячейках, но если в одной то скорей всего через форму проще. Опыта и знаний моих маловато что бы точно ответить.

Аксима · 23.10.2015, 11:52

Именно так и сделал, как советует Vlad999 - через отдельные ячейки. Результат в приложении.

С уважением,

Аксима

@AlexanderSh88 · 23.10.2015, 12:52 **[ТС]**

Да, это то что нужно, спасибо

А что нужно исправить, чтобы года в датах заполнялись конечными 2мя цифрами, т.е. 23.10.15, а не 23.10.2015
Я установил формат даты в скрытом листе (который открывается для ввода периода и человека) хх.уу.zz
Она там заполняется в формате хх.уу.zz, но когда нажимаю ок и данные записываются в ячейку "H5" то даты отображаются в формате xx.yy.zzzz

Аксима · 23.10.2015, 13:30

AlexanderSh88,

Форматировать текст, создаваемый программным путем, можно с помощью функции Format. В ней задается шаблон представления текста, и она форматирует текст согласно этому шаблону.

Для задания года в виде двух конечных цифр используем шаблон "YY". А полный код исправленной процедуры приводится ниже:

Visual Basic

Sub EnterOperator()
    If IsEmpty(Range("B3")) Or IsEmpty(Range("D3")) Or IsEmpty(Range("F3")) Then
        MsgBox "Не заполнены все поля"
    Else
        With Sheets("Отчет")
            .Range("H5").Value = Format(Range("B3").Value, "DD.MM.YY") & " - " & Format(Range("D3").Value, "DD.MM.YY") & " (" & Range("F3").Value & ")"
            Range("B3:F3").ClearContents
            .Activate
        End With
        Sheets("Оператор").Visible = xlSheetVeryHidden
    End If
End Sub

С уважением,

Аксима

@Vlad999 · 23.10.2015, 13:30

удалил. Модераторы удалите пожалуйста пост.

@AlexanderSh88 · 23.10.2015, 15:07 **[ТС]**

Спасибо, теперь dd.mm.yy

@Vlad999 3892 / 2300 / 773 Регистрация: 02.11.2012 Сообщений: 6,111
	23.10.2015, 11:01	2
	по моему это лучше сделать в разных ячейках, но если в одной то скорей всего через форму проще. Опыта и знаний моих маловато что бы точно ответить. 2

@AlexanderSh88 2 / 2 / 2 Регистрация: 28.09.2015 Сообщений: 283
	23.10.2015, 12:52 [ТС]	4
	Да, это то что нужно, спасибо А что нужно исправить, чтобы года в датах заполнялись конечными 2мя цифрами, т.е. 23.10.15, а не 23.10.2015 Я установил формат даты в скрытом листе (который открывается для ввода периода и человека) хх.уу.zz Она там заполняется в формате хх.уу.zz, но когда нажимаю ок и данные записываются в ячейку "H5" то даты отображаются в формате xx.yy.zzzz 0

@Vlad999 3892 / 2300 / 773 Регистрация: 02.11.2012 Сообщений: 6,111
	23.10.2015, 13:30	6
	удалил. Модераторы удалите пожалуйста пост. 0

@AlexanderSh88 2 / 2 / 2 Регистрация: 28.09.2015 Сообщений: 283
	23.10.2015, 15:07 [ТС]	7
	Спасибо, теперь dd.mm.yy 0

Опции темы

Заполнить период используя календари ("от" и "до") и выбрать человека использую выпадающий список

Решение