Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: kalkulator lokat
COST




Typ: neutral
Postów: 1
Zarejestrowany: Jun 2004
kalkulator lokat

mam utworzoną formatkę , comboboxy itd
co wpisać w kodzie zeby :
1)w pierwszym comboboxie wyświetlał mi kolejno nazwy banków ( które mam wpiasne w komórki poziomo )
2)w 2 comboboxie wyświetlał okres lokat zapisanych w pionie w poszczególnych komórkach)
3)i mnozył oprocentowanie zapisane tez w kórkach tworzących calą tą dunamiczną tabele

14-06-2004 23:40
Pokaż profil COST  Wyślij email do COST   
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Jesli nikt Ci nie pomógł, a dalej masz problemy, prześlij ten skoroszyt do mnie, wygodniej mi będzie poakzać ewentualnie na Twoim przykładzie.

Pozdrawiam Karolina


_____________________________________________
Karolina

03-07-2004 11:10
Pokaż profil karolinavb  Wyślij email do karolinavb   
Piotr T




Typ: neutral
Postów: 176
Zarejestrowany: May 2004

Option Explicit
Dim WIERSZ as Long,KOL as integer
Dim ZMIENNA_PROCENTOWA as Variant
' tu ładujesz nazwy banków
' zakładam że nazwy banków znajdują się w wierszu nr 1 i kolejnych kolumnach zaczynając od kolumny nr 1

Private Sub UserForm_Initialize()

For KOL = 1 to 256

If cells(1,KOL)="" then exit for
UserForm1.Combobox1.AddItem Cells(1,KOL)
Next
End Sub


' Tutaj wczytanie do Combo2 danych w zależności co zostało wybrane w Combo1

Private Sub ComboBox1_Change()
For WIERSZ =2 to 65536
if cells(WIERSZ,Combobox1.ListIndex+1)="" then exit for
UserForm1.Combobox2.AddItem Cells(WIERSZ,Combobox1.ListIndex+1)
Next
End Sub




Pytania nr3 za bardzo nie kumam, ale jeśli ma mnożyć i podawać wynik w jakimś Textboxie po wybraniu w Combo1 i 2 jakiś danych, to nic trudnego

Przykład:
Private Sub CommandButton1_Click()
Textbox1.Value = Cells(Combobox2.ListIndex+1,Combobox1.ListIndex+1)* ZMIENNA_PROCENTOWA
End Sub



_____________________________________________
Visual Basic.NET - Mercedes dla programistów

03-07-2004 12:00
Pokaż profil Piotr T  Wyślij email do Piotr T   Odwiedź stronę Piotr T  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1