Hoď ma hore
prihlásenie:
Registrácia  |  Zabudnuté heslo
tu sa nachádzate: hlavná stránka  rôzne  téma
kategórie:  

VBA-R

31
reakcií
1251
prečítaní
Tému 28. júna 2017, 19:37 založil Rmacher.

podobné témy:

názov témy
posledná
reakcií
29. 06. 2017
86
11. 11. 2007
15
04. 02. 2018
5
30. 03. 2017
1
01. 05. 2019
20
25. 04. 2019
4
 
 


1.
označiť príspevok

Rmacher
   28. 6. 2017, 19:37 avatar
VBA a Rko....


2.
označiť príspevok

RRRrrrr!!!
   28. 6. 2017, 19:42 avatar
pripajam sa


3.
označiť príspevok

Mil@níčko muž
   28. 6. 2017, 19:48 avatar
Odpájam sa.


4.
označiť príspevok

VBAvsR
   28. 6. 2017, 20:00 avatar
pridavam sa...


5.
označiť príspevok

offset muž
   28. 6. 2017, 20:03 avatar
To ale mate mena :D


6.
označiť príspevok

Mil@níčko muž
   28. 6. 2017, 20:04 avatar
To tvoje tiež ale nieje najfajnovejšie.   


7.
označiť príspevok

Mimi_R
   28. 6. 2017, 20:44 avatar
Som tu RRRrrr je ktooo? :D to je paradne


8.
označiť príspevok

megamikro muž
   28. 6. 2017, 20:54 avatar
aj ja som kokot


9.
označiť príspevok

vba123
   28. 6. 2017, 21:04 avatar
no parada :D


10.
označiť príspevok

Mil@níčko muž
   28. 6. 2017, 21:05 avatar
no super :D


11.
označiť príspevok

VBA007
   28. 6. 2017, 22:44 avatar
aj ja sa pripájam :D


12.
označiť príspevok

TheFly
   29. 6. 2017, 00:06 avatar
som v strehu ľudia


13.
označiť príspevok

Rmacher
   29. 6. 2017, 12:22 avatar
mte nieco?


14.
označiť príspevok

doke451
   29. 6. 2017, 12:26 avatar
Ta prva foto z R sa neda citat. A ten zvysok je masaker ale skusim nieco vymysliet


15.
označiť príspevok

offset muž
   29. 6. 2017, 12:26 avatar
A=matrix(6,6,nrow=1,ncol=2)
B=matrix(c(5,5,5,5),nrow=2,ncol=2,byrow=TRUE)


16.
označiť príspevok

offset muž
   29. 6. 2017, 12:26 avatar
ale neviem to merge


17.
označiť príspevok

Rmacher
   29. 6. 2017, 12:27 avatar
skusim este nieco poslat


18.
označiť príspevok

Rmacher
   29. 6. 2017, 12:27 avatar
skus aspon to co mas


19.
označiť príspevok

VBA007
   29. 6. 2017, 12:45 avatar
C<-merge(A,B,all=TRUE,sort=FALSE)


20.
označiť príspevok

VBA007
   29. 6. 2017, 12:48 avatar
