[fenix7557]

Da się zrobić tak żeby w tekście komórki pogrubiało to co jest zawarte w "[ ]"? Wpiszę np "[TAG] jakiś tekst" i żeby excel pogrubił w tym "[TAG]".
#excel

[ludzik]

@fenix7557: Chyba tylko markami.

[r.....6]

@fenix7557: musi znajdować zamknięty nawias, czy tylko początek, czyli: [ ?

[fenix7557]

@reneq16: Od początku nawiasu do końca nawiasu ma pogrubiać. Wiem gdzie to wpisać ale nie wiem jak

[r.....6]

@fenix7557: czyli jak będzie coś w stylu: cośtam[tag]cośtam, to ma pogrubić w komórce tylko [tag]?

[fenix7557]

@reneq16: nom

[r.....6]

@fenix7557: To tylko marem, zwyczajne formatowania działają na całe komórki. Jeszcze pokombinuję, może coś odkryję.

[r.....6]

@fenix7557:
Sub test1()
On Error GoTo koniec
Dim komorka As String
Dim poczatek As String
Dim koniec As String
Dim wartoscStart
Dim wartoscKoniec
Dim dlugoscTekstu
start = "["
koniec = "]"
komorka = ActiveCell.Value2
wartoscStart = InStr(1, komorka, start, vbTextCompare)
wartoscKoniec = InStr(1, komorka, koniec, vbTextCompare)
If wartoscStart <> 0 Then
dlugoscTekstu = (wartoscKoniec - wartoscStart) + 1
ActiveCell.Characters(start:=wartoscStart, Length:=dlugoscTekstu).Font.FontStyle = "pogrubiony"
End If
koniec:
End Sub

To jest makro dla

[fenix7557]

@reneq16: O stary, dzięki za wysiłek w pisaniu makro. Ja to tak z ciekawości zapytałem dla lepszego porządku swoich danych których zapisuję. Myślałem raczej o czymś takim, że wpisuje do komórek tekst i excel automatycznie formatuje sposób wyświetlania tego, żeby [TAGI] były w tekście pogrubione, ale reszta tekstu w komórce normalna. Czyli podobnie jak to jest z wbudowanym typem walutowym. Wpisuję do komórki 120, excel wyświetla to jako "120,00 zł" ;).

[r.....6]

@fenix7557: a, i działa tylko dla pierwszego wystąpienia w tekście.

[fenix7557]

@reneq16: Miałem na myśli początkowo jakieś wyrażenie regularne dla wszystkich tagów w tekście, ale tak na prawdę i tak używam tylko jednego na początku tekstu więc spoko :D

[drzwi_do_piwnicy]

[TAG] jakiś tekst

@fenix7557: dla tekstu który jest w A1 i niżej po przeciągnięciu

=ZŁĄCZ.TEKSTY(LITERY.WIELKIE(FRAGMENT.TEKSTU(A1;ZNAJDŹ("[";A1);ZNAJDŹ("]";A1;ZNAJDŹ("[";A1))));FRAGMENT.TEKSTU(A1;ZNAJDŹ("]";A1;ZNAJDŹ("[";A1))+1;DŁ(A1)-ZNAJDŹ("]";A1;ZNAJDŹ("[";A1))+1))

[r.....6]

@fenix7557: To wieczorkiem mogę zrobić dla zaznaczonego zakresu.
Chyba, że wolisz, żeby automatycznie zmieniało to dla wprowadzanej komórki?

A właśnie - polecam się dla Warszawy, korepetycje i konsultacje z excela :)

[fenix7557]

@reneq16: Lepiej to drugie. Jeśli chcesz możesz zrobić. To mi już wystarczy ale ciekawy jestem czy da się to zrobić żeby było automatycznie.

[r.....6]

@fenix7557: Od razu mówię da się, ale od ręki nie napiszę, muszę pogrzebać.

[brak_nicku]

@fenix7557: ja miałem okazję się kiedyś zajmować trochę podobnym zadaniem - chodziło o to, żeby tekst wprowadzany w komórce traktowany był jako HTML. Czyli w tym wypadku zamiast [,] można było pogrubiać używając tagów **,<\b>. Znalazłem 2 możliwe rozwiązania, każde miało jakieś wady, ale działało to w miarę przyzwoicie.

[r.....6]

@fenix7557: Masz dwie wersje - pierwsza ZamienWszystkieTagiWZakresie, to makro które wykonywać musisz ręcznie i zamienia ono wszystkie tagi w dowolnym zakresie, który zaznaczysz. Druga wersja jest na potrzeby zmian dokonywanych w arkuszu i działa to tak: wpisujesz sobie nową komórkę i tam dajesz jakiś tekst w kwadratowych nawiasach. Ta część: **Private Sub Worksheet_Change(ByVal Target As Range)** wywołuje naszą drugą wersję za każdym razem, kiedy zmienisz coś w jakiejkolwiek komórce w arkuszu