[grete1]

Kas siin leidub kedagi, kes oskab Excelis makrosid teha ja on nõus sellel teemal veidi aitama?

Mul valmis töö olemas, kuid oleks vaja et keegi oskaks seletada, mida makros kirjutatu tähendab. Iseenesest töö on hästi lühike.

[alfreedo]

Pane oma kood või fail siia üles ja kaeme perra.

[grete1]

Sub nimed()

Dim keskmine_t As Double

Dim keskmine_n As Double

Dim keskmine As Double


For Each c In ActiveSheet.Range("nimed: D24").Cells

keskmine_n = keskmine_n + 1

keskmine_t = keskmine_t + Len(c.Value)

keskmine = keskmine_t / keskmine_n

If Len(c.Value) > keskmine Then c.Font.Bold = True

Next




For Each c In ActiveSheet.Range("nimed: D24").Cells

keskmine_n = keskmine_n + 1

keskmine_t = keskmine_t + Len(c.Value)

keskmine = keskmine_t / keskmine_n

If Len(c.Value) < keskmine Then c.Font.Italic = True

Next



End Sub











Ma ei tea kas sellest on üldse võimalik nii aru saada, aga point on selles, et excelis on antud tabel nimedega ja makro peab tegema nii, et keskmisest pikemad nimed läheks bold kirja, keskmisest lühemad kaldkirja ja keskmise pikkusega jääks samaks. Ma tean, et mul on seal mingi viga sees, aga see pole oluline. Mul on lihtsalt vaja teada, mida iga rida teeb, milleks ta seal on. Et ma oskaks vastata kui mult küsitakse.

[andrusny]

Kohe esimene asi pane mõlemad if võrdused ühte tsüklisse, miks jooksutad sama asja kaks korda.

Ennem pead keskmise pikkuse ka ju leidma, teed tsükli mis liidab kõigi pikkused kokku ja lõpus jagab nimede arvuga. See oleks nagu esimene tsükkel ja sinna ei pane mingit If lauset, teise paned mõlemad ifid ja kui juba keskmine käes on.

[grete1]

Suur aitäh abi eest

[alfreedo]

Excelis on kasulik alati enne Sub lauset kasutada määrangut: Option Explicit
Siis annab kohe veateate: Variable not defined.
Dim c as range


Väheke teistmoodi siis aga pöhimõttelt sama

[Danel332]

Programmi algus on selline aga edasi oleks vaja kontrollida kas maatriks on sümmeetriline või mitte. Sellele enam enda hammas peale ei hakka.


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 maatriks
Cells(i, j) = Int(Rnd() * 100)
Next j
Next i



If Cells(i, j) = Cells(j, i) Then

[mahfiaz]

[Danel332]

Just nende uute tsüklite tegemisemisest muutub asi minu jaoks arusaamatuks. Olen nii ja naa pidi neid proovinud aga tööle pole saanud neid.

[mahfiaz]

[Danel332]

Kas nii siis ?


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 maatriks
Cells(i, j) = Int(Rnd() * 100)
Next j
Next i



If Cells(i, j) = Cells(j, i) Then


For i = 1 To 3
For j = 2 To 4
MsgBox "i on " & i & " ja j on " & j
Next j
Next i


For i = 1 To 3
For j = 2 To 4
MsgBox "i on " & i & " ja j on " & j
Next j
Next i

End If


End Sub

[mahfiaz]

Danel332, ei, nii, ja ära unusta seda koodi siis käima panna:

[Danel332]

Ei aitand see mind ree peale. Ei ole veel sellist inimest (peale sinu) leidnud kes seda oskaks.

Ehk saaksid mu programmile kontrollimise alguse juurde teha siis vast edasi saaksin ise juba hakkama. Et saaks täpselt teada mis kuhu ja kuidas läheb. Saaks selle programmi kuidagi tehtud siis oleks aega juba edasi ise nuputada teistega.

[alfreedo]

Danel322.

[Danel332]

Ü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.

[pmq]

mahfiaz esimeses postis on kenasti toimiv lahendus.
Siin see sinu koodile lisatuna. Näitab sammhaaval milliseid elemente võrreldakse (seni, kuni maatriks on sümmeetriline):

[mahfiaz]

vwg, väga ilus näide
Tegin arvude genereerija natukene usinamaks, nüüd on ainult keskmiselt <10% lahtritest mittesümmeetrilised, samuti on numbrite vahemik väiksem. Vastasel juhul katkeb kontrollimine esimese lahtri juures.

Spoiler

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 maatriks            ' Väike häkk, et rohkem sümmeetrilisust oleks,            ' keskmiselt ainult 10% lahtreid on mitte-sümmeetrilised:            If Rnd() > 0.9 or i <= j Then               ' Teeme mitte-sümmeetrilise või lisame uue väärtuse                Cells(i, j) = Int(Rnd() * 5)            Else               ' Võtame sümmeetria kohast numbri               Cells(i, j) = Cells(j, i)            End If         Next j     Next i     Dim rida, veerg     For rida = 2 To maatriks         ActiveSheet.UsedRange.Interior.Color = xlNone         For veerg = 1 To rida - 1             If Cells(rida, veerg) <> Cells(veerg, rida) Then                 Cells(rida, veerg).Interior.Color = RGB(255, 0, 0)                 Cells(veerg, rida).Interior.Color = RGB(255, 0, 0)                 MsgBox "Maatriks ei ole sümmetriline!"                 End             Else                 Cells(rida, veerg).Interior.Color = RGB(0, 255, 0)                 Cells(veerg, rida).Interior.Color = RGB(0, 255, 0)                 MsgBox "ok" + vbCrLf + "veerg =" + Str(veerg) + ", rida =" + Str(rida)             End If         Next veerg     Next rida End Sub

[Danel332]

Suured tänud aitajatele. Nüüd saab selle asjaga ühelepoole lõpuks.