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
ID tematu: 70538 Skopiuj do schowka 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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
Raazor 
ExcelGaduła 500+


Posty: 555
Wysłany: 29-03-2021, 18:05   

No i super. Działa.
_________________
Raazor
ID posta: 402928 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