Avaleht
uus teema   vasta Tarkvara »  Programmeerimine »  Käsuridade seletus märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale.  :: Teata moderaatorile teata moderaatorile
otsing:  
Sixten
HV Guru

liitunud: 14.12.2002
sõnum 07.05.2013 12:45:36 Käsuridade seletus vasta tsitaadiga
Tere,
äkki keegi saab aidata ja kirjutada iga rea taha, mida konkreetne asi teeb?
Sub Genereeri()

Sheets(1).UsedRange.Clear

S=Val(InputBox(„sisesta arv“))

ActiveSheet.Range(„a5“).Select

Randomize

For i = 1 To s

Cells(5+i,1)=Int(100*Rnd)

Next i

Max = Cells(6,1)

For i = 1 To s - 1

If Cells(i+5,1) > Max Then max = Cells (i+5,1)

Next i

Cells (2,2)=“max“

Cells (3,2)=max

End Sub


viimati muutis Sixten 07.05.2013 12:58:36, muudetud 1 kord
Kommentaarid: 87 loe/lisa Kasutajad arvavad:  :: 2 :: 1 :: 76
tagasi üles
vaata kasutaja infot saada privaatsõnum
mikk36
HV Guru
mikk36

liitunud: 21.02.2004



Online
sõnum 07.05.2013 12:51:14 vasta tsitaadiga
Sixten, tegu pole isegi töötava koodiga?
Kommentaarid: 85 loe/lisa Kasutajad arvavad:  :: 0 :: 2 :: 78
tagasi üles
vaata kasutaja infot saada privaatsõnum
Sixten
HV Guru

liitunud: 14.12.2002
sõnum 07.05.2013 12:59:15 vasta tsitaadiga
mikk36 kirjutas:
Sixten, tegu pole isegi töötava koodiga?

Suutsin kiiruga vead sisse teha. Nüüd ehk on korras.
Ise ei saa kuidagi tööle visual basicut ja üsna kiire on sellega icon_confused.gif
Kommentaarid: 87 loe/lisa Kasutajad arvavad:  :: 2 :: 1 :: 76
tagasi üles
vaata kasutaja infot saada privaatsõnum
jnt
HV Guru
jnt

liitunud: 10.05.2005



Autoriseeritud ID-kaardiga
sõnum 07.05.2013 13:10:28 vasta tsitaadiga
Sixten, google kasutusoskus on nullilähedane, eks?
_________________
Progemisest: https://byteaether.github.io/
Seisab keldris vana 386-486-Pentium1? Räägime! Ehk saan vanakesele uue elu anda. icon_wink.gif
Vaata siia, äkki müün midagi põnevat -> https://www.osta.ee/index.php?fuseaction=listing.seller&q[seller]=jnt
Kommentaarid: 110 loe/lisa Kasutajad arvavad:  :: 2 :: 0 :: 102
tagasi üles
vaata kasutaja infot saada privaatsõnum
mikk36
HV Guru
mikk36

liitunud: 21.02.2004



Online
sõnum 07.05.2013 13:12:34 vasta tsitaadiga
Sixten, tegu ju VBA scriptiga, mitte palja VB'ga.
Tekita tühi Exceli tööleht, tekita uus Macro ja kopeeri sinna sisse see:
vb:
  1. Sub Genereeri()
  2.   Sheets(1).UsedRange.Clear
  3.   s = Val(InputBox("sisesta arv"))
  4.   ActiveSheet.Range("a5").Select
  5.   Randomize
  6.   For i = 1 To s
  7.     Cells(5 + i, 1) = Int(100 * Rnd)
  8.   Next i
  9.   Max = Cells(6, 1)
  10.   For i = 1 To s - 1
  11.     If Cells(i + 5, 1) > Max Then Max = Cells(i + 5, 1)
  12.   Next i
  13.   Cells(2, 2) = "max"
  14.   Cells(3, 2) = Max
  15. End Sub
  16.  
Word ei ole muide õige koht koodi kirjutamiseks. Sinu kasutatavad jutumärgid ei käi kokku koodi kirjutamisega.
Kommentaarid: 85 loe/lisa Kasutajad arvavad:  :: 0 :: 2 :: 78
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010
sõnum 07.05.2013 17:49:01 vasta tsitaadiga
Noh maavillane seletus kah siis.

tsitaat:
Option Explicit
Sub Genereeri()
Dim s As Long, i As Long, max As Long
'Aktiveeri ikka leht mida vajad.
Sheets(1).Activate

'Puhasta esimene (Ei pea olema alati "Sheet1" nimeline) leht mittevajalikust.
Sheets(1).UsedRange.Clear

'Sisesta arv mitu korda genereerida juhuslikke arve
s = Val(InputBox("sisesta arv"))

' Aktiveeri sisestuseks lahter
ActiveSheet.Range("A5").Activate

'Randomize : see pole siin vajalik

'Sisestusboxi sisestatud "arv" korda genereeri juhuslik arv vahemikust 0...10 _
ja sisesta lehele.
For i = 1 To s
Cells(5 + i, 1) = Int(100 * Rnd)
Next i

' Sea esimene sisestuslahter nn "maksimumiks",et oleks algväärtus millega teisi vörrelda.
max = Cells(6, 1)

'Käies lahtrid läbi leia suurim arv
For i = 1 To s - 1
If Cells(i + 5, 1) > max Then max = Cells(i + 5, 1)
Next i

Cells(2, 2) = "max"
Cells(3, 2) = max
End Sub
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
Sixten
HV Guru

liitunud: 14.12.2002
sõnum 07.05.2013 22:43:59 vasta tsitaadiga
Tänan thumbs_up.gif
Kommentaarid: 87 loe/lisa Kasutajad arvavad:  :: 2 :: 1 :: 76
tagasi üles
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Programmeerimine »  Käsuridade seletus
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
sa ei või postitada uusi teemasid siia foorumisse
sa ei või vastata selle foorumi teemadele
sa ei või muuta oma postitusi selles foorumis
sa ei või kustutada oma postitusi selles foorumis
sa ei või vastata küsitlustele selles foorumis
sa ei saa lisada manuseid selles foorumis
sa võid manuseid alla laadida selles foorumis



Hinnavaatlus ei vastuta foorumis tehtud postituste eest.