Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Data i godz - zamiana z wartości na datę (godz. 06:00-05:00 jedna data)

lisekx 09 Wrz 2015 16:20 492 5
  • #1 09 Wrz 2015 16:20
    lisekx
    Poziom 14  

    Mam w skoroszycie w kolumnie A datę, w kolumnie B godzinę, ale są to wartości (w takiej formie są wklejane) i dodatkowo mają spację przed i po.
    Istnieje możliwość aby makro lub formuła na podstawie tych kolumn podawała prawdziwą datę w kolumnie C, ale z uwzględnieniem godzin tzn. od godz. 06:00 do 05:00 jako ta sama data np. godz. 06:00 09-09-2015 i po północy 05:00 10-09-2015 dają nam tą samą datę 09-09-2015, dopiero godz. 06:00 10-09-2015 dawałoby datę 10-09-2015 ?
    Z góry dziękuję za pomoc

    0 5
  • #2 09 Wrz 2015 16:25
    KSRhaziel
    Poziom 36  

    Możesz rozebrać na składowe, każda do innej kolumny, a potem już sobie funkcjami zrobić co i jak. Satysfakcjonuje Cię takie rozwiązanie, czy szukasz czegoś bardziej skondensowanego?

    0
  • #3 09 Wrz 2015 16:36
    lisekx
    Poziom 14  

    vampire86 napisał:
    Możesz rozebrać na składowe, każda do innej kolumny, a potem już sobie funkcjami zrobić co i jak. Satysfakcjonuje Cię takie rozwiązanie, czy szukasz czegoś bardziej skondensowanego?

    Mogłoby być, tylko jak to zrobić ?

    0
  • Pomocny post
    #4 09 Wrz 2015 17:00
    KSRhaziel
    Poziom 36  

    Przeanalizuj sobie jakich formuł zastosowałem, możesz je sobie połączyć. Kolumna z datą dodatkowo jest w Excelu ustawiona jako format wyświetlania daty. Również dodałem ostatni wiersz, aby zademonstrować, że Excel jest na tyle mądry, że potrafi wygenerować datę cofając się o miesiąc, jeżeli ma przejście z 1 na 31.

    PS
    Ale nie kopiuj jak małpa, tylko postaraj się zrozumieć, żebyś wyłapał ewentualne błędy, które (jak każdy człowiek) mogłem zrobić.

    1
  • #5 09 Wrz 2015 17:13
    lisekx
    Poziom 14  

    Dzięki
    W miedzy czasie udało mi się zamienić wartości na datę i godzinę zrobić za pomocą makro, tylko zostało jeszcze ta prawidłowa data po północy :(
    Macie jakiś pomysł ?

    Code:
    Sub konwertuj()
    

        Columns("B:C").Select
        Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Sheets("Arkusz1").Select
        Range("A1").Select
    End Sub

    0