Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
Przesunięty przez: bodek
06-07-2014, 20:52
Zagadka z apostrofem
Autor Wiadomość
OShon 
Excel Expert



Zaproszone osoby: 398
Wersja: Win Office 365
Pomógł: 1638 razy
Posty: 8386
Wysłany: 11-05-2012, 17:10   Zagadka z apostrofem

No to aby nam sie nie nudziło ;)
Mamy w komórach stringa, wiele linii, które zaczyna się od pojedynczego apostrofu.

Wiadomo że używa się go w tedy gdy chce się rozpocząć wstawianie ręczne od "-", ale niekoniecznie. Czasami chore programu tak eksportują linię.
Excel oczywiście nie pokazuje tych "'".
Jak je usunąć np z zaznaczonego obszaru?

Kod:
Sub lkds()
Dim el As Range, a$
For Each el In Selection
a = el.Text: Debug.Print a 'nie widać "'" oraz Len(el) wskazuje że nie ma apostrofu - a jest
 el = Replace(a, Chr(39), "") 'zamiast chr -> "'" też nie działa.
Next
End Sub

Nędzne próbuje nie skutkują - zostaje apostrof.
Czyżby export do innego formatu a potem import do akrusza? (armatą na muchę)

Dobre na weekend - nieprawdaż.
Odpowiedź jest prosta (aż się roześmiałem) ... jestem ciekawy czy ktoś na to wpadnie.
_________________
Oskar Shon - MVP Office System/Development 11/21, 3xMCC, 4/9/22 TechNet
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA | GL Excel VBA
Dodatki do Office VBATools.pl, aktualne promocje, darmowe artykuły i literatura
ID posta: 158836 Skopiuj do schowka
 
 
negatyv
Excel Expert



Zaproszone osoby: 393
Pomógł: 338 razy
Posty: 1720
Wysłany: 11-05-2012, 23:05   

Proste, specjalnie się nie nagłówkowałem :P
_________________
http://www.123office.pl - blog poświęcony programom pakietu MS Office.

Kurs VBA | LinkedIn
ID posta: 158859 Skopiuj do schowka
 
 
master_mix 
Excel Expert



Pomógł: 1141 razy
Posty: 2098
Wysłany: 11-05-2012, 23:42   

rozumien że chodzi tu o zamianę TEKSTU poprzedzonego apostrofem na tekst bez apostrofu (nie liczby) ? :-)
_________________
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Podejmę współpracę (pracę) w zakresie tworzenia aplikacji arkusza kalkulacyjnego z wykorzystaniem VBA. Programowanie VB.NET, ASP.NET, WPF. Technologie LINQ, Entity Framework. Aplikacje klienckie dla baz danych SQL Server, Oracle, MySQL
Wrocław i okolice …lub zdalnie.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ID posta: 158863 Skopiuj do schowka
 
 
OShon 
Excel Expert



Zaproszone osoby: 398
Wersja: Win Office 365
Pomógł: 1638 razy
Posty: 8386
Wysłany: 12-05-2012, 08:08   

tak tak m_m - jakikolwiek string z pojedynczym apostrofem na czele.
_________________
Oskar Shon - MVP Office System/Development 11/21, 3xMCC, 4/9/22 TechNet
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA | GL Excel VBA
Dodatki do Office VBATools.pl, aktualne promocje, darmowe artykuły i literatura
ID posta: 158873 Skopiuj do schowka
 
 
Zmora 
Excel Expert



Zaproszone osoby: 1
Pomógł: 1154 razy
Posty: 2736
Wysłany: 12-05-2012, 17:46   

Proste, do kiedy trwa konkurs? :mrgreen:
_________________
Maciej

– To wódka? – słabym głosem zapytała Małgorzata.(...)
– Na litość boską, królowo – zachrypiał – czy ośmieliłbym się nalać damie wódki? To czysty spirytus.
Michaił Bułhakow – Mistrz i Małgorzata
ID posta: 158900 Skopiuj do schowka
 
 
wuzeq
ExcelSpec



Pomógł: 157 razy
Posty: 487
Wysłany: 12-05-2012, 18:58   

To pozwolę sobie napisać jedną możliwość

Ukryta Wiadomość:
Jeśli jesteś *zarejestrowanym użytkownikiem* musisz odpowiedzieć w tym temacie żeby zobaczyć tą wiadomość
--- If you are a *registered user* : you need to post in this topic to see the message ---
ID posta: 158905 Skopiuj do schowka
 
 
bodek 


Wersja: Win Office 2019
Pomógł: 994 razy
Posty: 2900
Wysłany: 12-05-2012, 19:15   

A czy bez VBA (bo to akurat znam) też jest proste?
_________________
Szkolenia z Excela, Power Query, Power Pivot, wizualizacje danych w Excelu, szkolenia online
ID posta: 158909 Skopiuj do schowka
 
 
master_mix 
Excel Expert



Pomógł: 1141 razy
Posty: 2098
Wysłany: 12-05-2012, 21:54   

To ja też trochę podpowiem
tekst jako kolumny nie działa, kom.value = kom.value też nie

i nie jest to takie proste ... chyba :mrgreen:

