automatisk indsætning af kommetal i en combobox

Først må du lige flytte a1 = 3,8 til før for i... ellers vil du få det samme resultat ;)

og så skal du nok bruge punktum og ikke komma. Integer kan kun regne med hele tal (runder selv op) prøv med Single :)


Private Sub Form_Load()
Dim i  As Integer
Dim a1 As Single
  a1 = 3.5
  For i = 1 To 61
    Combo1.AddItem CStr(a1)
    a1 = (a1 + 0.3)
  Next
End Sub

ups ja, det med integer kommer jeg da først til at tænke på nu hvor du siger det.

Jeg SKAL bruge et komma, kan man ikke udskifte punktummet til et komma på en eller anden smart måde eller metode.

Skal jeg ikke bruge double i stedet for integer??

Integer er faktisk det engelske ord for HELtal ;o)

Hvorfor i alverden SKAL du bruge komma? Men du kan indlæse det du vil indlæse i din combobox som strings - altså "3,5".

Skal du bruge 'tallene' (som jo ikke er tal, men tekststrenge) fra din combo til at regne med i et regneudtryk, kan du bruge replace for at skifte , til . og derefter konvertere stringen til en single.

Jeg tror du skal læse lidt på hvad Double, Single, byte, string, Integer osv. er for noget. En double er også til decimaltal, ligesom single, bare med større præcision/større tal (plads til flere cifre)

a1 = 3.8
For i = 1 To 61
  Combo1.AddItem Replace(CStr(a1), ".", ",")
  a1 = a1 + 0.3
Next

netop

sådan det virker bare perfekt.

bare lige for at få det til at se vildt godt ud, hvordan får man den så til at sætte et nul på så den fast køre med 1 decimal.

altså så der står:
4,7
5,0

i stedet for
4,7
5

format funktionen

http://eksperten.dk/spm/319340

så nu virker det - man kan bare ikke blande Replace(CStr(a1), ".", ",") sammen med
Format(a1, "#0.0"), men "Format(a1, "#0.0")" klare også det med kommaet - så det er bare perfekt