Keskustelu: Ohjelmointikysymykset: VBA: Excell alasvetovalikko

Olen tehnyt alasvetovalikon CompoBoxin avulla. Alasvetovalikossa on vain lukuja, max. 3 desimaallilla. Toimii muuten hyvin, mutta alasvetovalikosta valittu "LinkecCell" - soluun tuleva arvo muuttuu tekstiksi. Jolloin myös desimaalipilkku muuttuu, joskin satunnaisesti pisteeksi. Miten solun voisi määritellä siten, että tekstin sijasta siihen tulisi luku. Normaali solun määritys ei vaikuta siihen. Eli määritys varmaan pitäisi tehdä Comboboxin "properties" -sivun määrittelyjen kautta, mutta miten?

Vaihtoehtoisesti olisiko jokin parempi keino tehdä alasvetovalikko. Siinä pitäisi olla myös mahdollisuus kirjoittaa luku "käsin" valikon ulkopuolelta

Moi Anttir1!

yksinkertaisinta olisi olla käyttämättä LinkedCell -ominaisuutta

 'ThisWorkbook
Private Sub Workbook_Open()

    'tämä on vain esimerkki ComboBoxin täytöstä
    Dim luvut(1 To 10) As String
    For i = 1 To 10
        luvut(i) = CStr(i) & ",123"
    Next

    Taul1.ComboBox1.List = luvut

End Sub

'Taul1
Private Sub ComboBox1_Change()
    Cells(1, 1).Value = Val(Replace(ComboBox1.Text, ",", "."))
End Sub

Kiitoksia vinkistä. Nyt alasvetovalikot toimivat täydellisesti

Antti