Hoď ma hore
prihlásenie:
Registrácia  |  Zabudnuté heslo
tu sa nachádzate: hlavná stránka  počítače  téma
kategórie:  

VBA a R

86
reakcií
1652
prečítaní
Tému 7. júna 2017, 21:23 založil Rmacher.

podobné témy:

názov témy
posledná
reakcií
30. 06. 2017
31
11. 11. 2007
15
13. 03. 2012
89
29. 12. 2013
55
 
 


1.
označiť príspevok

Rmacher
   7. 6. 2017, 21:23 avatar
Ahojte postupne sem budeme pridávať veci z prostredia R a VBA


2.
označiť príspevok

Mil@níčko muž
   7. 6. 2017, 21:24 avatar
A čo ak nie ?


18.
označiť príspevok

Lemmy muž
   7. 6. 2017, 23:52 avatar
Napíš, o čom to je.

Doplň aj, či to je alebo nie je v rozpore s katolíckou náukou.


19.
označiť príspevok

Wolfe muž
   8. 6. 2017, 00:02 avatar
vba by mohol byt nejaky visual basic v prostredi ms office, ale R to moc nepoznam


20.
označiť príspevok

Mil@níčko muž
   8. 6. 2017, 00:04 avatar
To bude nejaké machrovina, veď to založil aj Rmacher !   


33.
označiť príspevok

Wolfe muž
   8. 6. 2017, 00:15 avatar
Rmacher akoze jazyk R
a vba/-predator akoze jazyk VBA

Vo vba som robil rozne vecicky pre excel
napr. otvoril sa mi dialog, kde som si otvoril csv subor, ten mi zrusil duplikaty, zosortoval podla serverov, medzi jednotlivymi servermi dal medzeru a striedavo riadky vyfarboval sedou alebo nechal bierou,vyfarbickoval kolonky podla druhu vypadnutia servera, vyrovnalo vsetky stlpce, nastavilo header a footer stranky pre tlac . Zial zdrojak som zmazal, kedze odchadzam z roboty.. V robote to este kdesi je...


21.
označiť príspevok

Lemmy muž
   8. 6. 2017, 00:06 avatar
R znamená Right, čiže ide o alternatívu k Left (L inux).


22.
označiť príspevok

Lemmy muž
   8. 6. 2017, 00:07 avatar
Linuxové prostredie vnorené do prostredia Microsoftu.


23.
označiť príspevok

Lemmy muž
   8. 6. 2017, 00:07 avatar
Predstav si linux ako muža, a Microfost ako ženu.


25.
označiť príspevok

Lemmy muž
   8. 6. 2017, 00:08 avatar
A nie je to v rozpore s katolíckou náukou, lebo o R a VBA sa píše už v biblii, v Genezis.


26.
označiť príspevok

Mil@níčko muž
   8. 6. 2017, 00:09 avatar
Už mi stojí............................robota.   


28.
označiť príspevok

Lemmy muž
   8. 6. 2017, 00:10 avatar
Aha, pritvrdil si (sa).
Súhlasí Mil@níčko


30.
označiť príspevok

Mil@níčko muž
   8. 6. 2017, 00:10 avatar
Jes ser.  


24.
označiť príspevok

Mil@níčko muž
   8. 6. 2017, 00:08 avatar
A neutopí sa ?


27.
označiť príspevok

Lemmy muž
   8. 6. 2017, 00:09 avatar
Kedy si sa utopil, keď si sa vnoril do nejakej ženy?


29.
označiť príspevok

Mil@níčko muž
   8. 6. 2017, 00:10 avatar
Skôr do jej mysle si myslím.  


31.
označiť príspevok

Lemmy muž
   8. 6. 2017, 00:12 avatar
To je pravda. Keby si sa vnoril do mysle ženy, tak sa utopíš v jej myšlienkach: tampóny, vložky, kabelka, púder, rúž, voňavky, šaty, sandále…
Súhlasí Mil@níčko


32.
označiť príspevok

Mil@níčko muž
   8. 6. 2017, 00:13 avatar
Raz som sa o to pokúsil a potom som musel týždeň chlastať.   


34.
označiť príspevok

Lemmy muž
   8. 6. 2017, 00:16 avatar
Á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

www.defm.fmph.uniba.sk Tento odkaz smeruje mimo DF.sk


35.
označiť príspevok

