[szerokikarq]

Pany programisty. Robię sobie arkusz kalkulacyjny i chciałbym otrzymać coś takiego:

Mam okno wyboru (ComboBox, Formany ActiveX). Chcę, za pomocą komend basica (koniecznie za pomocą komend, nie guzikiem właściwości) otrzymać taki efekt - Z rozwijanej listy wybieram X wartość, w efekcie zmieniają mi się wartości w komórkach A2 i A3.

Potrafię uzyskać podobny efekt, zamieniając komórkę na listę wartości, następnie użycie makra w postaci przycisku, które zwraca:

Privat Sub CommandButton1_Click()

If Range("A1").Value="WARTOŚĆ 1" Then

Range("A2").Value=10

Range("A3").Value=10

End If

If Range("A1").Value="WARTOŚĆ 2" Then

Range("A2").Value=20

Range("A3").Value=20

End If

End Sub

I tak dalej, i tak dalej. Problem w tym, że trzeba klikać, a chce z automatu, z rozwijanej listy wybierać.

#programowanie #visualbasic #excel #pytanie #pomocy

[UlfNitjsefni]

@szerokikarq: Z rozwijalnej listy wybierasz "wartość 1" i w A2 i A3 ma się pojawić 10?

OnChange na A1?

[szerokikarq]

@UlfNitjsefni: No prawie, bo lista wartości ma być w boksie, a nie w kolumnie. Ale chodzi mi o to, żeby wybierając z listy "wartość 1" automatycznie w A2 i A3 pokazywała się wartość 10, wybierając "wartość 2" A2 i A3 zmieniają się na 20.

[szerokikarq]

@UlfNitjsefni: https://www.dropbox.com/s/3htohwrjsuvub7e/Stopa_pr%C3%B3ba.xlsm

Mam tak, a chciałbym, żeby było bez klikania w przycisk, tylko automatycznie.

[brak_nicku]

@szerokikarq: tu nie potrzeba vba, tylko parę formuł

[brak_nicku]

@szerokikarq: tu masz jak to prosto zrobić: http://www.sendspace.pl/file/dac5272f45882d6d2fdff81

Oczywiście dane w arkuszu Listy są do uzupełnienia

[szerokikarq]

@brak_nicku: Docelowo chciałbym stworzyć "program", ten UserForm w Excelu. Mam parę pomysłów na idiotoodporność tego narzędzia, ponadto, chcę go trochę rozwijać w wolne chwili, a pisanie algorytmów za pomocą komend JEŻELI wbudowanych w Exceu mnie irytuje.

[szerokikarq]

@brak_nicku: Ale dzięki za odpowiedź, dokładnie o to chodzi, chciałem w przycisku, ale na razie to mi wystarczy.

[brak_nicku]

@szerokikarq: Jakbym miał to robić za pomocą Jeżeli to też bym zwątpił, ale Excel pozwala na bardzo wiele bez konieczności korzystania z VBA, a wyżej napisałeś, że chcesz bez klikania przycisku:)