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

• poffsoft veterán

  #15465

  #15464 Delila_1

  2012-11-08 19:18:03

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  poffsoft

  veterán

  #15464 Delila_1

  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