Формат ячейки "Полных лет"
Gold_Barsik
Дата: Вторник, 02.07.2019, 16:19 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 459
Репутация:
6
±
Замечаний:
0% ±
2003
Здравствуйте. Помогите с форматом ячейки. Нужно что бы при вводе даты в ячейку (пример: 5.05.1995), ячейка отображала бы полных лет (1 год, 2 года, 5 лет)
Здравствуйте. Помогите с форматом ячейки. Нужно что бы при вводе даты в ячейку (пример: 5.05.1995), ячейка отображала бы полных лет (1 год, 2 года, 5 лет) Gold_Barsik
Ответить
Сообщение Здравствуйте. Помогите с форматом ячейки. Нужно что бы при вводе даты в ячейку (пример: 5.05.1995), ячейка отображала бы полных лет (1 год, 2 года, 5 лет) Автор - Gold_Barsik Дата добавления - 02.07.2019 в 16:19
Pelena
Дата: Вторник, 02.07.2019, 17:05 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19177
Репутация:
4417
±
Замечаний:
±
Excel 365 & Mac Excel
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Gold_Barsik
Дата: Вторник, 02.07.2019, 17:17 |
Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 459
Репутация:
6
±
Замечаний:
0% ±
2003
Не совсем понял ответ. Нужно в пустую ячейку внести дату что бы она отобразила возраст (вместо даты).
Не совсем понял ответ. Нужно в пустую ячейку внести дату что бы она отобразила возраст (вместо даты). Gold_Barsik
Ответить
Сообщение Не совсем понял ответ. Нужно в пустую ячейку внести дату что бы она отобразила возраст (вместо даты). Автор - Gold_Barsik Дата добавления - 02.07.2019 в 17:17
Pelena
Дата: Вторник, 02.07.2019, 17:22 |
Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19177
Репутация:
4417
±
Замечаний:
±
Excel 365 & Mac Excel
Чтобы получить возраст, надо выполнить вычисления. Формат не умеет производить вычисления. Поэтому либо формулой, либо макросом
Чтобы получить возраст, надо выполнить вычисления. Формат не умеет производить вычисления. Поэтому либо формулой, либо макросом Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Чтобы получить возраст, надо выполнить вычисления. Формат не умеет производить вычисления. Поэтому либо формулой, либо макросом Автор - Pelena Дата добавления - 02.07.2019 в 17:22
Gold_Barsik
Дата: Вторник, 02.07.2019, 17:25 |
Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 459
Репутация:
6
±
Замечаний:
0% ±
2003
А макросом это как будет выглядеть?
Ответить
Сообщение А макросом это как будет выглядеть? Автор - Gold_Barsik Дата добавления - 02.07.2019 в 17:25
Nic70y
Дата: Вторник, 02.07.2019, 17:29 |
Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация:
2273
±
Замечаний:
0% ±
Excel 2010
как-то так наскоряк [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A65536")) Is Nothing Then u = Target.Address v = Evaluate("=DATEDIF(" & u & ",TODAY(),""y"")") b = v Mod 10 If (v > 4 And v < 20) Or b > 4 Or b = 0 Then a = " лет" Else a = " года" If b = 1 Then a = " год" End If Target.NumberFormat = v & a End If End Sub
[/vba]вдруг правильно
как-то так наскоряк [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A65536")) Is Nothing Then u = Target.Address v = Evaluate("=DATEDIF(" & u & ",TODAY(),""y"")") b = v Mod 10 If (v > 4 And v < 20) Or b > 4 Or b = 0 Then a = " лет" Else a = " года" If b = 1 Then a = " год" End If Target.NumberFormat = v & a End If End Sub
[/vba]вдруг правильно Nic70y
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Вторник, 02.07.2019, 17:30
Ответить
Сообщение как-то так наскоряк [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A65536")) Is Nothing Then u = Target.Address v = Evaluate("=DATEDIF(" & u & ",TODAY(),""y"")") b = v Mod 10 If (v > 4 And v < 20) Or b > 4 Or b = 0 Then a = " лет" Else a = " года" If b = 1 Then a = " год" End If Target.NumberFormat = v & a End If End Sub
[/vba]вдруг правильно Автор - Nic70y Дата добавления - 02.07.2019 в 17:29
Gold_Barsik
Дата: Вторник, 02.07.2019, 17:32 |
Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 459
Репутация:
6
±
Замечаний:
0% ±
2003
А попробую я, была-не была.
Ответить
Сообщение А попробую я, была-не была. Автор - Gold_Barsik Дата добавления - 02.07.2019 в 17:32
Gold_Barsik
Дата: Вторник, 02.07.2019, 17:36 |
Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 459
Репутация:
6
±
Замечаний:
0% ±
2003
Не проканала. нужно в ячейку J6. Ещё и кошка тут мешается под руками. Можно подумать что в Excel разбирается ).
Не проканала. нужно в ячейку J6. Ещё и кошка тут мешается под руками. Можно подумать что в Excel разбирается ). Gold_Barsik
Сообщение отредактировал Gold_Barsik - Вторник, 02.07.2019, 17:37
Ответить
Сообщение Не проканала. нужно в ячейку J6. Ещё и кошка тут мешается под руками. Можно подумать что в Excel разбирается ). Автор - Gold_Barsik Дата добавления - 02.07.2019 в 17:36
Nic70y
Дата: Вторник, 02.07.2019, 17:36 |
Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация:
2273
±
Замечаний:
0% ±
Excel 2010
чево это?
ЮMoney 41001841029809
Ответить
Сообщение чево это? Автор - Nic70y Дата добавления - 02.07.2019 в 17:36
Nic70y
Дата: Вторник, 02.07.2019, 17:38 |
Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация:
2273
±
Замечаний:
0% ±
Excel 2010
ЮMoney 41001841029809
Ответить
Сообщение замените на Автор - Nic70y Дата добавления - 02.07.2019 в 17:38
Gold_Barsik
Дата: Вторник, 02.07.2019, 17:44 |
Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 459
Репутация:
6
±
Замечаний:
0% ±
2003
при попытках ввести новые значения (типа 01.01.2019), отображения остаются прежними (2 год, 49 лет, 1 год, 11 лет, 21 год)
при попытках ввести новые значения (типа 01.01.2019), отображения остаются прежними (2 год, 49 лет, 1 год, 11 лет, 21 год) Gold_Barsik
Ответить
Сообщение при попытках ввести новые значения (типа 01.01.2019), отображения остаются прежними (2 год, 49 лет, 1 год, 11 лет, 21 год) Автор - Gold_Barsik Дата добавления - 02.07.2019 в 17:44
Gold_Barsik
Дата: Вторник, 02.07.2019, 17:45 |
Сообщение № 12
Группа: Проверенные
Ранг: Обитатель
Сообщений: 459
Репутация:
6
±
Замечаний:
0% ±
2003
менял, ругается, на Worksheet_Change а на 2003 не пробовал?
менял, ругается, на Worksheet_Change а на 2003 не пробовал? Gold_Barsik
Сообщение отредактировал Gold_Barsik - Вторник, 02.07.2019, 21:25
Ответить
Сообщение менял, ругается, на Worksheet_Change а на 2003 не пробовал? Автор - Gold_Barsik Дата добавления - 02.07.2019 в 17:45
Nic70y
Дата: Среда, 03.07.2019, 08:15 |
Сообщение № 13
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация:
2273
±
Замечаний:
0% ±
Excel 2010
пробовал, только что на серваке, на компе 2010, хотя это значения не имеет. макрос в модуле листа? должен быть там. макросы вообще подключены? должны быть подключены.
пробовал, только что на серваке, на компе 2010, хотя это значения не имеет. макрос в модуле листа? должен быть там. макросы вообще подключены? должны быть подключены. Nic70y
ЮMoney 41001841029809
Ответить
Сообщение пробовал, только что на серваке, на компе 2010, хотя это значения не имеет. макрос в модуле листа? должен быть там. макросы вообще подключены? должны быть подключены. Автор - Nic70y Дата добавления - 03.07.2019 в 08:15
Gold_Barsik
Дата: Суббота, 13.07.2019, 11:05 |
Сообщение № 14
Группа: Проверенные
Ранг: Обитатель
Сообщений: 459
Репутация:
6
±
Замечаний:
0% ±
2003
Ну вот, добрался до компа. Макросы разрешаю при запуске файла.А вот насчёт модуля не совсем так. Модуля нет, прописываю как и у вас в листе. Но. Там получается что два макроса "Private Sub Worksheet_Change(ByVal Target As Range)". Можно ли так? Не знаю. Может из-за этого выскакивает ошибка? Файл "малость" переделал. Ячейка для возраста F6. Уф. получилось. Объединил оба макроса. Большое спасибо!
Ну вот, добрался до компа. Макросы разрешаю при запуске файла.А вот насчёт модуля не совсем так. Модуля нет, прописываю как и у вас в листе. Но. Там получается что два макроса "Private Sub Worksheet_Change(ByVal Target As Range)". Можно ли так? Не знаю. Может из-за этого выскакивает ошибка? Файл "малость" переделал. Ячейка для возраста F6. Уф. получилось. Объединил оба макроса. Большое спасибо! Gold_Barsik
Сообщение отредактировал Gold_Barsik - Суббота, 13.07.2019, 11:15
Ответить
Сообщение Ну вот, добрался до компа. Макросы разрешаю при запуске файла.А вот насчёт модуля не совсем так. Модуля нет, прописываю как и у вас в листе. Но. Там получается что два макроса "Private Sub Worksheet_Change(ByVal Target As Range)". Можно ли так? Не знаю. Может из-за этого выскакивает ошибка? Файл "малость" переделал. Ячейка для возраста F6. Уф. получилось. Объединил оба макроса. Большое спасибо! Автор - Gold_Barsik Дата добавления - 13.07.2019 в 11:05