GoldenLine
Zaloguj się
Katarzyna Papiernik

Katarzyna Papiernik

Temat: Kwerenda-> pozostawienie tylko liczb w komórce

Cześć,
Mam bazę danych, w której w jednej z kolumn przekazywane są niejednolite dane. Przykład poniżej:
Nr umowy 23 4960 4958 3957 8435 3556 3454
$$$28304840850482
W jaki sposób zostawić same cyfry pozbywając się spacji i innych znaków?:
2356917486060703
Dziękuję, będę wdzięczna za pomoc.
Link do wypowiedziLink
Marzanna Szulta

Marzanna Szulta właściciel, Usługi
Informatyczne
SZULTASET

Temat: Kwerenda-> pozostawienie tylko liczb w komórce

Tu trzeba skorzystać z funkcji Replace i to kilka razy. Chyba najprościej byłoby stworzyć własną funkcję VBA, która na bazie właśnie Replace zamieniałąby te wszystkie niepotrzebne znaki na pusty string.
Jeżeli tych "nie cyfr" jest dużo różnych - to chyba szybciej było w pętli sprawdzać każdy znak i zapisywać tylko cyfry.
Np. tak:
Public Function TylkoCyfry(JTekst)

Dim i As Integer

Dim Ciag As String

Dim IleZnak As Integer

Dim Znak As String

IleZnak = Len(JTekst)

Ciag = ""

For i = 1 To IleZnak

    Znak = Mid(JTekst, i, 1)

    If Znak Like "#" Then

        Ciag = Ciag & Znak

    End If

Next i

TylkoCyfry = Ciag

End Function

Można użyć albo w kwerendzie, albo modyfikując dane w tabeli (poprzez kwerendę aktualizującą.
Link do wypowiedziLink
Katarzyna Papiernik

Katarzyna Papiernik

Temat: Kwerenda-> pozostawienie tylko liczb w komórce

Dziękuję, bardzo za pomoc ?
Link do wypowiedziLink
Katarzyna Papiernik

Katarzyna Papiernik

Temat: Kwerenda-> pozostawienie tylko liczb w komórce

Dziękuję bardzo za pomoc :-)
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj