ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Набор даты
16 сообщений из 16, страница 1 из 1
Набор даты
    #33184905
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
Нужно сделать макрос чтобы при вколачивании 8 знаков или 6 цифра преоразовалась к формату даты с разделителями . или - как в 1С бухгалтерии.


Scio me nihil scire


<<Jojo®>>
...
Рейтинг: 0 / 0
26.07.2005, 13:53:39
| Ответить | Цитировать | Написать  
Набор даты
    #33185003
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
А порядок ввода определенный?

Код: plaintext
 26072005

Или могут быть разные варианты?

Код: plaintext
1.
2.
 26072005 
 07262005 
 20050726
...
Рейтинг: 0 / 0
26.07.2005, 14:27:32
| Ответить | Цитировать | Написать  
Набор даты
    #33185015
SAS!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SAS!
Участник
а маску ввода исползовать?
...
Рейтинг: 0 / 0
26.07.2005, 14:31:55
| Ответить | Цитировать | Написать  
Набор даты
    #33185068
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
А енто хде ? В Экселе или...
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
26.07.2005, 14:54:22
| Ответить | Цитировать | Написать  
Набор даты
    #33185092
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
Пользователь2А порядок ввода определенный?

Код: plaintext
 26072005

Или могут быть разные варианты?

Код: plaintext
1.
2.
 26072005 
 07262005 
 20050726


да типа этого ...26072005 - > 26.07.2005
19121975 -> 19.12.1975
нужно при вводе ...или при нажатии Enter
...
Рейтинг: 0 / 0
26.07.2005, 15:01:03
| Ответить | Цитировать | Написать  
Набор даты
    #33185094
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
SAS!а маску ввода исползовать?

нет опыта где ставит ## ...
приведи пож-та пример
...
Рейтинг: 0 / 0
26.07.2005, 15:01:59
| Ответить | Цитировать | Написать  
Набор даты
    #33185149
mihmih
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mihmih
Участник
1. Разместить в модуле листа(листов):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String
Dim Separator
Separator = "."
Target.Cells( 1 ,  1 ).NumberFormat = "General"
 If Len(Target.Cells( 1 ,  1 )) =  8  Then
  s = Target.Cells( 1 ,  1 )
  Target.Cells( 1 ,  1 ) = Mid(s,  1 ,  2 ) + Separator + Mid(s,  3 ,  2 ) + Separator + Mid(s,  5 ,  4 )
  Target.Cells( 1 ,  1 ).NumberFormat = "m/d/yyyy"
 End If
End Sub
2. Дороботать напильником :)
...
Рейтинг: 0 / 0
26.07.2005, 15:24:37
| Ответить | Цитировать | Написать  
Набор даты
    #33185165
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Надо еще учесть, что при таком вводе 01012005 в формат ячейки "Общий"
будет отображаться 1012005 .
...
Рейтинг: 0 / 0
26.07.2005, 15:30:31
| Ответить | Цитировать | Написать  
Набор даты
    #33185182
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
mihmih1. Разместить в модуле листа(листов):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String
Dim Separator
Separator = "."
Target.Cells( 1 ,  1 ).NumberFormat = "General"
 If Len(Target.Cells( 1 ,  1 )) =  8  Then
  s = Target.Cells( 1 ,  1 )
  Target.Cells( 1 ,  1 ) = Mid(s,  1 ,  2 ) + Separator + Mid(s,  3 ,  2 ) + Separator + Mid(s,  5 ,  4 )
  Target.Cells( 1 ,  1 ).NumberFormat = "m/d/yyyy"
 End If
End Sub
2. Дороботать напильником :)

реально конечно ...а если я введу просто цифири-суммы или данные из цифр 8 знаков они у меня тоже пребразуются :/
...
Рейтинг: 0 / 0
26.07.2005, 15:35:34
| Ответить | Цитировать | Написать  
Набор даты
    #33185198
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
наверное нужно проверять с конца. Если =2005 то .......
...
Рейтинг: 0 / 0
26.07.2005, 15:39:59
| Ответить | Цитировать | Написать  
Набор даты
    #33185233
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
talgatнаверное нужно проверять с конца. Если =2005 то .......

год будет менятся в широких диапазонах 1960-2005
...
Рейтинг: 0 / 0
26.07.2005, 15:53:25
| Ответить | Цитировать | Написать  
Набор даты
    #33187564
mihmih
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mihmih
Участник
Jojoреально конечно ...а если я введу просто цифири-суммы или данные из цифр 8 знаков они у меня тоже пребразуются :/

If Target.Left = NeedColumn Then ....
...
Рейтинг: 0 / 0
27.07.2005, 17:06:15
| Ответить | Цитировать | Написать  
Набор даты
    #33188193
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
mihmih Jojoреально конечно ...а если я введу просто цифири-суммы или данные из цифр 8 знаков они у меня тоже пребразуются :/

If Target.Left = NeedColumn Then ....

Не могу врубится что здесь NeedColumn ?
...
Рейтинг: 0 / 0
28.07.2005, 08:26:43
| Ответить | Цитировать | Написать  
Набор даты
    #33188200
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
работает :)
и если у меня не один столбец с датами а несколько
и еще столбцы не смежные
как тогда?

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
28.07.2005, 08:30:03
| Ответить | Цитировать | Написать  
Набор даты
    #33190961
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
поможите пожта

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
29.07.2005, 10:49:43
| Ответить | Цитировать | Написать  
Набор даты
    #33193513
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
Вот :)


' Процедура преобразования даты
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Static dont As Boolean
Separator = "."
If Not dont Then
Select Case Target.Column
'Укажите столбцы где нужно преобразование
Case 6, 7, 11, 12, 21, 22, 31, 35, 41, 42, 50
If IsNumeric(Target.Value) Then
Select Case Len(Target.Value)
Case 8
dont = True
Target.Value = Left$(Target.Value, 2) & Separator & Mid$(Target.Value, 3, 2) & Separator & Right$(Target.Value, 4)
dont = False
Case 6
dont = True
If Mid(Target.Value, 5, 1) = 0 Then
Target.Value = Left$(Target.Value, 2) & Separator & Mid$(Target.Value, 3, 2) & Separator & "20" & Right$(Target.Value, 2)
Else
Target.Value = Left$(Target.Value, 2) & Separator & Mid$(Target.Value, 3, 2) & Separator & "19" & Right$(Target.Value, 2)
End If
dont = False
Case Else
MsgBox ("Неверно заведена дата или пустое значение !")
End Select
End If
End Select
End If

End Sub

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
01.08.2005, 09:17:21
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Набор даты
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33188193&tid=2185878]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 36ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 203ms
total:  330ms
созд. / загр.: 330ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]