VBA - Format daty "mm/dd/yyyy"
Mój format pliku Excel do dat - 30 marca 2016 10: 12: 27: 396AM Chcę zmienić format na
MM/DD/YYYY, ale mam błąd kod..
Błąd wykonania „13”: niezgodność typów
to jest wiersz, w którym otrzymałem błąd
SecondDate = Trim (Sheet2.Range ("B" & amp; RowNo) .Value)
Uwaga
: Dane z kolumn A i B są datami
Mój kod:
Dim Result, RowNo As Long
Dim FirstDate As Variant
Dim SecondDate As VariantRowNo = 2 FirstDate = Trim(Sheet2.Range("A" & RowNo).Value)
SecondDate = Trim(Sheet2.Range("B" & RowNo).Value)
FirstDate = Format(FirstDate, "mm/dd/yyyy")
SecondDate = Format(SecondDate, "mm/dd/yyyy") Do Until Sheet2.Cells(RowNo, 1) = "" FirstDate = Sheet2.Cells(RowNo, 1)
SecondDate = Sheet2.Cells(RowNo, 2) If DateDiff("d", FirstDate, SecondDate) >= 15 Then
Sheet2.Cells(RowNo, 3) = "1"
Sheet2.Cells(RowNo, 4) = "2" End If RowNo = RowNo + 1
Loop
Naprawdę czuję, że jestem na prawej stronie ścieżki .. Mam coś przegapiłem?
Aktualizacja
: Mój skrypt otrzyma dane z
kolumna Ai
Kolumna Bi, używając
funkcja DateDiff, i
odjąć
obie kolumny, jeśli różnica wynosi & < 15, oznaczając ją z
kolumny C i Djako
1, 2
Uwaga
:
- Po prostu odliczam dni z obu kolumn. Ale czy można odjąć, a dni i lata
- to działa, jeśli używam formatu mm/dd/rrrr w programie Excel, ale jeśli używam innego formatu, otrzymuję niezgodność Błędy
Zaktualizowany 2.
:
Column A | Column B | Column C
Mar 1 2016 10:12:27:396AM | Mar 30 2016 10:12:27:396AM |
Mar 1 2016 10:12:27:396AM | Mar 30 2016 10:12:27:396AM |
W moim pliku jest to format daty, jeśli spróbujesz go jako próbki danych, nie będzie działać, być może VBA nie rozpoznaje go jako dateformat?
Nie znaleziono powiązanych wyników
Zaproszony:
Aby odpowiedzieć na pytania, Zaloguj się lub Zarejestruj się
1 odpowiedzi
Anonimowy użytkownik
Potwierdzenie od:
Wejście testowe:
https://i.stack.imgur.com/YKlKG.png
Wyjście testowe:
https://i.stack.imgur.com/KT3me.png
Kod:
Proszę spędzić kilka minut, aby zrozumieć ten kod:
Poprosiłeś o czek zamiast dnia roku. Pomagają w tym wbudowane funkcje VBA (takie jak rok, miesiąc itp.).
Jak uzyskać aktualizację na pytanie
:
Nie jestem pewien, gdzie otrzymasz tymczasowe kody, ale Excel nie rozpoznaje dla milisekund. Używa .000 . Patrz poniżej ...
https://i.stack.imgur.com/TOB5n.png