VBA a R

Ahojte postupne sem budeme pridávať veci z prostredia R a VBA

vba by mohol byt nejaky visual basic v prostredi ms office, ale R to moc nepoznam

Ale budeme neboj :D

Vsetko je pripravene

..ak bude co pridavat, pridam :D

už vidim tie Ačka

pridavam sa

mate nieco:???

Sub b5()

Worksheets("b5").Select
Cells(1, 1).Value = WorksheetFunction.Sum(Range("B2:B5"))

End Sub

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

ak nieco mate poslite

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

nejake veci z Rka?

poprosila by som zatial nič nemám

2priklad r
je
x1...
x2...
y...
model(y`x1+x2)
summary model


a dalej neviem

mate niekto a5

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

dajte sem nejake Rko

a 1 VBA mate ktosi

k prvemu prikladu v R

ma 3 v R

3 priklad r

nechapem to

a ten prvy si ako spravil

> 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

a prvy si vedel

nie

a ten 4 nagenerovat 10 a 20 tie cisla

> 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...

brano a 3 nemas

Priatelia. Nemali by ste podvádzať, keď píšete písomku. Lebo potom nič nebudete vedieť, aj keď prejdete ďalej.

Ak nič nepíšu, ako si vysvetľuješ napríklad príspevok č. 60?

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ň.

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

👍: Slušný človek

mato mas to?

stale nemam zadanie... :D

Máš na fb 🙂

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

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

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

tento kod ale nedavaj do modulu ale priamo do userformu

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

toto je moje maximum :D