Mil@níčko muž
   8. 6. 2017, 00:18 avatar
Mal si už pseudo sex ?


37.
označiť príspevok

Lemmy muž
   8. 6. 2017, 00:20 avatar
To slovo Office neznamená hocijakú kanceláriu, kde by si pretiahol sekretárku.

Import „kvalitnejšieho“ pseudo-sexu do kancelárie z prostredia S

S znamená sex.

To znamená, že si v kancelárii pozrieš porno.


36.
označiť príspevok

Wolfe muž
   8. 6. 2017, 00:20 avatar
Hm, naco to je dobre? excel uz ma generator nahodnych cisle
Súhlasí Lemmy


38.
označiť príspevok

Mil@níčko muž
   8. 6. 2017, 00:21 avatar
Ale toto je generátor náhodných žien.


39.
označiť príspevok

Lemmy muž
   8. 6. 2017, 00:23 avatar
Neviem, možno je to na to, aby sa tu mohol niekto zaregistrovať a machrovať.


40.
označiť príspevok

Mil@níčko muž
   8. 6. 2017, 00:24 avatar
No možno pred desiatimi rokmi by bol frajer !!!!!!!!!   


3.
označiť príspevok

Nerd_kod
   7. 6. 2017, 21:31 avatar
Ale budeme neboj :D


4.
označiť príspevok

Mil@níčko muž
   7. 6. 2017, 21:32 avatar
Skúste, potom zažijete môj hnev.  


5.
označiť príspevok

vba_predator
   7. 6. 2017, 21:38 avatar
Vsetko je pripravene 


6.
označiť príspevok

Mil@níčko muž
   7. 6. 2017, 21:39 avatar
Aj ja som pripravený!!!!!!!!!!!!!!!  
Súhlasí Lemmy


7.
označiť príspevok

peter67 muž
   7. 6. 2017, 21:41

Príspevok bol vymazaný administrátorom.



8.
označiť príspevok

Mil@níčko muž
   7. 6. 2017, 21:42 avatar
Mal si sa lepšie učiť a nie kresliť kosoštvorce po tabuli !!!!!!!!!!!!
Súhlasí Lemmy


9.
označiť príspevok

Mimi_R
   7. 6. 2017, 21:55 avatar
..ak bude co pridavat, pridam :D


11.
označiť príspevok

peter67 muž
   7. 6. 2017, 21:58

Príspevok bol vymazaný administrátorom.



10.
označiť príspevok

doke451
   7. 6. 2017, 21:58 avatar
už vidim tie Ačka


12.
označiť príspevok

VBAvsR
   7. 6. 2017, 22:06 avatar
pridavam sa  


13.
označiť príspevok

Lemmy muž
   7. 6. 2017, 23:42 avatar
VBAvsR? To je skratka? Že: V Bratislave som sa vysral.
Súhlasí Mil@níčko


14.
označiť príspevok

Lemmy muž
   7. 6. 2017, 23:43 avatar
Napíš tú vetu v prostredí R a VBA.


15.
označiť príspevok

Mil@níčko muž
   7. 6. 2017, 23:47 avatar
Môžem ju napísať aj zo zafajčeného prostredia ?
Súhlasí Lemmy


16.
označiť príspevok

Lemmy muž
   7. 6. 2017, 23:50 avatar
Budeš vo výhode, lebo nebudeme cítiť smrad.


17.
označiť príspevok

Mil@níčko muž
   7. 6. 2017, 23:52 avatar
Ale ja to napíšem tak, že to bude smrdieť ako hovädo !   
Súhlasí Lemmy


41.
označiť príspevok

Rmacher
   8. 6. 2017, 10:33 avatar
mate nieco:???


42.
označiť príspevok

vba_predator
   8. 6. 2017, 10:36 avatar
Sub b5()

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

End Sub


43.
označiť príspevok

vba_predator
   8. 6. 2017, 11:04 avatar
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


44.
označiť príspevok

vba_predator
   8. 6. 2017, 11:04 avatar
ak nieco mate poslite


45.
označiť príspevok

doke451
   8. 6. 2017, 11:10 avatar
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


46.
označiť príspevok

vba_predator
   8. 6. 2017, 11:18 avatar
nejake veci z Rka?


47.
označiť príspevok

Nerd_kod
   8. 6. 2017, 11:21 avatar
poprosila by som zatial nič nemám


