napisał: marcuu postów: 2
umieszczony: 30 marca 2005 23:08
|
|
Proponuję zamienić w kodzie datę na tekst, powycinać i pododawać co trzeba i poustawiać w pożądanym formacie, np:
Private Sub CommandButton1_Click()
Dim data, datanew As String
data = Right(Cells(1, 1), 8)
datanew = Left(data, 6) & "20" & Mid(data, 7, 2)
Cells(1, 2) = datanew
End Sub
wpisując w komórkę A,1 datę 07-02-05 excel przeformatuje ją na 2007-02-05. Więc my potraktujmy ją jako zwykły tekst (string)składający się z 8 znaków. Funkcją Right ucinamy 6 od prawej strony a następnie przed 05 wstawiamy 20. Otrzymujemy wtedy tekst 07-02-2005, który po wrzuceniu do komórki 1,2 excel zamienia na format daty 07-02-2005. Zaznaczam, że ten kod działa tylko dla lat 2001 - 2099. |
|
napisał: cheniek postów: 5
umieszczony: 22 marca 2005 11:57
|
|
Więc ...
oprogramowanie którego używam exportuje datę w formacie dd-mm-rr (czyli np. 07-02-05) co excel widzi jako 2007-02-05.
Może ktoś wie jak to zmienić w VBA do formatu 2005-02/07.
Dzięki za jakiekolwiek informacje.
Pozdrawiam ;) |
|
wstecz 1 dalej wszystkich stron: 1
|