Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Никак не ставится ноль перед числом
 
#1
30.07.2017 11:12:29
Что только не делаю, не хочет ставится ноль перед числом. Собираю дату из нескольких ячеек.

В каждой ячейке выпадающий список, с заданными значениями


Год в C4 - 2016;2017;2018;2019;2020
Месяц в C5 - 01;02;03;04;05;06;07;08;09;10;11;12
День в C6 - 01;02;03;04;05;06;07;08;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;27;28;29;30;31

Когда выбираю месяц и день до 10, например 7 месяц и 8 день, то перед этим числом нет нуля, а он нужен.

Задаю собственный формат типа 00 для этих ячеек


Визуально меняется число на нужное, но если использовать эту ячейку в макросах, то ноля в них нет.

В A3 вставил СЕГОДНЯ и ниже по ячейкам разобрал год - =ТЕКСТ(A3;"ГГГГ"), месяц - =ТЕКСТ(A3;"ММ") и день - =ТЕКСТ(A3;"ДД").

Сделал кнопку чтобы в выпадающие списки копировались значения из этих ячеек
Код
Private Sub CommandButton1_Click()
    Range("C4").FormulaR1C1 = "=RC[-2]"
    Range("C5").FormulaR1C1 = "=RC[-2]"
    Range("C6").FormulaR1C1 = "=RC[-2]"
End Sub
И когда копируются значения, то ноль в них есть, ни только визуально, но и в макросах его видно. Но только выбираю снова из выпадающих списков что-то, как ноль теряется.

Как правильно добавить туда ноль этот, подскажите пожалуйста?
 
 
 
#2
30.07.2017 11:16:02
Попробуйте формат конечной ячейки "Текстовый" Или если сцепить по другому, то тоже результат преобразуется в текст
Код
=F9&G9
Изменено: gling - 30.07.2017 11:18:44
 
 
 
#3
30.07.2017 11:26:10
gling,с текстовым форматом получается, в выпадающих списках всё норм. Но только одно тогда не выходит, при попытке вставить с кнопки сегодняшнюю дату получается вот такая картина


теперь проблема в самом макросе)
Код
Private Sub CommandButton1_Click()
    Range("C4").FormulaR1C1 = "=RC[-2]"
    Range("C5").FormulaR1C1 = "=RC[-2]"
    Range("C6").FormulaR1C1 = "=RC[-2]"
End Sub
Получается макрос выполняет такую операцию, задаёт ячейке C5 ссылку на ячейку A5, просто вставляет в неё =A5 и готово) но надо как-то иначе это сделать, тогда будет толк
 
 
 
#4
30.07.2017 11:33:10
Я понял так, что нужен конечный результат в ячейке J9, при чем здесь столбцы А и В?
Цитата
gling написал:
Попробуйте формат конечной ячейки "Текстовый"
Ведь в А и В ноль  в начале чисел отображается правильно.
Если нужно в С вписать макросом, можно ещё текстовый формат ячейки и
Код
Range("C5").Value = Range("A5").Text
Изменено: gling - 30.07.2017 11:47:29
 
 
 
#5
30.07.2017 11:38:47
А зачем там вообще формулы?
Код
Private Sub CommandButton1_Click()
    Debug.Print Date
    Debug.Print Year(Date)
    Debug.Print Format(Month(Date), "00")
    Debug.Print Day(Date)
End Sub
 
 
 
#6
30.07.2017 11:49:45
gling, Юрий М, просто я не разбираюсь в VBA, потому и приходится лепить такие конструкции, чтобы хоть как-то реализовать задачу, а не лезть по простейшим вопросам на форум, плодя миллионы новых, бесполезных тем)

gling, конечный результат должен быть в ячейке с выпадающим списком, для месяца C5, для дня C6.
Используется это всё в макросах, пример:
Код
'
' Загружаем 3
'
Sub DateSheetCopy_3()
  With Workbooks.Open("C:/DOCUMENTS/Arhives/3_" & Range("C4").Value & "" & Range("C5").Value & "" & Range("C6").Value & ".xls", ReadOnly:=True)
    ActiveSheet.Cells.Copy ThisWorkbook.Sheets("Блок 3").Cells(1, 1)
    .Close False
  End With
End Sub
если бы просто сцепить надо было я бы и не мучился)
 
 
 
#7
30.07.2017 12:07:21
Цитата
Добрый написал:
я не разбираюсь в VBA
Ну а чем мой вариант не устраивает?
 
 
 
#8
30.07.2017 12:10:58
Юрий М,гуглю как это все разбить по ячейкам) а так конечно же подойдет!

Юрий М, gling, спасибо!!!)
 
 
 
#9
30.07.2017 12:15:26
Код
Private Sub CommandButton1_Click()
    Range("A1") = Date
    Range("A2") = Year(Date)
    Range("A3") = Month(Date)
    Range("A3").NumberFormat = "00" 'Форматируем ячейку
    Range("A4") = Day(Date)
End Sub
 
 
 
#10
30.07.2017 12:18:08
Юрий М,благодарю!!!)
 
 
 
#11
30.07.2017 12:21:33
Если нужно отформатируйте аналогично и день в ячейке А4 )
 
 
 
#12
30.07.2017 12:27:58
Юрий М,да,так и сделал, спасибо!!!)
 
 
 
#13
30.07.2017 14:51:12
В ячейке применяется формула ДАТА, пользовательский формат ДД
Изменено: z_sir - 30.07.2017 14:51:37
 
 
 
#14
30.07.2017 15:13:37
z_sir, это понятно, но когда в этой же ячейке расположен выпадающий список с датами у которых в начале стоит ноль, то этот ноль при выборе любого значения слетает) решение получилось найти благодаря "Текстовому" формату ячейки, с ним ноль остаётся.
 
 
 
#15
30.07.2017 15:14:26
Код
Private Sub CommandButton1_Click()
    Range("C4:C6") = Application.Transpose(Split(Format(Date, "'YYYY.'MM.'DD"), "."))
End Sub


PS В список проверки данных записать номера с апострофом впереди.
'01;'02;'03;'04;.....
Тогда это всегда будет текстом
Изменено: RAN - 30.07.2017 15:19:09
 
 
 
#16
30.07.2017 15:20:10
RAN,Спасибо!!! Знал бы раньше про апострофы, не было бы столько мороки)
 
 
 
#17
31.07.2017 21:03:08
Цитата
Добрый написал:
расположен выпадающий список с датами у которых в начале стоит ноль, то этот ноль при выборе любого значения слетает)
но в предлагаемом решении ничего не слетает
 
 
 
#18
01.08.2017 14:44:21
z_sir, у меня просто всё чуть иначе организовано, не вся дата в единой ячейке, а разбита на несколько ячеек. Одна ячейка - месяц, вторая ячейка под ней - день. Вот в них и слетает, в документе из старпоста это чётко видно)
 
 
 
Страницы: 1
Читают тему
Наверх