Malttaisko kukaan antaa pientä esimerkkiä miten rakennetaan dialogi-ikkuna exceliin.
Tarve on yksinkertaistettuna tämä: dialogissa muutama arvo valittaisiin esim. valintalistasta ja lisäksi valitut arvot laskettaisiin yhteen. Valitut arvot ja summa sijoitettaisiin aktiiviselle riville omiin soluihinsa.
UserFormin muokkaukseen asti pääsin...
Tarve on yksinkertaistettuna tämä: dialogissa muutama arvo valittaisiin esim. valintalistasta ja lisäksi valitut arvot laskettaisiin yhteen. Valitut arvot ja summa sijoitettaisiin aktiiviselle riville omiin soluihinsa.
UserFormin muokkaukseen asti pääsin...
Vastaukset 2
Vanhimmat
tuntematta tarkemmin projektiasi niin ehkäpä tästä jotain apua. Eli valitse listboxista haluamasi luvut ja koodi kirjoittaa sitten valinnat soluihin A1,B1... ja lopuksi summan
lomakkeelle listbox1 ja commanbuttton1. Listboxin MultiSelect arvoksi 1 ja liität koodit lomakkeeseen
Private Sub CommandButton1_Click()
Dim summa As Double
Dim valitut As Integer
Range("A1").EntireRow = ""
Range("A1").Select
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ActiveCell.Offset(0, valitut) = Val(ListBox1.List(i))
summa = summa Val(ListBox1.List(i))
valitut = valitut 1
End If
Next
ActiveCell.Offset(0, valitut) = summa
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddItem 1
ListBox1.AddItem 2
ListBox1.AddItem 3
ListBox1.AddItem 4
ListBox1.AddItem 5
End Sub
Kiitos Kunde, pääsin kartalle ja pystyn tästä soveltamaan!