5b = pie(table(zml),labels=c("neživotné","životn")


21.
označiť príspevok

offset muž
   29. 6. 2017, 12:49 avatar
Fs<-aggregateDist("convolution",model.freq,model.sev=fx,size=2,prob=0.2,p0=0,maxit=1000)

niesom si isty co ma byt pri model.freq
to je 4 uloha


22.
označiť príspevok

Mimi_R
   29. 6. 2017, 12:49 avatar
ul2: y<-sample(c(1:100),10,replace=F)
plot(y) ostatne nemam


23.
označiť príspevok

offset muž
   29. 6. 2017, 12:54 avatar
jak si zadefinovala tu tabulku v 5?


24.
označiť príspevok

RRRrrrr!!!
   29. 6. 2017, 13:08 avatar
fx<-c(0,0,25,0.5,0.25)
> Fs<-aggregateDist("recursive",model.freq = "binomial", model.sev = c(0,0.25, 0.5, 0.25), x.scale = 50, size = 2, prob = 0.2)
> ps<-diff(Fs)
> ps
[1] 0.6400 0.0800 0.1625 0.0900 0.0150 0.0100 0.0025


25.
označiť príspevok

RRRrrrr!!!
   29. 6. 2017, 13:12 avatar
> phl<-as.factor(phl)
> levels(pohlavie)<-c("žena","muž"
Error in levels(pohlavie) <- c("žena", "muž" :
object 'pohlavie' not found
> levels(phl)<-c("žena","muž"
> table1<-table(zml,phl)
> table1
phl
zml žena muž
N 5 2
Z 1 2


26.
označiť príspevok

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

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


27.
označiť príspevok

Rmacher
   29. 6. 2017, 13:29 avatar
máte niekto ten 3 priklad z Rka?


28.
označiť príspevok

RRRrrrr!!!
   29. 6. 2017, 13:36 avatar
mate niekto VBA?


29.
označiť príspevok

RRRrrrr!!!
   29. 6. 2017, 13:46 avatar
a dvojku mate?


30.
označiť príspevok

vba_predator
   29. 6. 2017, 13:47 avatar
VBA 3.priklad
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

tento kod ale nedavaj do modulu ale priamo do userformu

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

imgur.com Tento odkaz smeruje mimo DF.sk


31.
označiť príspevok

VBAvsR
   29. 6. 2017, 14:19 avatar
priklad 2

Sub specialcells()
If ActiveSheet.UsedRange.Column > 1 Or ActiveSheet.UsedRange.Row > 1 Then
Debug.Print ActiveSheet.UsedRange.specialcells(xlCellTypeBlanks).Address
End If
End Sub


32.
označiť príspevok

TheFly
   30. 6. 2017, 08:17 avatar
Aj vyučujúci pozná internet.
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, 07:28,  havran stále si žiješ tu bolševícku bublinu. Inak to nebude presiakol si na tom VUML učení...
dnes, 07:17,  To je zaujímave veď minule si z hovnometu odhalil že to USA spustili proti číne že sa to...
dnes, 07:15,  Borat aspoň raz nám vymenuj aké krajiny povačuješ za ten ľudský východ . Lebo stále v...
dnes, 07:12,  Smradi .Zamrdali celý svet ešte vozia zdravotnícky material do EU , ktorý spôsobuje dalšie...
dnes, 06:15,  ešte raz :) Jak svět pozná, že epidemie opravdu ustoupila: a, Hranice se Severní...
dnes, 06:05,  ČČína svým jednáním během pandemie koronaviru porušila mezinárodní právo a nese za to...
dnes, 06:01,  a bobor, ked ti nato čínske svinstvo zomrú obaja rodičia, potom sem prídi šermovat s...
dnes, 05:57,  Naozaj len 80 000 infikovanych ? :) mimochodom toto je článok ešte z 2017 ....
dnes, 05:54,  chápeme ze bobor dostáva orgazmy z čínskych čísel, ale zial realita je iná :)...
dnes, 05:51,  yebo , Současný stav: 80000 tisíc nakažených v Číně Zdravotní péče ve Wuhanu a...
dnes, 05:37,  'Tvorstvo', ktoré rozozná Božích synov v 'posledných dňoch' sú tí, ktorí budú súdení...
dnes, 05:26,  http://xn------5cdbbbjitjz1clgu8bkdu1g.com/
dnes, 04:53,  Howg *04
dnes, 04:52,  Hrozná pandémia, ale žiaľ iba pre krajiny západného spoločenstva. Čína 1,4 miliardy...
dnes, 04:47,  tebe keby súdruhovia povedali ze si cocot, tak si natiahneš durex na hlavu . asi tak :)
dnes, 04:44,  Škára má hold problémy s počtami z prvého ročníku ZŠ. Čína už jeden a pol mesiaca...
dnes, 04:40,  9. bobor, čo mám rátat, tvoje komplexy ? *21tolko času nemám *19
dnes, 04:39,  bobor, to je tvoja diagnóza :) ešte raz si prečítaj vlastné kydy v úvode o neškodnosti...
dnes, 04:35,  Škára, že ani rátať nevieš neprekvapuje.
dnes, 04:35,  Do pléna, ak si nie ste náhodou istí, ku ktorému názorovému prúdu sa prikloniť , určite...
neprehliadnite
df.sk na Facebooku
vyhľadávanie
 
Usiluj sa, aby si mal to, čo miluješ, inak budeš nútený milovať to, čo máš.
Prevádzkuje df.sk | TOPlist
(111 153 bytes in 0,523 seconds)