Hirdetés

Keresés

Új hozzászólás Aktív témák

  • poffsoft

    veterán

    válasz Delila_1 #15464 üzenetére

    Nem feltétlen cellából kellene beolvasnom, elég ha kód.
    Egyenlőre ezt a megoldást találtam , ezzel maga a mártix bevitel picit áttekinthetőbb, viszont a teljes kód változott (és továbbra is elég favágós algoritmus):

    Option Explicit
    Sub alg()
    Dim passlen, pass, LastRow, i, j, Iend, form, d0, d1, d2, d3, d4, d5, d6, d7, det

    d0 = Array(0, 0, 0, 0, 0)
    d1 = Array(0, 1, 0, 0, 0)
    d2 = Array(0, 1, 1, 0, 0)
    d3 = Array(0, 1, 0, 1, 0)
    d4 = Array(0, 1, 1, 0, 0)
    d5 = Array(0, 1, 0, 1, 0)
    d6 = Array(0, 1, 1, 0, 0)
    d7 = Array(0, 1, 0, 0, 1)
    det = Array(d0, d1, d2, d3, d4, d5, d6, d7)
    pass = ""
    Sheets(1).Select
    Iend = 100
    passlen = Len(Iend)
    For i = 1 To passlen
    pass = pass & "0"
    Next i
    LastRow = ActiveSheet.UsedRange.Rows.Count
    Range("A2:G" & LastRow).ClearContents
    If Iend = 0 Then Iend = 1
    For i = 1 To Iend
    det(0)(0) = i
    Cells(i + 1, 1).Select
    Cells(i + 1, 1) = det(0)(0)
    form = "x= "
    For j = 1 To 4
    det(0)(j) = det(0)(j) + det(((i - 1) Mod 7) + 1)(j)
    Cells(i + 1, j + 1) = det(0)(j)
    form = form & Right(pass & det(0)(j), passlen) & "*" & Chr(Asc("a") + j - 1) & "+"
    Next j
    Cells(i + 1, 7) = Left(form, Len(form) - 1)
    Next i
    Cells(1, 1).Select
    End Sub

Új hozzászólás Aktív témák