user: "Skylla"

>Arkusz 1 - część właściwa ankiety. Tu znajdować się będą ramki, w >których będą zawarte poszczególne pytania. Chcę do każdego pytania >(jednokrotnego wyboru) użyć kontrolki "option button", oczywiście, aby >poszczególne optiony odnosiły się tylko do odpowiednich pytań, będę je >umieszczał w odpowiednich ramkach. Dziwny pomysł aby tego typu ankietę z samymi opcjami robić na arkuszu excela, prościej byłoby na formularzu. >Jakiego polecenia użyć aby "wyczyścić" (po wypełnieniu formularza >przez danego ankietowanego) pola wyboru (wszystkie option buttony), >tak aby kolejny ankietowany mógł rozpocząć wypełnianie od nowa? Opcji się nie czyści, jedna z opcji każdej grupy musi być wybrana. Zatem możesz co najwyżej wybrać każdą pierwszą.

user: "pxd74"

Użytkownik napisał w wiadomości news:1178659496.354503.109250@u30g2000hsc.googlegroups.com... > W związku z powyższym mam 2 pytania: > > 1. Jakiego polecenia użyć aby dane w arkuszu 2 mogły się sumować po > wskazaniu odpowiedzi w arkuszu 1? (Czyli: ankietowany zaznacza swoje > odpowiedzi w arkuszu 1, później klika na przycisk, zakończ ankietę i > wtedy automatycznie głosy oddane przez ankietowanego na poszczególne > odpowiedzi są dodawane do odpowiedzi (wartości w arkuszu nr 2) już > wcześniej oddanych). Zapisywać te odpowiedzi. Zapis może odbywać się poprzez: -komórki w ukrytym arkuszu -zmienną globalną -rejestr systemu -plik tesktowy > 2. Jakiego polecenia użyć aby "wyczyścić" (po wypełnieniu formularza > przez danego ankietowanego) pola wyboru (wszystkie option buttony), > tak aby kolejny ankietowany mógł rozpocząć wypełnianie od nowa? To zależy jakiego paska narzędzi użyłeś do wstawiania tych pól wyboru. Jeśli paska narzędzi "Przybornik formantów" to użyj tego kodu: Sub Jeden() Dim i As Long For i = 1 To ActiveSheet.OLEObjects.Count If TypeName(ActiveSheet.OLEObjects(i).Object) = "OptionButton" Then ActiveSheet.OLEObjects(i).Object.Value = False End If Next End Sub 'Jeśli paska narzędzi "Fromualrze" to użyj takiego kodu: Sub Dwa() Dim i As Long For i = 1 To ActiveSheet.Shapes.Count If ActiveSheet.Shapes(i).Type = msoFormControl Then If ActiveSheet.Shapes(i).FormControlType = xlOptionButton Then ActiveSheet.Shapes(i).ControlFormat.Value = False End If End If Next End Sub -- Pozdrowienia pxd74

user: "Skylla"

> To zależy jakiego paska narzędzi użyłeś do wstawiania tych pól wyboru. > Jeśli paska narzędzi "Przybornik formantów" to użyj tego kodu: > > 'Jeśli paska narzędzi "Fromualrze" to użyj takiego kodu: > Skoro ma ramki to zapewne to drugie. Nadal jednak uważam, że oprogramowywanie tego (o ile tych opcji jest dużo) będzie dość męczące:-). S.

user: "pxd74"

Użytkownik "Skylla" napisał w wiadomości news:f1tdge$25k$1@inews.gazeta.pl... >> To zależy jakiego paska narzędzi użyłeś do wstawiania tych pól wyboru. >> Jeśli paska narzędzi "Przybornik formantów" to użyj tego kodu: >> >> 'Jeśli paska narzędzi "Fromualrze" to użyj takiego kodu: >> > Skoro ma ramki to zapewne to drugie. Nie takie rzeczy już widziałem :-) Może ramki zostały wstawione przy pomocy np. polecenia "Prostokąt" z paska "Rysowanie". > Nadal jednak uważam, że oprogramowywanie tego (o ile tych opcji jest > dużo) będzie dość męczące:-). Pamiętaj, że przyciski opcji można połączyć z odpowiednimi komórkami w arkuszu, co zdecydowanie ułatwia zadanie. Ale to oczywiście wszystko zależy od człowieka. Dla jednego łatwiejsze i prostsze bedzie zbudowanie UserForma, ald drugiego opcji na arkuszu. -- Pozdrowienia pxd74