Endal ka täpselt sama probleem. Arvutis näitab korraks et on mälupulgaga ühendus ja siis kaob. Proovinud olen mitme arvutiga ja kõigis sama jama. Samas autos töötab ideaalselt. Tegemist AData 3 ...
Ülesanne on selline: Genereeri ruutmaatriks ja kontrolli kas maatriks on sümmeetriline oma peadiagonaali suhtes.
Probleem on selles et ma ei oska seda kontrollimise osa kuidagi teha.
Sub maatriksi()
Dim i, j, maatriks
ActiveSheet.UsedRange.Clear
maatriks = Val(InputBox("Sisesta maatriksi ridade ja veergude arv"))
For i = 1 To maatriks
For j = 1 To maatri ...