1
|
Ahojte postupne sem budeme pridávať veci z prostredia R a VBA
|
 |
|
10
|
|
|
1. 07.06.2017, 21:23
Ahojte postupne sem budeme pridávať veci z prostredia R a VBA
▲
07.06.2017, 23:52
|
Napíš, o čom to je.
Doplň aj, či to je alebo nie je v rozpore s katolíckou náukou.
|
 |
|
11
|
|
|
1. 07.06.2017, 21:23
Ahojte postupne sem budeme pridávať veci z prostredia R a VBA
▲
08.06.2017, 00:02
|
vba by mohol byt nejaky visual basic v prostredi ms office, ale R to moc nepoznam
|
|
|
12
|
|
|
11. 08.06.2017, 00:02
vba by mohol byt nejaky visual basic v prostredi ms office, ale R to moc nepoznam
▲
08.06.2017, 00:06
|
R znamená Right, čiže ide o alternatívu k Left (L inux).
|
|
|
13
|
|
|
12. Lemmy 08.06.2017, 00:06
R znamená Right, čiže ide o alternatívu k Left (L inux).
▲
08.06.2017, 00:07
|
Linuxové prostredie vnorené do prostredia Microsoftu.
|
|
|
14
|
|
|
13. Lemmy 08.06.2017, 00:07
Linuxové prostredie vnorené do prostredia Microsoftu.
▲
08.06.2017, 00:07
|
Predstav si linux ako muža, a Microfost ako ženu.
|
|
|
15
|
|
|
14. Lemmy 08.06.2017, 00:07
Predstav si linux ako muža, a Microfost ako ženu.
▲
08.06.2017, 00:08
|
A nie je to v rozpore s katolíckou náukou, lebo o R a VBA sa píše už v biblii, v Genezis.
|
|
|
20
|
|
|
11. 08.06.2017, 00:02
vba by mohol byt nejaky visual basic v prostredi ms office, ale R to moc nepoznam
▲
08.06.2017, 00:16
|
Áno. Programovací jazyk Visual Basic for Applications (VBA).
Random Number Generation
Import „kvalitnejších“ pseudo-náhodných čísel do Office 2007 z prostredia R
Generovanie tabuľky kvalitných pseudo-náhodných čísel v R pre Access/Excell
odkaz |
|
|
21
|
|
|
20. Lemmy 08.06.2017, 00:16
Áno. Programovací jazyk Visual Basic for Applications (VBA).
Random Number Generation
Import „kvalitnejších“ pseudo-náhodných čísel do Office 2007 z prostredia R
Generovanie tabuľky kvalitných pseudo-náhodných čísel v R pre Access/Excell
http://www.defm.fmph.uniba.sk/ludia/odrobina/Access_Tabulky_Dotazy.htm
▲
08.06.2017, 00:20
|
Hm, naco to je dobre? excel uz ma generator nahodnych cisle
|
|
|
23
|
|
|
21. 08.06.2017, 00:20
Hm, naco to je dobre? excel uz ma generator nahodnych cisle
▲
08.06.2017, 00:23
|
Neviem, možno je to na to, aby sa tu mohol niekto zaregistrovať a machrovať.
|
|
|
3
|
Vsetko je pripravene  |
|
|
4
|
..ak bude co pridavat, pridam :D
|
|
|
6
|
pridavam sa  |
|
|
7
|
|
|
6. 07.06.2017, 22:06
pridavam sa
▲
07.06.2017, 23:42
|
VBAvsR? To je skratka? Že: V Bratislave som sa vysral.
|
|
|
8
|
|
|
7. Lemmy 07.06.2017, 23:42
VBAvsR? To je skratka? Že: V Bratislave som sa vysral.
▲
07.06.2017, 23:43
|
Napíš tú vetu v prostredí R a VBA.
|
|
|
25
|
Sub b5()
Worksheets("b5").Select
Cells(1, 1).Value = WorksheetFunction.Sum(Range("B2:B5"))
End Sub
|
|
|
26
|
Sub c5()
Worksheets("c5").Select
Dim meno As String, a As Integer
Range("D4").Select
Do
ActiveCell.Offset(1, 0).Select
a = ActiveCell.Row
If ActiveCell.Row = 15 Then
Exit Do
Else
showInputBox:
meno = Application.InputBox("Zadajte meno.")
ActiveCell.Value = meno
End If
Loop
End Sub
|
|
|
28
|
Public Sub druhy_priklad()
Dim y As Range, i As Long
Dim a As String
Dim cl As Range
For i = 0 To 1000
a = Range("A1").Offset(i).Value
If StrComp(a, "Italy") = 0 Then
Rows(i + 1).Delete
End If
Next i
End Sub
|
|
|
30
|
poprosila by som zatial nič nemám
|
|
|
31
|
2priklad r
je
x1...
x2...
y...
model(y`x1+x2)
summary model
a dalej neviem
|
|
|
33
|
Sub a5()
Worksheets("a5").Select
Set MojeRange = Range("A1").Offset(2, 0)
MojeRange.Select
Set MojeRange = Range("A3").Resize(3, 5)
MojeRange.Select
End Sub
takto ale neviem či je to dobre
|
|
|
42
|
a ten prvy si ako spravil
|
|
|
43
|
> y<-c(1.5,2,7,8,15)
> x1<-c(1,3,6,9,12)
> x2<-(3,1.5,5.2,7,11)
> model<-lm(y~x1+x2)
> koef.der<-summary(model)$r.squared
R druhy priklad
|
|
|
46
|
a ten 4 nagenerovat 10 a 20 tie cisla
|
|
|
47
|
> A<-sample(c(0,1),100,replace=TRUE)
> B<-sample(c(10,20),100,replace=TRUE)
> A<- as.factor(A)
> levels(A)<-c("0","1")
> table_1<-table(A)
> pie(table_1)
> B<- as.factor(B)
> levels(B)<-c("10","20")
> table_2<-table(B)
> pie(table_2)
ale neni to vsetko co tam treba...
|
|
|
49
|
Priatelia. Nemali by ste podvádzať, keď píšete písomku. Lebo potom nič nebudete vedieť, aj keď prejdete ďalej.
|
 |
|
52
|
Ak nič nepíšu, ako si vysvetľuješ napríklad príspevok č. 60?
|
|
|
53
|
Inak Peter. Od včera, keď si odmietol hrať so mnou šach, tak som prehral všetky tri partie s počítačom. Tu je vidieť moja nízka šachová úroveň.
|
|
|
56
|
|
|
53. Slušný človek 08.06.2017, 13:01
Inak Peter. Od včera, keď si odmietol hrať so mnou šach, tak som prehral všetky tri partie s počítačom. Tu je vidieť moja nízka šachová úroveň.
▲
08.06.2017, 13:53
|
Ja som raz hral nejaky sach s javascriptom, a vyhral som, som bol prekvapeny..
Samozrejme sach neviem hrat a mam problem so sustredenim.. sustredim sa kde by som mohol ustedrit utok a vobec nevidim , ze na mna bol utok uz davno pripraveny 
Raz som hral na nete sach (asynchronny), taky co trva aj niekolko dni s nejakym tutorom, asi v tretine turor odisiel a ja neviem, ci som bol tak zly, alebo tak dobry.
A spomeniem aj nostalgiu sachy na ZX Spectre, to bola super zabava
Psion Chess, Colossus chess, turk chess, cyrus, vsetky mali spolocne to, ze strasne dlho rozmyslali, potom prisli 16 bitove pocitace a s nimi battle chess, a chessmaster 2000 s uvodnou obrazovkou odkaz
a obalom odkaz |
|
|
59
|
stale nemam zadanie... :D
|
|
|
61
|
vba 6.priklad
Sub loop1()
Worksheets("loop").Select
Range("F10").Select
Do Until IsEmpty(ActiveCell.Value)
ActiveCell.Offset(, 1).Select
Loop
ActiveCell.Offset(, -1).Select
End Sub
|
|
|
62
|
vba 5.priklad
Sub pole()
Worksheets("pole").Select
Range("C1").Select
Do
ActiveCell.Offset(1, 0).Select
If Not IsEmpty(ActiveCell.Value) Then
Exit Do
End If
Loop
LastRow = ActiveCell.End(xlDown).Row
Range(ActiveCell, Cells(LastRow, 3)).Select
End Sub
|
|
|
63
|
VBA 3.priklad zaciatok
vytvor userform, v nom vytvor listbox
Private Sub UserForm_Initialize()
Worksheets("Daily mean Temperature").Select
With ListBox1
.ColumnCount = 13
.ColumnWidths = "50;50;50"
.RowSource = ActiveSheet.Range("B11:N18").Address
End With
End Sub
nacita hodnoty do listboxu, skusim este zbytok
|
|
|
64
|
tento kod ale nedavaj do modulu ale priamo do userformu
|
|
|
65
|
3 pokracovanie
dalej vytvor v userforme commandbutton a textbox vedla toho
do kodu userformu pridaj
Private Sub CommandButton1_Click()
Dim y As Range, i As Long
Dim a As String
For i = 1 To 7
a = Range("B12").Offset(i).Value
If StrComp(a, "ALBANY, NY") = 0 Then
Set y = Cells(i + 12, 8)
End If
Next
TextBox1.Value = y
end sub
|
|
|
|
