Nika7
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем добрый вечер...
задача такая:
1.Как сделать так,чтобы в столбце"проживание в гостинице"- при выборе "нет",автоматически появлялись прочерки в двух следующих столбцах("дата заезда"и "время прибытия")?
http://ifolder.ru/7366196-ссылка на файл
2.Проверте пожалуйста макрос...он не работает,выдает какую-то ерунду...
Макрос для быстрого ввода даты и времени в столбцах (E,Q,R),т.е. мы просто без всяких точек,запятых и др.заком вводим цифры в нужную ячейку,а там автоматически проставляются точки(для даты дд.мм.гггг и для времени чч:мм).Один раз сработало..а потом все...ошиби постоянные.
Макрос такой:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vVal
Dim StrVal As String
Dim dDate As Date
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("Q4:Q33", "E4:E33")) Is Nothing Then
With Target
StrVal = Format(.Text, "000000")
If IsNumeric(StrVal) And Len(StrVal) = 6 Then
Application.EnableEvents = False
dDate = DateValue(Left(StrVal, 2) & "." & Mid(StrVal, 3, 2) & "." & Right(StrVal, 2))
.NumberFormat = "dd.mm.yyyy"
.Value = CDate(DateSerial(Year(dDate), Month(dDate), Day(dDate)))
End If
End With
End If
If Not Intersect(Target, Range("R4:R33")) Is Nothing Then
With Target
vVal = Format(.Value, "0000")
If IsNumeric(vVal) And Len(vVal) = 4 Then
Application.EnableEvents = False
.Value = Left(vVal, 2) & ":" & Right(vVal, 2)
.NumberFormat = "[h]:mm"
End If
End With
End If
Application.EnableEvents = True
End Sub
очень надеюсь на вашу помощь...Спасибо взаранее )
|
