ID tematu: 75464
 |
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
|
|
|
 |
|
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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:
zamień na to:
Kod: | If txtL * 1 > txtP * 1 Then |
|
|
 | ID posta:
435703
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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ę w arkuszu "TabelaNa7" uruchomił się formularz i wprowadzała dane do komórek . Po kliknięciu w pierwszy wiersz zakresu np. w komórkę uruchamia się formularz lecz gdy kliknę w niższy wiersz 9, 10 itd. np w komórkę 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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
|
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
|
|
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
|