48.
označiť príspevok

Rmacher
   8. 6. 2017, 11:29 avatar
2priklad r
je
x1...
x2...
y...
model(y`x1+x2)
summary model

a dalej neviem


49.
označiť príspevok

Rmacher
   8. 6. 2017, 11:31 avatar
mate niekto a5


50.
označiť príspevok

Nerd_kod
   8. 6. 2017, 11:32 avatar
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


51.
označiť príspevok

Rmacher
   8. 6. 2017, 11:40 avatar
dajte sem nejake Rko


52.
označiť príspevok

Rmacher
   8. 6. 2017, 11:42 avatar
a 1 VBA mate ktosi


53.
označiť príspevok

doke451
   8. 6. 2017, 12:02 avatar


54.
označiť príspevok

doke451
   8. 6. 2017, 12:03 avatar
k prvemu prikladu v R


55.
označiť príspevok

Rmacher
   8. 6. 2017, 12:04 avatar
ma 3 v R


56.
označiť príspevok

doke451
   8. 6. 2017, 12:05 avatar


57.
označiť príspevok

doke451
   8. 6. 2017, 12:05 avatar
3 priklad r


58.
označiť príspevok

Rmacher
   8. 6. 2017, 12:08 avatar
nechapem to


59.
označiť príspevok

Rmacher
   8. 6. 2017, 12:08 avatar
a ten prvy si ako spravil


60.
označiť príspevok

vba_predator
   8. 6. 2017, 12:08 avatar
> 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


61.
označiť príspevok

Rmacher
   8. 6. 2017, 12:11 avatar
a prvy si vedel


62.
označiť príspevok

vba_predator
   8. 6. 2017, 12:12 avatar
nie


63.
označiť príspevok

Rmacher
   8. 6. 2017, 12:14 avatar
a ten 4 nagenerovat 10 a 20 tie cisla


64.
označiť príspevok

vba_predator
   8. 6. 2017, 12:17 avatar
> 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...


65.
označiť príspevok

Rmacher
   8. 6. 2017, 12:21 avatar
brano a 3 nemas


66.
označiť príspevok

Slušný človek muž
   8. 6. 2017, 12:27 avatar
Priatelia. Nemali by ste podvádzať, keď píšete písomku. Lebo potom nič nebudete vedieť, aj keď prejdete ďalej.


67.
označiť príspevok

peter67 muž
   8. 6. 2017, 12:44

Príspevok bol vymazaný administrátorom.



68.
označiť príspevok

Slušný človek muž
   8. 6. 2017, 12:48 avatar
Myslím si, že píču nejakú skúšku, alebo písomku, včera sa na tom dohodli a dnes si cez DF posieľajú ťaháky. Dômyselné. Kde sme proti nim my s našimi papierovými ťahákmi v písankách?


69.
označiť príspevok

Slušný človek muž
   8. 6. 2017, 12:48 avatar
Nie píču, ale píšu. 


70.
označiť príspevok

peter67 muž
   8. 6. 2017, 12:56

Príspevok bol vymazaný administrátorom.



74.
označiť príspevok

Wolfe muž
   8. 6. 2017, 13:31 avatar
Mna programovacie jazyky bavili, skusal som programovat asi v 30tich roznych..


73.
označiť príspevok

Wolfe muž
   8. 6. 2017, 13:29 avatar
No ale clovek, a ja ze si slusny   

A suhlasim par ludi potrebovalo najst miesto kde si budu pisat priklady, takze spolu sa zaregistrovali v rovnaky cas a mena si odvodili od toho o com budu pisat, nie je to jeden clovek
Súhlasí Slušný človek


71.
označiť príspevok

Slušný človek muž
   8. 6. 2017, 12:59 avatar
Ak nič nepíšu, ako si vysvetľuješ napríklad príspevok č. 60?


72.
označiť príspevok

Slušný človek muž
   8. 6. 2017, 13:01 avatar
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ň.


75.
označiť príspevok

Wolfe muž
   8. 6. 2017, 13:53 avatar
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 www.myabandonware.com Tento odkaz smeruje mimo DF.sk
a obalom www.mobygames.com Tento odkaz smeruje mimo DF.sk
Súhlasí Slušný človek


76.
označiť príspevok

peter67 muž
   8. 6. 2017, 14:03

Príspevok bol vymazaný administrátorom.



77.
označiť príspevok

Slušný človek muž
   8. 6. 2017, 14:16 avatar
Takto ma to nebaví. Keby tu bola šachovnica, to je iné.


78.
označiť príspevok

Rmacher
   29. 6. 2017, 12:12 avatar
mato mas to?


79.
označiť príspevok

vba_predator
   29. 6. 2017, 12:33 avatar
stale nemam zadanie... :D


80.
označiť príspevok

Rmacher
   29. 6. 2017, 12:40 avatar
Máš na fb


81.
označiť príspevok

vba_predator
   29. 6. 2017, 12:55 avatar
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


82.
označiť príspevok

vba_predator
   29. 6. 2017, 13:17 avatar
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


83.
označiť príspevok

vba_predator
   29. 6. 2017, 13:36 avatar
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


84.
označiť príspevok

vba_predator
   29. 6. 2017, 13:37 avatar
tento kod ale nedavaj do modulu ale priamo do userformu


85.
označiť príspevok

vba_predator
   29. 6. 2017, 13:44 avatar
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


86.
označiť príspevok

vba_predator
   29. 6. 2017, 13:46 avatar


87.
označiť príspevok

vba_predator
   29. 6. 2017, 13:51 avatar
toto je moje maximum :D
váš príspevok

Pridávať príspevky môžu iba zaregistrovaní účastníci fóra.

Som zaregistrovaný

nick: heslo:
zostať trvalo prihlásený    
Nie som zaregistrovaný

Vaša prezývka:  

Po zaregistrovaní budete automaticky presmerovaní do tejto témy.

najnovšie príspevky na celom fóre

dnes, 13:13,  Nie si slobodný, lebo tvoja duša je proti našich bratom Slovanom, tvoja duša je v reťaziach...
dnes, 13:12,  Oplatí, ale len na ebajku. *04
dnes, 13:11,  A ešte jedna výnimka platí, ak nie je súvislá snehová pokrývka, tak je otvorený aj...
dnes, 13:10,  mňa to nemáta, ja som slobodný a spokojný.....vadi mi to kvôli nim samým, ktorí obdivuju...
dnes, 13:07,  Že niekedy v apríli sa to skončí :)
dnes, 13:06,  Ak sa s tým nejako nevysporiadaš, bude ťa to mátať až dokonca tvojho života.
dnes, 13:06,  Presná uzávera sa dá vygoogliť a platí od 1.11. do 15.06! Otvorené sú však všetky...
dnes, 13:06,  Ona ešte stále nebola urobená deliaca čiara? To neveští nič dobré. Stále bude niekto...
dnes, 13:04,  mne vadí, že na Slovensku je ešte dosť veľa ruských potkanov.......a idiotov, ktorí...
dnes, 13:01,  Ľuďom stále niečo vadí :) Otázka je iba,že prečo vlastne :)
dnes, 12:54,  Tým ktorým vadilo stáť na banány, už nevadí stáť 5 hodín na časenky ku lekárovi ?
dnes, 12:34,  Toto je vážnejší problém ako by sa prvoplánovo zdalo. Tento problém - odluka cirkvi od...
dnes, 12:32,  Tvoje meno je na pismeno...J.....? Myslim duchovne
dnes, 12:30,  Q uz by som bol odsudeny ze som od zleho....ale pravdu nikto nechce prijat bo je bolestiva
dnes, 12:29,  Keby to cital nejaky pastor ci farar tak uz by sa zacal presviedcat ze to tak nieje ...
dnes, 12:25,  No ak ti mam napisat normalne nezavisle na cirkvach a podobne ....lebo cirkvy meditaciu...
dnes, 12:21,  Ved ano prvotne prebudenie je silny zazitok na ktory nikto nikdy nezabudne a to je len par...
dnes, 12:20,  No a tiez si sa dozvedel ze jezis zehna duchom svatym....a nie nejaky zavit...v zadku....
dnes, 12:17,  A tu ak sa nemylim nieje zmienky ci boli pokrsteny....skusim to kuknut....dobra praca
dnes, 12:15,  Ides nejak rychlo ku mne ... *41 No ale musel si sa nejak zoznamovat s tym internetom...
neprehliadnite
df.sk na Facebooku
vyhľadávanie
 
Čím viac dávaš, tým viac dostávaš.
Prevádzkuje df.sk | TOPlist
(182 765 bytes in 0,499 seconds)