VBa Excel(makro, Pętla do utworzenia "Listy" wpisywanej w arkusz Exela

jestem początkujący i dopiero "raczkuje" w pisaniu kodów.

usiłuje stworzyć makro, które ułatwiłoby mi życie jednak:
potrzebuje pomocy w napisaniu petli, nie wiem którą z petli wybrać oraz jak ja jej kod powinien być napisany.

Chodzi mi o stworzenie makra, w którym to z listy CheckBox1 do CheckBox10 będzie można odzaznaczyć odpowiedni (czy też odpowiednie-więcej niż jeden) CheckBox"N" po czym po zkliknięciu przycisku Ok nazwy zaznaczonych cBox'ów będą wprowadzone w postaci listy w komórkę np "A1".

siedzę juz nad tym dośc dlugo do tej pory poprawnie udało mnie sie zrobić przycisk urachamiający liste zak na załączonym "obrazku"[/code]

Domyślam się, że dotyczy to formularza i pól wyboru. Spróbuj

dziękuje za poswięcenie czasu. przepisałem dosłownie tak jak pan napisał i coś jest nie tak. nie wiem co mam office 2003.
mianowicie po wpisaniu:
1st = 1st & Chr(10) & ctrl.Name
i przy przejsciu do następnego wiersza pokazuj mnie się:
"compile error :
Expected: end of statement"

jak i również po:
Range("A1") = 1st

Myślę, że tam było lst od "lista", nie 1st. Poza tym obrazek za dużo nie mówi, wklej kod jak już.

amator_piotr napisał:

dziękuje za poswięcenie czasu. przepisałem dosłownie tak jak pan napisał i coś jest nie tak. nie wiem co mam office 2003.
mianowicie po wpisaniu:
1st = 1st & Chr(10) & ctrl.Name
i przy przejsciu do następnego wiersza pokazuj mnie się:
"compile error :
Expected: end of statement"

jak i również po:
Range("A1") = 1st

To forum jest bezpłciowe, nie ma panów, ani pań
Jeżeli w kodzie adams_nt zmienisz w dwóch miejscach ctrl.Name na ctrl.Caption, to będzie wstawiało opisy checkboxów.

marcinj12 napisał:

Myślę, że tam było lst od "lista", nie 1st. Poza tym obrazek za dużo nie mówi, wklej kod jak już.

marcinj12 napisał:

To forum jest bezpłciowe, nie ma panów, ani pań
Jeżeli w kodzie adams_nt zmienisz w dwóch miejscach ctrl.Name na ctrl.Caption, to będzie wstawiało opisy checkboxów.

Odwdzięczysz się klikając "pomógł" Koledze adams_nt, który zapodał kod
Kod w skrócie sam się udokumentował , widzę po fladze że Kolega z UK, więc wystarczy komendy przetłumaczyć, bo moje tłumaczenie może nie być zbyt jasne

Kolejne linijki:
1. pętla For Each przechodzi po każdej kontrolce znajdującej się na formie (Me.Controls) i zapisuje ją tymczasowo w zmiennej ctrl.
2. Warunek If TypeName(ctrl) = "CheckBox" Then sprawdza, czy trafiono akurat na kontrolkę typu CheckBox (pomija np. dwa przyciski, typu Button). W zasadzie sprawdza nazwę typu kontrolki.
3. Warunek If ctrl = True Then będzie spełniony tylko, jeżeli kontrolka checkbox będzie zaznaczona "ptaszkiem". (tu bym dał ctrl.Value dla większej czytelności, niemniej tak jak jest też działa).
4. Jeżli wszystkie 3 powyższe warunki są spełnione, wchodzimy we "właściwe" dodawanie nazwy:
If i > 0 Then
lst = lst & Chr(10) & ctrl.Caption
Else
lst = ctrl.Caption
End If
przy pierwszej kontrolce i = 0, więc wykona się druga część warunku, po else: do zmiennej lst (teraz pustej) zostanie przypisany "opis" kontrolki (ctrl.Caption). Zmienna i zostanie zwiększona o jeden (i = i + 1), więc przy kolejnej zaznaczonej kontrolce, wykona się pierwsza część warunku, czyli do zmiennej lst zostanie "doklejony" znak nowej linii w Exelu (Chr(10)) oraz "opis" kontrolki (ctrl.Caption). Po powtórzeniu tych czynności dla każdej kontrolki, poleceniem Range("A1") = lst zapisujesz sklejony ciąg opisów i znaków nowej linii do komórki A1.

marcinj12 napisał:

Odwdzięczysz się klikając "pomógł" Koledze adams_nt, który zapodał kod
Kod w skrócie sam się udokumentował , widzę po fladze że Kolega z UK, więc wystarczy komendy przetłumaczyć, bo moje tłumaczenie może nie być zbyt jasne

Kolejne linijki:
1. pętla For Each przechodzi po każdej kontrolce znajdującej się na formie (Me.Controls) i zapisuje ją tymczasowo w zmiennej ctrl.
2. Warunek If TypeName(ctrl) = "CheckBox" Then sprawdza, czy trafiono akurat na kontrolkę typu CheckBox (pomija np. dwa przyciski, typu Button). W zasadzie sprawdza nazwę typu kontrolki.
3. Warunek If ctrl = True Then będzie spełniony tylko, jeżeli kontrolka checkbox będzie zaznaczona "ptaszkiem". (tu bym dał ctrl.Value dla większej czytelności, niemniej tak jak jest też działa).
4. Jeżli wszystkie 3 powyższe warunki są spełnione, wchodzimy we "właściwe" dodawanie nazwy:
If i > 0 Then
lst = lst & Chr(10) & ctrl.Caption
Else
lst = ctrl.Caption
End If
przy pierwszej kontrolce i = 0, więc wykona się druga część warunku, po else: do zmiennej lst (teraz pustej) zostanie przypisany "opis" kontrolki (ctrl.Caption). Zmienna i zostanie zwiększona o jeden (i = i + 1), więc przy kolejnej zaznaczonej kontrolce, wykona się pierwsza część warunku, czyli do zmiennej lst zostanie "doklejony" znak nowej linii w Exelu (Chr(10) oraz "opis" kontrolki (ctrl.Caption). Po powtórzeniu tych czynności dla każdej kontrolki, poleceniem [b]Range("A1") = lst[/lst] zapisujesz sklejony ciąg opisów i znaków nowej linii do komórki A1.

amator_piotr napisał:

Czy jest to możliwe aby to makro wpisywało w komórkę wcześnij zaznaczoną/odznaczoną (zanim się je uruchomi)?byłoby super jeśli jest taka możliwość.

Wielkie dzieki

Witam

czy mógłbyś mi powiedzieć jak zmienić w własciwości pola tekstowego tak aby nie można było ich zmienić z pozycji użytkownika lecz aby modół VBA mókł wpisać je. tzn widziałem coś takiego mianowicie pole tekstowe byo koloru szarego i nie można było wpisać nie cokolwiek.

pozdrawiam

Ustaw w oknie właściwości pola pozycję "Locked" na True. Automatycznie szarzeje zdaje się tylko w Accesie. Ustaw ręcznie lub warunkowo w kodzie formy.

Podobny sposób do zablokowania kontrolki - dający efekt "wyszarzania", ale samego tekstu - można uzyskać ustawiając właściwość Enabled kontrolki na False. Excel faktycznie nie obsługuje wyszarzenia całej kontrolki, chyba że jej BackColor zmienisz ręcznie .

marcinj12 napisał:

Podobny sposób do zablokowania kontrolki - dający efekt "wyszarzania", ale samego tekstu - można uzyskać ustawiając właściwość Enabled kontrolki na False. Excel faktycznie nie obsługuje wyszarzenia całej kontrolki, chyba że jej BackColor zmienisz ręcznie .

amator_piotr napisał:

marcinj12 napisał:

Podobny sposób do zablokowania kontrolki - dający efekt "wyszarzania", ale samego tekstu - można uzyskać ustawiając właściwość Enabled kontrolki na False. Excel faktycznie nie obsługuje wyszarzenia całej kontrolki, chyba że jej BackColor zmienisz ręcznie .

tylko jak zablokować tą komórke aby nie mozna bylo jej nadpisać?

marcinj12 napisał:

Podobny sposób do zablokowania kontrolki - dający efekt "wyszarzania", ale samego tekstu - można uzyskać ustawiając właściwość Enabled kontrolki na False. Excel faktycznie nie obsługuje wyszarzenia całej kontrolki, chyba że jej BackColor zmienisz ręcznie .

"Kody do VBA"?? Obawiam się że nie rozumiem, co masz na myśli...
W Excelu jest wbudowany mechanizm nagrywania makr, który przekłada czynności na kod VBA, używasz go? W praktyce wygląda to tak, że jak chcesz coś zrobić to włączasz nagrywanie makra, wykonujesz tą czynność w Excelu, zatrzymujesz nagrywanie i podglądasz stworzony kod. Potem kopiujesz interesujący Cię fragment, ew. szukasz na google co jaka funkcja robi.

Jeżeli chodzi Ci o jakiś opis wbudowanych funkcji, to np. tutaj masz cały kurs, wygląda na dobry.

O ile dobrze zrozumiałem Twoje drugie pytanie, to chodzi o taką modyfikację kodu:

marcinj12 napisał:

"Kody do VBA"?? Obawiam się że nie rozumiem, co masz na myśli...
W Excelu jest wbudowany mechanizm nagrywania makr, który przekłada czynności na kod VBA, używasz go? W praktyce wygląda to tak, że jak chcesz coś zrobić to włączasz nagrywanie makra, wykonujesz tą czynność w Excelu, zatrzymujesz nagrywanie i podglądasz stworzony kod. Potem kopiujesz interesujący Cię fragment, ew. szukasz na google co jaka funkcja robi.

Jeżeli chodzi Ci o jakiś opis wbudowanych funkcji, to np. tutaj masz cały kurs, wygląda na dobry.

O ile dobrze zrozumiałem Twoje drugie pytanie, to chodzi o taką modyfikację kodu:

Kod: vb

Zaloguj się, aby zobaczyć kod

amator_piotr napisał:

czy ta petala wpisuje w postaci listy "wynik" wiecej nizeli z jednego CheckBox'u

amator_piotr napisał:

aby sprawdzila czy jest zaznaczonay TYLKO jeden CheckBox

marcinj12 napisał:

amator_piotr napisał:

czy ta petala wpisuje w postaci listy "wynik" wiecej nizeli z jednego CheckBox'u

Nie, bo napisałeś:

amator_piotr napisał:

aby sprawdzila czy jest zaznaczonay TYLKO jeden CheckBox

Ta pętla jest rozbudową tej z początku wątku, tyle że na końcu doszedł potrójny warunek if.
Po przeleceniu wszystkich checkboxów w zmiennej i masz ilość zaznaczonych przez użytkownika checkboxów, a w lst - sklejony ciąg ich wartości .caption.
To, co się dzieje dalej, zależy od wartości i - jeżeli = 0 -> MsgBox, jeżeli = 1 -> kopiowanie wyniku, we wszystkich pozostałych przypadkach -> drugi MsgBox.

To że zmienna jest nazwana ctrl to tyko przypadek, równie dobrze mogła się nazywać Jasio.
Obawiam się że do opanowania samodzielnego pisania tego potrzebna jest praktyka - podstawowe cegiełki do budowania programu poznasz choćby po przerobieniu kursu, który Ci poleciłem. Pętle For..., instrukcje warunkowe - to podstawa, bez której nie ruszysz z bardziej rozbudowanymi makrami. Przerób ten kurs (ze zrozumieniem!) to powinno się co nieco rozjaśnić. Tutaj jest drugi kurs, też po Polsku.

Pozdrawiam i powodzenia

Pytałeś czy jest kod który po zaznaczeniu wpisuje wartość.

Cytat:

aha zapomnialem zapytac, czy jest kod ktory po zaznaczeniu CheckBox'u natychmiast wpisze wartosc.Caption w Range("a1")

Private Sub flowKtory()

' przypisanie wartosci w okienkach.
Dim i As Integer

i = 0
For Each ctrl In Me.Controls
If TypeName(ctrl) = "cbxType" Then
If ctrl.Value = True Then
If i > 0 Then
lst = lst & Chr(10) & ctrl.Value
Else
lst = ctrl.Value
End If
i = i + 1
End If
End If
Next

If i = 0 Then
wybierzJedenF

ElseIf i = 1 Then
If cbxType1 = True Then
proba5l
ElseIf cbxType2 = True Then
proba10l
ElseIf cbxType3 = True Then
proba25l
End If
Else
zaWieleF

End If


witam!
nie wiem czemu ale tym razem nie dziala mi ten kod poprawnie.
caly czas "i" = 0 gdyz wyskakuje mi MsgBox "wybierzJedenF".
coS jest zle??? lecz nie mam pojecia co

czy moglbys na to zerknac?

A dlaczego zmieniłeś nazwę typu kontrolki na "cbxType" ??

marcinj12 napisał:

A dlaczego zmieniłeś nazwę typu kontrolki na "cbxType" ??

Chodziło mi o nazwę typu:

marcinj12 napisał:

Chodziło mi o nazwę typu:

Kod: vb

Zaloguj się, aby zobaczyć kod

Mimo zmiany nazwy, kontrolka ciągle jest typu CheckBox, i musi być zapisana jak poprzednio. Inaczej warunek nigdy nie jest spełniony, program nie wchodzi głębiej i nie zwiększa i, które pozostaje = 0.

amator_piotr napisał:

jesli wszystkie beda nosic ta sama nazwe to petla bedzie "przeszukiwac" wszystkie True.

[quote="marcinj12"]

amator_piotr napisał:

jesli wszystkie beda nosic ta sama nazwe to petla bedzie "przeszukiwac" wszystkie True.

witam ponownie

Szczesliwego Nowego Roku.

nie wiem czy masz doswiadczenie w VB Studio 2010. nie wiem jak przeksztalcic projekt ktory staralem sie opracowac w VB Studio 2010. Utworzylem szablon Excel'a. Co musialbym zrobic aby go przeksztalcic w plik Excel'a?

prosze odpowiedz na forum abym mogl Ci sie "odwdzieczyc"

pozdrawiam

Witam, witam...
Na tym forum jest więcej ludzi, nigdy nie wiesz kto odpowie
Niestety, w Visual Basic z Visual Studio robi się kompletnie inne projekty niż w VBA w Excelu - to drugie jest mocno okrojoną wersją wspomnianego. Jedynie składnia języka jest trochę podobna, ale nie ma możliwości przeniesienia projektu z VS do Excela.
Pozostaje ponowne wykonanie (podobnej) formy w Excelu i przekopiowanie kodu z funkcji/procedur, poprawiając wszelkie fragmenty, które nie są zgodne z językiem VBA (a będzie tego sporo, bo VS opiera się o platformę .NET która jest zupełnie obca w VBA, więc multum funkcji będzie trzeba wymyślać na nowo).
Ale skoro zacząłeś robić ten projekt w Visual Studio, to po co przenosić go do Excela?? Ja bym dalej go robił w VS.