Sub usun_spacje()
Dim s As String
Dim sr As String
sr = ""
s = str(Selection.Value)
cyfry = " "
lcyf = Len(s)
For i = 1 To lcyf
Z = Mid(s, i, 1)
If Z Like cyfry Then
Else
sr = sr + Z
End If
Next
Selection.Value = sr
Selection.Offset(1, 0).Select
End Sub
Można też przypisać jakiś klawisz skrótu i będzie znacznie szybciej...
A wystarczy komenda Trim()
OdpowiedzUsuńniestety nie mogę się zgodzić - Trim( ) usuwa białe znaki z końców ciągu a nie ze środka - to po pierwsze...
OdpowiedzUsuńspotkałem się jednak dzisiaj z przypadkiem, gdy arkusz budowany na podstawie kopiuj/wklej z tabeli ze strony WWW nie reagował na funkcje testowe Excela pomimo formatu komórki jako tekst... dziwne ale prawdziwe
więc nie zawsze jest tak prosto jak Ci się wydaje... :)
Pozdrawiam
Witam
OdpowiedzUsuńMam taki problem. Plik excela zawierający makra blokujące funkcje (prawy klawisz myszki, podgląd wydruku itp), mógłbyś mi pomóc? Pozdr
Jasne...
OdpowiedzUsuńwyślij szczgóły - plik
sprawdzę czy jest na hasło - jeśli tak to pozostaje tylko hakownie
hasła na edycję mark...
jeśli nie to można makra zmodyfikować
masz maila ?
Fajnie:) Hasła nie ma, można modyfikowac makra, tylko właśnie nie bardzo się na tym znam. Na jaki adres mam wysłać plik?
OdpowiedzUsuńexcel@10g.pl
OdpowiedzUsuńNa tej stronie zamieszczę rozwiązanie...
oczywiście o ile się uda :P
OdpowiedzUsuńusunięcie zabezpieczeń arkusza
OdpowiedzUsuńDowolne znaki można usunąć znacznie krótszą funkcją:
OdpowiedzUsuńFunction usunZnak(napis as string,znak as string)
dim p() as string
p= split(napis,znak)
usunZnak = join(p,"")
end function
i już
Można i tak:
OdpowiedzUsuń=WARTOŚĆ(PODSTAW(PODSTAW(A1;ZNAK(160);"");" ";""))