ID tematu: 70538
 |
Znak X w kwadracie. |
| Autor |
Wiadomość |
Raazor 
ExcelGaduła 500+
Posty: 555
|
 Wysłany: 28-03-2021, 18:50 Znak X w kwadracie.
|
|
|
W załączonym pliku znajduje się kontrolka formularza gdzie zaznaczany jest tzw. ptaszek.
Co zrobić, aby w excelu wstawiać kwadrat, w którym będzie można go zaznaczać i odhaczać znakiem X.
W załączeniu plik:
Znak X.xlsm
|
 Pobierz Plik ściągnięto 11 raz(y) 11.13 KB |
|
_________________
Raazor |
|
 | ID posta:
402869
|
|
|
 |
|
|
|
|
Maciej Gonet
Excel Expert
Wersja: Win Office 2016
Pomógł: 2118 razy
Posty: 6628
|
| Wysłany: 28-03-2021, 20:53
|
|
|
Pozostając przy standardzie pól wyboru tego się prawdopodobnie nie da zrobić.
Można szukać jakichś rozwiązań zastępczych z wyświetlaniem znaków specjalnych.
Jedno z rozwiązań skopiowane z sieci polega na wyświetlaniu na przemian litery X i minusa (ew. inny znak lub nic) po kliknięciu w komórkę.
Można dopasować do potrzeb. Nie napisałeś o co właściwie Ci chodzi. Dlaczego ten standardowy "ptaszek" Ci nie odpowiada?
Znak X.xlsm
|
| Pobierz Plik ściągnięto 5 raz(y) 16.07 KB |
|
|
 | ID posta:
402872
|
|
|
|
|
|
|
Raazor
ExcelGaduła 500+
Posty: 555
|
| Wysłany: 28-03-2021, 21:30
|
|
|
Chodzi o to, że przerabiam dokumenty do excela, które wytworzone zostały w wordzie. W excelu za jednym kliknięciem wstawiam wiele danych w różnych komórkach.
Według polityki wytwórców dokumentacji w wordzie oznaczone jest, że w polu kwadrat ma być wstawiony znak X. Dlatego szukałem rozwiązania, aby zmienić „ptaszka” na „krzyżyk”.
W arkuszach jest od kilku do kilkunastu kwadratów. Niektóre z nich trzeba zaznaczyć, a inne mają pozostać puste.
Szukałem rozwiązania w internecie, ale tam podawane są rozwiązania dla ms word. |
_________________
Raazor |
|
| ID posta:
402874
|
|
|
|
|
|
Tajan
Pomógł: 4767 razy
Posty: 10469
|
| Wysłany: 28-03-2021, 22:36
|
|
|
Użyj znaku o kodzie 120 i czcionki Wingdings. Przykład na podstawie pliku Macieja.
Znak X (tj).xlsm
|
| Pobierz Plik ściągnięto 8 raz(y) 18.54 KB |
|
|
| ID posta:
402876
|
|
|
|
|
|
Raazor
ExcelGaduła 500+
Posty: 555
|
| Wysłany: 28-03-2021, 23:17
|
|
|
| Fajnie, tylko jak te kwadraty uruchomić dodatkowo np. w B4, B6, C5 i D5 ?, coś mi nie wychodzi. |
_________________
Raazor |
|
| ID posta:
402877
|
|
|
|
|
|
Maciej Gonet
Excel Expert
Wersja: Win Office 2016
Pomógł: 2118 razy
Posty: 6628
|
| Wysłany: 29-03-2021, 00:51
|
|
|
Zobacz, czy o to Ci chodziło?
Znak X (2).xlsm
|
| Pobierz Plik ściągnięto 12 raz(y) 16.2 KB |
|
|
| ID posta:
402881
|
|
|
|
|
|
Raazor
ExcelGaduła 500+
Posty: 555
|
| Wysłany: 29-03-2021, 07:53
|
|
|
Możesz napisać jak wstawia się i usuwa to pole kwadrat ?.
Po za tym, o to właśnie mi chodziło. |
_________________
Raazor |
|
| ID posta:
402888
|
|
|
|
|
|
jurekabr
Exceloholic
Wersja: Win Office 2007
Pomógł: 24 razy
Posty: 135
|
| Wysłany: 29-03-2021, 09:45
|
|
|
W Code (makro) masz taką linijkę:
| Kod: | | Set rng = Range("B2,B4,B6,C5,D5") |
Tam dopisujesz komórkę gdzie ma być „X” jedynie w formatowaniu tej dodanej komórki ustaw czcionkę na Wingdings |
|
| ID posta:
402893
|
|
|
|
|
|
Maciej Gonet
Excel Expert
Wersja: Win Office 2016
Pomógł: 2118 razy
Posty: 6628
|
| Wysłany: 29-03-2021, 11:57
|
|
|
| Najprościej to skopiować tę komórkę z X tam gdzie trzeba. Czcionka skopiuje się wraz z komórką. Tylko na czas prac edycyjnych trzeba wyłączyć obsługę zdarzeń albo zmienić na chwilę nazwę procedury albo włączyć tryb projektowania. |
|
| ID posta:
402904
|
|
|
|
|
|
Raazor
ExcelGaduła 500+
Posty: 555
|
| Wysłany: 29-03-2021, 15:05
|
|
|
W zakładce Deweloper kliknąłem w tryb projektowania i mogę już kopiować i usuwać.
Działa, jest ok. Dziękuję. |
_________________
Raazor |
|
| ID posta:
402919
|
|
|
|
|
|
Raazor
ExcelGaduła 500+
Posty: 555
|
| Wysłany: 29-03-2021, 16:51
|
|
|
Testuję rozwiązanie i mam pytanie.
Czy można przerobić makro w ten sposób, aby X wstawiany był do kwadracika również w scalonych komórkach, tak jak w załączniku, gdzie kwadrat ma kolor czerwony. Obecnie przy scalonych komórkach wyskakuje błąd.
W załączeniu plik:
Znak X w kwadracie.xlsm
|
| Pobierz Plik ściągnięto 7 raz(y) 15.59 KB |
|
_________________
Raazor |
|
| ID posta:
402923
|
|
|
|
|
|
Tajan
Pomógł: 4767 razy
Posty: 10469
|
| Wysłany: 29-03-2021, 17:07
|
|
|
W makrze, fragment:
| Kod: | If Target.Value = Chr(111) Then
Target.Value = Chr(120)
Else
Target.Value = Chr(111)
End If
|
zmień tak:
| Kod: | If Target(1).Value = Chr(111) Then
Target(1).Value = Chr(120)
Else
Target(1).Value = Chr(111)
End If
|
|
|
| ID posta:
402925
|
|
|
|
|
|
Raazor
ExcelGaduła 500+
Posty: 555
|
| Wysłany: 29-03-2021, 18:05
|
|
|
| No i super. Działa. |
_________________
Raazor |
|
| ID posta:
402928
|
|
|
|
|
|
|
|
Regulamin
