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: 75464 Skopiuj do schowka Formularz uzupełniający bazę o brakujące dane
Autor Wiadomość
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 245
Wysłany: 25-01-2024, 11:31   

Dzięki. Teraz działa nie tylko z cyframi.
Ale dlaczego nie pobierają się do formularza nazwiska zawodników?
_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 433007 Skopiuj do schowka
 
 
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 245
Wysłany: 25-01-2024, 11:34   

Dzięki. Po usunięciu dzaiła.
Ale dlacze nazwiska i imiona zawodników nie pobierają się do formularza?
_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 433008 Skopiuj do schowka
 
 
master_mix 
Excel Expert



Wersja: Win Office 365
Pomógł: 1293 razy
Posty: 2637
Wysłany: 25-01-2024, 23:34   

Nie wiem jak twój docelowy arkusz się zmienił.
Wszystkie dane są pobierane z akrusza i wiersza w którym była kliknięta komórka uruchamiająca formularz.
Dane z tego samego wiersza.

Wszystko jest w klasie ClassGameList, metoda: GameActivate
_________________

Podejmę współpracę (pracę)
Programowanie C#, Android, iOS, VB.NET, VBA, ASP.NET Core, WPF, Xamarin, Power Platforms, XAML, MVC, LINQ, Entity Framework. Bazy danych SQL Server, Oracle, MySQL, Firebird
Wrocław i okolice …lub zdalnie.
ID posta: 433020 Skopiuj do schowka
 
 
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 245
Wysłany: 26-01-2024, 07:56   

Ale w klasie ClassGameList, metoda: GameActivate nie ma zdefiniowanego pola formularza opisującego: Nazwisko i Imię 1 (ZawodnikLewy) oraz Nazwisko i Imię 2 (ZawodnikPrawy).
Kod:
Public Sub GameActivate(ByVal nrMeczu As String)
   
    Dim x As Long
    Dim gData As ClassGameData
    Dim gElement As ClassGameElement
   
    Set gData = New ClassGameData
    Set gElement = FindGameElement(nrMeczu)
    Set actElement = gElement
    With gData
        Set .gameElement = gElement
        .NazwaTurnieju = arkInfo.Range("C3").Value
        '.nrMeczu = gameSheet.Cells(gElement.ArkRow, "V").Value
        .NrStolu = gameSheet.Cells(gElement.ArkRow, "W").Value
        .NawiskoL = gameSheet.Cells(gElement.ArkRow, "X").Value
        .NawiskoP = gameSheet.Cells(gElement.ArkRow, "Y").Value

        For x = LBound(arrColl) To UBound(arrColl) Step 2
            .AddGame gameSheet.Cells(gElement.ArkRow, arrColl(x)).Value, _
                gameSheet.Cells(gElement.ArkRow, arrColl(x + 1)).Value
        Next
    End With
   
    Set actGdata = gData
    RaiseEvent ActiveGame(actGdata)
   
End Sub

Kolumna X to kolumna w której jest Zawodnik Lewy a kolumna Y to kolumna w której jest Zawodnik Prawy. Nie wiem co to jest "NawiskoL" i "NawiskoP" w kodzie tej procedury. Nie ma błędu w kodzie jest Nawisko nie Nazwisko. Ale wstawienie"z" i zmiana z Nawiska na Nazwisko też nic nie zmienia. Nazwa pola które powinno pobrać nazwę to wg. formularza "ZawodnikLewy" i "ZawodnikPrawy" a Caption to "Nazwisko i Imię 1" oraz "Nazwisko i Imię 2" i to Caption powinen przyjąć wartości z komórek w wierszu i kolumn X i Y.
Przesyłam w plikach zrzut ekranu z opisem formularza oraz mój plik po zmianach.

Zrzut ekranu 2024-01-26 074025.png
Plik ściągnięto 5 raz(y) 356.48 KB

WTK-1-1 25.01.2024.xlsm
Pobierz Plik ściągnięto 41 raz(y) 255.43 KB

_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 433032 Skopiuj do schowka
 
 
master_mix 
Excel Expert



Wersja: Win Office 365
Pomógł: 1293 razy
Posty: 2637
Wysłany: 26-01-2024, 08:35   

aaaa, ok, nie zauważyłem tego
w kodach formularza w zdarzeniu MyGames_ActiveGame
dopisz na końcu przed End With
Kod:

ZawodnikLewy.Caption = .NawiskoL
ZawodnikPrawy.Caption = .NawiskoP
_________________

Podejmę współpracę (pracę)
Programowanie C#, Android, iOS, VB.NET, VBA, ASP.NET Core, WPF, Xamarin, Power Platforms, XAML, MVC, LINQ, Entity Framework. Bazy danych SQL Server, Oracle, MySQL, Firebird
Wrocław i okolice …lub zdalnie.
ID posta: 433033 Skopiuj do schowka
 
 
Tadek 
Excel Expert


Wersja: Win Office 2010
Pomógł: 2222 razy
Posty: 6121
Wysłany: 26-01-2024, 08:36   