Bodzio, raczej chodzi o VBA bo nic innego nie zadziała
_________________
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Podejmę współpracę (pracę) w zakresie tworzenia aplikacji arkusza kalkulacyjnego z wykorzystaniem VBA. Programowanie VB.NET, ASP.NET, WPF. Technologie LINQ, Entity Framework. Aplikacje klienckie dla baz danych SQL Server, Oracle, MySQL
Wrocław i okolice …lub zdalnie.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ID posta: 158921 Skopiuj do schowka
 
 
negatyv
Excel Expert



Zaproszone osoby: 393
Pomógł: 338 razy
Posty: 1720
Wysłany: 12-05-2012, 21:58   

Ja już podałem odpowiedź :P
_________________
http://www.123office.pl - blog poświęcony programom pakietu MS Office.

Kurs VBA | LinkedIn
ID posta: 158922 Skopiuj do schowka
 
 
OShon 
Excel Expert



Zaproszone osoby: 398
Wersja: Win Office 365
Pomógł: 1638 razy
Posty: 8386
Wysłany: 13-05-2012, 00:14   

Ano negatyv podał tzw odpowiedz ukrytą ale i prawidłową. ... Ktoś juz odgadł szaradę?
_________________
Oskar Shon - MVP Office System/Development 11/21, 3xMCC, 4/9/22 TechNet
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA | GL Excel VBA
Dodatki do Office VBATools.pl, aktualne promocje, darmowe artykuły i literatura
ID posta: 158924 Skopiuj do schowka
 
 
bodek 


Wersja: Win Office 2019
Pomógł: 994 razy
Posty: 2900
Wysłany: 13-05-2012, 07:29   

Hmm, u mnie (2003) działają:
Kod:
Sub aaa()
  Range("A1") = Range("A1")
End Sub
Tekst Jako Kolumny też działa, a ponadto ja to wcześniej robiłem poprzez:
Kod:
=OCZYŚĆ(A1)
i potem kopia wartości.
_________________
Szkolenia z Excela, Power Query, Power Pivot, wizualizacje danych w Excelu, szkolenia online
ID posta: 158927 Skopiuj do schowka
 
 
OShon 
Excel Expert



Zaproszone osoby: 398
Wersja: Win Office 365
Pomógł: 1638 razy
Posty: 8386
Wysłany: 13-05-2012, 14:44   

Faktycznie oczyść też działa (+)
jednakże dla większych obszarów trochę niewygodne.
Kod:
  Range("A1") = Range("A1")

na 2010 nie działa.
_________________
Oskar Shon - MVP Office System/Development 11/21, 3xMCC, 4/9/22 TechNet
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA | GL Excel VBA
Dodatki do Office VBATools.pl, aktualne promocje, darmowe artykuły i literatura
ID posta: 158939 Skopiuj do schowka
 
 
Zmora 
Excel Expert



Zaproszone osoby: 1
Pomógł: 1154 razy
Posty: 2736
Wysłany: 13-05-2012, 16:25   

U mnie na Ex2003 i Ex2007
Kod:
Range("A1").Value = Range("A1").Value

lub
Kod:
With Cells(1, 1)
.Value = .Value
End With

jak narazie nigdy mnie nie zawiodło. Natomiast Tekst jako kolumny... nie działa.
OShon napisał/a:
Range("A1") = Range("A1")

na 2010 nie działa.

2010 nie mam, więc się nie wypowiadam.

Wersja bez VBA (OCZYŚĆ()) jak najbardziej działa :-)
_________________
Maciej

– To wódka? – słabym głosem zapytała Małgorzata.(...)
– Na litość boską, królowo – zachrypiał – czy ośmieliłbym się nalać damie wódki? To czysty spirytus.
Michaił Bułhakow – Mistrz i Małgorzata
ID posta: 158943 Skopiuj do schowka
 
 
wuzeq
ExcelSpec



Pomógł: 157 razy
Posty: 487
Wysłany: 13-05-2012, 17:43   

Excel 2010

  • Tekst jako kolumny działa, ale tylko na liczby (mój błąd, nie sprawdziłem dokładnie)
  • .value =.value , również jedynie na liczbach (poza tym samo range=range nie działa w ogóle)
  • samo wklejenie specjalnie jako wartości eliminuje apostrof (więc jakiekolwiek przetworzenie przez formuły zadziała tak samo)
ID posta: 158949 Skopiuj do schowka
 
 
bodek 


Wersja: Win Office 2019
Pomógł: 994 razy
Posty: 2900
Wysłany: 13-05-2012, 18:17   

Sprawdziłem dla 2010 i 2007
Tekst Jako Kolumny działa bez zarzutu, dla stringów również -> w drugim oknie wybór Inny i wpisać w okienku obok apostrof
wuzeq napisał/a:
.value =.value , również jedynie na liczbach (poza tym samo range=range nie działa w ogóle)
jak napisano
wuzeq napisał/a:
samo wklejenie specjalnie jako wartości eliminuje apostrof (więc jakiekolwiek przetworzenie przez formuły zadziała tak samo)
jak napisano, również dla 2007 ale w wersji 2003 dla liczb już nie zadziała, czyli formułka była potrzebna.
_________________
Szkolenia z Excela, Power Query, Power Pivot, wizualizacje danych w Excelu, szkolenia online
ID posta: 158953 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe