Udregning af hvad et tal består af

Jeg tror ikke lige, at jeg forstår, hvordan du når frem til, at tallet 120 består af tallene 50, 30 og 20. Vil du ikke prøve at forklare dette?

vil du have alle mulige kombinationer som fx giver summen 120, eller blot et tilfældigt?

Alle kombinationer
fra 0+120 til 1+1+...1 120 gange, giver alle 120
Hvis det blot er nogle tilfældige tal så kan du skrive følgende i Excel

Celle A1 (det er dette tal du vil finde summen på): 120
Celle A2: =AFRUND(SLUMP()*A1;0)
Celle B2: =HVIS(A2<=A1;A2;0)
Celle A3: =AFRUND(SLUMP()*A2;0)
Celle B3: =HVIS(A3<=A1-B2;A3;0)
// cellerne A3 og B3, kan du så fortsætte med hvis du ønsker mere end 3 tal som mulighed
Celle B4: =A1-(B2+B3)

Nu får du 3 tilfældige tal, hver gang du åbner excel arket

skriv din mail adresse, så skal jeg sende dig eksemplet

Jeg tror, han mener, at han får en række tal op lyst som tekststrenge fx "q120", "n10", "g50". Derfor vil han gerne have en funktion (eller makro) som kan parse en streng og returnere tallet i strengen.

Sub get_num()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Ark1") 'Indæst navnet på fanen med tallene i stedet for Ark1
   
    Dim my_cell As Range
    Dim str_count As Integer
    Dim my_num As String
    Dim temp_str As String
   
    my_col = 5
    my_row = 1
   
    For Each my_cell In ws.UsedRange
        str_count = 0
        my_num = ""
        temp_str = my_cell.Value
        If temp_str <> "" Then
            str_count = Len(temp_str)
            For i = 1 To str_count
                If IsNumeric(Mid(temp_str, i, 1)) Then
                    my_num = my_num & Mid(temp_str, i, 1)
                End If
            Next
        End If
        If my_num <> "" Then
            ws.Cells(my_row, my_col) = my_num
            my_row = my_row + 1
        End If
    Next
   

End Sub



Håber det kan bruges

Indsæt koden i et modul

indtast "a120" i celle A1 i Ark1

gå i modulet og kør koden.

Det skulle gerne resultere i "120" i celle E1

Prøve evt. med flere tekster i kolonne A

/Iver

Hvis opgaven er som iver_mo skriver i #4, så kunne en formelløsning være:

=SLÅ.OP(9^9;1*HØJRE(A1;KOLONNE(1:1)))

Hans

sbk du er tæt på har også lige opdaget at jeg ikke kan regne det er sådan at jeg har brug for at søtte nogle faste tal ind i et regneark og derefter sætte et andet tal ind i samme regne ark og af disse faste tal skal der så ses om man kan ramme det ene indsatte tal, jeg håber det give en mening