Avaleht
uus teema   vasta Tarkvara »  Tarkvara »  Excelis abi vaja 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
otsing:  
tlwww
HV kasutaja

liitunud: 29.02.2004
sõnum 17.11.2020 18:38:30 Excelis abi vaja vasta tsitaadiga
1. Tabeli esimeses veerus on kuupäevad, iga nädala esmaspäevad.
Vaja automaatselt faili avamisel lisada veergu kuupäevad (alates faili eelmisest avamisest kõik esmaspäevad kuni faili avamise päevani).

2. Tabeli teise veergu on vaja automaatselt valida juhuslikus järjestuses arvud kolmanda veeru valikust (näiteks viie rea ulatuses arvud 1-5).

Et siis faili avamisel on automaatselt read täidetud nii kõikide esmaspäevade kuupäevadega ja juhuslike arvudega nende järel.
Kommentaarid: 57 loe/lisa Kasutajad arvavad:  :: 0 :: 1 :: 48
tagasi üles
vaata kasutaja infot saada privaatsõnum
Betamax
HV Guru
Betamax

liitunud: 29.05.2003



Autoriseeritud ID-kaardiga
sõnum 17.11.2020 21:48:23 vasta tsitaadiga
Mingi koolitöö?
Kommentaarid: 690 loe/lisa Kasutajad arvavad:  :: 1 :: 1 :: 532
tagasi üles
vaata kasutaja infot saada privaatsõnum
tlwww
HV kasutaja

liitunud: 29.02.2004
sõnum 18.11.2020 12:31:53 vasta tsitaadiga
Betamax kirjutas:
Mingi koolitöö?

Ei
Kommentaarid: 57 loe/lisa Kasutajad arvavad:  :: 0 :: 1 :: 48
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010
sõnum 22.11.2020 21:58:17 vasta tsitaadiga
Ehk on abiks.




Sub Esmaspvd()
Dim mydate As Date

Sheets("Sheet1").Activate
Lastrow = Range("A1").Resize(Cells(Rows.Count, "A").End(xlUp).Row).Count
Cells(Lastrow, 1).Activate

mydate = ActiveCell

1
  If CDate(mydate) = Date Then
     Exit Sub
  Else
      ActiveCell.Offset(1, 0).Select

        Do
          mydate = mydate + 1
        Loop Until Weekday(mydate) = 2 Or CDate(mydate) = Date

        If Weekday(mydate) = 2 Then ActiveCell = mydate
        Suva
        GoTo 1
        End If
End Sub


Public Lastrow As Long

Sub Suva()
Dim i, Valik, Arv(5)
   
ActiveSheet.Range("C1").Select
 
  For i = 1 To 5
      Arv(i) = ActiveCell.Value
      ActiveCell.Offset(1, 0).Select
  Next
      Randomize Timer
       Valik = 1 + Int((Rnd * (6 - 1)))
       Cells(Range("A1").Resize(Cells(Rows.Count, "A").End(xlUp).Row).Count, 1).Select
 
  ActiveCell.Offset(0, 1) = Arv(Valik)
End Sub

Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Tarkvara »  Excelis abi vaja
[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.