Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: konwersja formatu daty i wycinanie tekstu
afro1



Typ: neutral
Postów: 3
Zarejestrowany: Apr 2003
konwersja formatu daty i wycinanie tekstu

Witam.

Jak mogę przekonwertować w Excelu datę zapisaną tak:

26.05.2004

na zapisaną tak:

2004-05-26

Wszystko ma dziać się w jednej komórce.

Bardzo proszę o pomoc, jakiś króciutki kod źródłowy.
__________________________________________
Jeszcze jedno. Mam w arkuszu Excela komórkę z tekstem:

Jan Kowalski

Chcę podzielić zawarty w niej tekst, żeby imię pozostało w tej komórce, a nazwisko zostało przeniesione do drgiej komórki, która jest bezpośrednio obok po prawej stronie:
__________________
| Jan | Kowalski |

Nazwisko jest zawsze na drugim miejscu, więc chodzi mi tylko o to aby makro wycinało mi drugi wyraz i przenosiło do komórki obok po prawej.

Pomocy, plizzz

z góry dziękuję. afro

[Post edytowany dnia 20-03-2004 21:09 przez afro1]


_____________________________________________
AFRO to nie moje włosy, tylko moja ksywa

20-03-2004 21:06
Pokaż profil afro1  Wyślij email do afro1   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003


Sub TestowanieNaEkranie()
    ActiveSheet.Range("A11" = ZamienDate(ActiveSheet.Range("A11")
End Sub

Function ZamienDate(ByVal jakasData As String) As String
Dim strTmp As String
Dim poz As Long

Do
    poz = InStr(poz + 1, jakasData, ".", vbTextCompare)
    If poz > 0 Then
        Mid(jakasData, poz, 1) = "-"
    End If
Loop While poz > 0

ZamienDate = jakasData

End Function



Z nazwiskiem robisz podobnie!
Jak coś, podeślę Ci kod...


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

21-03-2004 16:56
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1