Ten fragment kodu:
Kod:
    With gameData
        NrStolu.Text = gameData.NrStolu
        Zwyciezca.Text = .Zwyciezca
        sD = .setData
zamień na taki:
Kod:
    With gameData
        NrStolu.Text = .NrStolu
        ZawodnikLewy = .NawiskoL
        ZawodnikPrawy = .NawiskoP
        Zwyciezca.Text = .Zwyciezca
        sD = .setData
ID posta: 433034 Skopiuj do schowka
 
 
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 245
Wysłany: 26-01-2024, 09:36   

Dziękuję.
Teraz działa.
_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 433036 Skopiuj do schowka
 
 
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 245
Wysłany: 04-06-2024, 20:07   

Witaj ponownie.
Powracam do tematu bo w praktyce wychodzi błąd podczas wprowadzania wyników do formularza.
1 set 5-11
2 set 7-11
3 set 11-4
4 set 15-13
5 set 5-11

Wynik 2-3 w setach
a nie można wprowadzić bo wyskakuje błąd.

Zrzut ekranu w załączonym pliku.
Czy można to naprawić?

Gdzieś musi bybłąd w sprawdzaniu poprawności.

Zrzut ekranu 2024-06-04 210028.png
Plik ściągnięto 4 raz(y) 198.1 KB

_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 435696 Skopiuj do schowka
 
 
Tadek 
Excel Expert


Wersja: Win Office 2010
Pomógł: 2222 razy
Posty: 6121
Wysłany: 05-06-2024, 07:16   

W makrze: Private Function ValidationSets() As ValidType
to:
Kod:
If txtL > txtP Then
zamień na to:
Kod:
If txtL * 1 > txtP * 1 Then
ID posta: 435703 Skopiuj do schowka
 
 
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 245
Wysłany: 05-06-2024, 09:46   

Dzięki.
_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 435714 Skopiuj do schowka
 
 
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 245
Wysłany: 11-09-2024, 18:35   

Przerzuciłem formularz i moduły clasy do innego pliku i chcę aby formularz uruchamiał się po kliknięciu w komórkę
Kod:
CJ8:CM28
w arkuszu "TabelaNa7" uruchomił się formularz i wprowadzała dane do komórek
Kod:
CN8:DB28
. Po kliknięciu w pierwszy wiersz zakresu np. w komórkę
Kod:
CJ8
uruchamia się formularz lecz gdy kliknę w niższy wiersz 9, 10 itd. np w komórkę
Kod:
CJ10
pojawia się błąd i nie uruchamia się formularz. Coś zrobiłem źle. Czy może mi ktoś podpowiedzieć o czy zapomniałem lub co źle zrobiłem.

Listy 1 WTK Żaków TABELA na 7 zawodników222.xlsm
Pobierz Plik ściągnięto 15 raz(y) 301.26 KB

_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 436960 Skopiuj do schowka
 
 
Tajan


Pomógł: 5583 razy
Posty: 12105
Wysłany: 12-09-2024, 15:38   

Dokonaj takich zmian:
Moduł "Ten_skoroszyt", procedura "Workbook_SheetBeforeDoubleClick"
zmień:
Kod:
listaMeczy.GameListInitialize 2, Sh

na:
Kod:
listaMeczy.GameListInitialize 8, Sh

Moduł "ClassGameList", procedura "GameListInitialize"
zmień:
Kod:
    lRow = gameSheet.Columns("CN").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    rngArray = gameSheet.Range("V" & firstRow & ":CN" & lRow).Value

na:
Kod:
    lRow = gameSheet.Columns("CJ").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    rngArray = gameSheet.Range("CJ" & firstRow & ":CJ" & lRow).Value

Poprawki dotyczą tylko problemu z uruchomieniem formularza. Poprawności jego działania nie analizowałem.
ID posta: 436964 Skopiuj do schowka
 
 
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 245
Wysłany: 12-09-2024, 17:53   

Serdeczne dzięki Tajan.
Działa.
_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 436966 Skopiuj do schowka
 
 
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 245
Wysłany: 28-09-2024, 15:25   

Znowu potrzebuję pomocy.
Chcę wykorzystać ten formularz jeszcze do innego pliku.
Jest to protokół meczowy w którym zapisuje się wyniki meczu.
Chciałbym aby po kliknięciu w komórke z nr meczu czyli w kolumnie A i wierszach 21-23, 25-26, 29-31 i 33-34 uruchomił się formularz wprowadzania meczy i wprowadzał do protokołu wprowadzone wyniki w formularzu.
Nr stołu jest w komórkach kolumny B a zawodników widać oraz miejsce na wpisywanie setów też widać gdzie mają być wprowadzone.
Coś namotałem i nie mogę sobie poradzić.

Protokół-10MECZY-2LIGA_KOBIET- formularz do testów.xlsm
Pobierz Plik ściągnięto 13 raz(y) 168.74 KB

_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 437097 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.wip.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