Izpit Visual Basic pri Excel

[Matjaz_C]

Pozdravljeni,

Potreboval bi pomoč oz. če kdo lahko prosim reši nalogi kateri sem imel na izpitu.

Hvala za pomoč.

[Stenly]

Pozdravljen
Ne vem, če sem prav razumel .
Evo druge naloge:
Tabelo sem začel v A1

Koda: Izberi vse

Sub Makro1()
'
   Set myRange = Range("B2:H8")
    odgovor_PR = Application.WorksheetFunction.Average(myRange)
    odgovor_MR = Application.WorksheetFunction.Max(myRange)
    MsgBox "povprečna razdalja med mesti je " & odgovor_PR & vbLf _
    & "Max. razdalja pa je med mestoma: " & Cells(myRange.Find(What:=odgovor_MR, LookIn:=xlValues).Row, 1).Value & " in " _
    & Cells(1, myRange.Find(What:=odgovor_MR, LookIn:=xlValues).Column).Value & " in to: " & odgovor_MR
    
End Sub

Lp

[admin]

Kaj pa vas muči pri tretji nalogi? Nekako ne bo prav, če vam kar napišemo rešitev ...