logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Excel/VBA - zakres dla calej kolumny o podanym wierszu

ttrx123 14 Kwi 2017 13:10 1503 11
REKLAMA
  • #1 16411915
    ttrx123
    Poziom 7  
    Posty: 9
    Hej,

    potrzebuje zrobić funkcję, która sprawdzi czy pole w wierszu 139 jest równe Mandatory jezeli tak to sprawdza czy pola ponizej jest puste, potrzebuje to żeby odznaczyć checkbox.

    To na czym utknąłem to :
    Kod: VBScript
    Zaloguj się, aby zobaczyć kod



    ale nie chce dla każdej kolumny pisac ifa

    help
  • REKLAMA
  • #2 16411951
    lesławek
    Poziom 32  
    Posty: 1529
    Pomógł: 190
    Ocena: 296
    Zamieść arkusz z tym co napisałeś...
  • #3 16411971
    ttrx123
    Poziom 7  
    Posty: 9
    Całego arkusza nie dam rady wrzucić musiałbym tworzyć cały na nowo. Generalnie całe makro wygląda tak:
    Kod: VBScript
    Zaloguj się, aby zobaczyć kod

    Także pytanie jak kolumne "C" zamienić na dowolną. Czyli żeby osiągnąć efekt o którym pisałem:
    -> jeśli pole w kolumnie oznaczonej w wierszu 149 = mandatory jest puste to odznaczyc checkbox
  • REKLAMA
  • #4 16412062
    lesławek
    Poziom 32  
    Posty: 1529
    Pomógł: 190
    Ocena: 296
    No tak, ale gdzie jest ten checkbox, czy jest dla każdego wiersza ?
  • #5 16412091
    ttrx123
    Poziom 7  
    Posty: 9
    Checkbox jest dla kazdego wierszu w pierwszej kolumnie. także to wszystko działa tylko musze teraz napisac to:
    Kod: VBScript
    Zaloguj się, aby zobaczyć kod


    w formie ktora przyjmie vba, bo niestety takiego ifa nie akceptuje
  • #6 16412132
    lesławek
    Poziom 32  
    Posty: 1529
    Pomógł: 190
    Ocena: 296
    Jak te checkboxy się nazywają??? Ręcznie dodałeś kilkaset checkboxów???
    Iterację po kolumnach zrobi taka pętla...
    Kod: VB.net
    Zaloguj się, aby zobaczyć kod
  • REKLAMA
  • #7 16412147
    ttrx123
    Poziom 7  
    Posty: 9
    Checkboxy dodaje poprzez funcje:
    Set chk = ws.CheckBoxes.Add(cel.Left, cel.Top, 30, 6) 'you can adjust left, top, height, width to your needs
    
  • #8 16412158
    lesławek
    Poziom 32  
    Posty: 1529
    Pomógł: 190
    Ocena: 296
    Rozumiesz, że aby ktokolwiek ci pomógł musi mieć pełne informacje o tym co chcesz zrobić i co masz do tej pory? Ty zaś zamieszczasz kod po jednej linijce...
  • #9 16412176
    ttrx123
    Poziom 7  
    Posty: 9
    Wydawało mi się, że nie ma sensu zamieszczania całego kodu dodawania w pierwszej kolumnie checkboxów bo generalnie całość prakytcznie produkuje ta linijka, którą wkleiłem.
    Do meritum, na chwile obecną cała funkcja wygląda tak i niestety zawiesza excela.

    Kod: VBScript
    Zaloguj się, aby zobaczyć kod
  • REKLAMA
  • #10 16412190
    lesławek
    Poziom 32  
    Posty: 1529
    Pomógł: 190
    Ocena: 296
    Co to jest chk.Value ?
  • #11 16412213
    ttrx123
    Poziom 7  
    Posty: 9
    wartosc checkboxa, ale to nie jest problem.
    Generalnie chk to checkboxy i jeśli mamy
    Kod: VBScript
    Zaloguj się, aby zobaczyć kod


    To wszystko działa, ale teraz chce działanie tego rozszerzyć do wszystkich kolumn ktore sa w wierszu 139 oznaczone jako Mandatory. A nie tylko do tych trzech.
  • #12 16413301
    adamas_nt
    VIP Zasłużony dla elektroda
    Posty: 5320
    Pomógł: 1508
    Ocena: 659
    Tak "na oko": dodatkowa pętla dla kolumn + instrukcja warunkowa.

    Ale bez przykładu, to możemy tylko zgadywać...
    Kod: VBScript
    Zaloguj się, aby zobaczyć kod

Podsumowanie tematu

LABEL_AI_GENERATED
Użytkownik poszukuje pomocy w stworzeniu funkcji VBA w Excelu, która sprawdzi, czy wiersz 139 zawiera wartość "Mandatory". Jeśli tak, funkcja ma ocenić, czy pola poniżej są puste, aby odpowiednio zaznaczyć lub odznaczyć checkboxy. W odpowiedziach pojawiają się sugestie dotyczące iteracji po kolumnach oraz użycia pętli do sprawdzenia wartości w różnych kolumnach. Użytkownik dąży do uproszczenia kodu, aby nie musieć pisać warunków dla każdej kolumny z osobna. Proponowane są różne podejścia do implementacji, w tym wykorzystanie pętli do przeszukiwania kolumn oraz sprawdzanie wartości checkboxów.
Podsumowanie AI na podstawie dyskusji. Może zawierać błędy.
REKLAMA