- Redmi Watch 5 - formás, de egyszerű
- Android szakmai topik
- Ha Kínában repülsz, és nem ilyen a hordozható töltőd, elveszik a reptéren!
- Honor Magic V2 - origami
- Telekom mobilszolgáltatások
- Realme GT Master Edition - mestermunka
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Yettel topik
- Mobil flották
- Samsung Galaxy Buds3 Pro - szárat eresztettek a babok
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Ú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
- Fallout 4 Pip-Boy Edition
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Assassin's Creed Shadows Collector's Edition PC
- Calman Home for LG licenc (PGenerator támogatással) ÚJ ára 66.000 Ft.
- Árváltozás: Deus Ex Human Revolution Collector's Edition
- Fém, összecsukható és kihúzható fotó állvány eladó
- Xiaomi Redmi Note 13 Pro+ 512GB, Kártyafüggetlen, 1 Év Garanciával
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- LicencAruhaz.hu OLCSÓ, LEGÁLIS SZOFTVEREK AZONNAL - Windows - Office - Win Server - ÖRÖK GARANCIÁVAL
- Logitech G29 Kormány szett + ajándék váltó 1 év Garancia Beszámítás Házhozszállítás
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest