Kliknite tukaj, da si ogledate profil, kot ga vidijo drugi

Premešajmo vrstice

Delite vsebino na Facebooku
Delite vsebino na Twitterju
  Vrstice s podatki, ki so shranjene v Excel razpredelnici, bomo s pomočjo makra naključno premešali.
 
 
1
 
 
 
 
2
 
 

Kliknite Alt+F11, da odprete VBA. Sedaj kliknite na majhno črno puščico in nato na Module.

 
 
3
 
 

Prilepite spodnjo kodo:

Sub PremesajVrstice()
    Dim i, first, last, count, rnd, r1, r2
   
    first = Selection.Row
    last = Selection.Rows.count + Selection.Row - 1
    count = Selection.Rows.count
   
    For i = first To last
        Randomize
        rnd = Math.Round(Math.rnd * (count - 1), 0) + 1
      
        r1 = Range(i & ":" & i)
        r2 = Range(rnd & ":" & rnd)

        Range(rnd & ":" & rnd) = r1
        Range(i & ":" & i) = r2
    Next
End Sub

 
 
4
 
 

Sedaj pojdite nazaj v Excel in označite vaše vrstice.

 
 
5
 
 

Ponovno odprite VBA in pritisnite zeleno puščico na vrhu.

 
 
6
 
 

Vrstice so sedaj naključno premešane :)

 
 
Komentiraj
 
 
Prijava in registracija
 
 
 
Zmaga.com ponuja brezplačno in razumljivo učenje računalniških programov, vas na enkraten način spozna z različnimi svetovnimi jeziki, s podrobno obrazloženimi recepti prikaže čare kulinarike in vam prežene strahove pred domačimi opravili.
 
 
Poleg tega lahko prebirate poučne članke, ki so namenjene širjenju naše splošne razgledanosti ter preverite svoje znanje z priljubljenim in enostavnim sistemom za preverjanje znanja. Če med vsebinami, ki se dodajajo vsak dan, ne najdete želenega znanja, je za vaša vprašanja na voljo dobro obiskan forum, kjer lahko tudi aktivno sodelujete. V primeru, da bi radi svoje praktično znanje delili z ostalimi, pa to lahko storite preko preprostega vmesnika za dodajanje vsebin. Zmagajte z znanjem z Zmaga.com!