Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 08/10/2015 in Posts

  1. я знает =) На скорую руку Private Sub Worksheet_Change(ByVal Target As Range) Dim vValDim StrVal As StringDim dDate As Date If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A2:A10")) 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("B2:B10")) 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 = TrueEnd Sub
    2 points
  2. 1 point
  3. Большое спасибо. Все отлично работает!
    1 point
  4. Это из-за крайнего справа li - его margin-right и выдает скролл.
    1 point
  5. На самом деле, им бы никто слова не сказал, если бы они небыли козлами
    1 point
  6. Сделайте якорь невидимым и установите его повыше (на размер меню).
    1 point
This leaderboard is set to Kiev/GMT+02:00
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue. See more about our Guidelines and Privacy Policy