Można to bez większego problemu uzyskać za pomocą formuł i listy ze sprawdzania poprawności. Wszak jesteśmy na VBAmani więc pewnie oczekujesz innego rozwiązania.
1. Umieść na arkuszu z paska formanty ActiveX polekombi.
2. Wykanaj dwuklik na polukombi aby znaleźć się w zdarzeniu Private Sub ComboBox1_Change()
3. Teraz zaznacz i usuń to zdarzenie.
4. Wklej tam
Private Sub ComboBox1_Click()
'usuń dane z komórki A3
Range("A3") = ""
'jeżli wybrano dodaj to wykonaj dodawanie dla komórek A1 i A2
If ComboBox1.Value = "dodaj" Then Range("A3") = Range("A1").Value + Range("A2").Value
'odejmowanie
If ComboBox1.Value = "odejmij" Then Range("A3") = Range("A1").Value - Range("A2").Value
End Sub
Private Sub ComboBox1_DropButtonClick()
'wyczyść polekombi
ComboBox1.Clear
'wypełnij polekombi
ComboBox1.AddItem "dodaj"
ComboBox1.AddItem "odejmij"
End Sub
5. Wróć do excela i odklikaj Tryb projektowania
6. Wpisz liczbę do komórki A1 i A2
7. Sprawdź czy działa |