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í
1098
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, 22:33,  A Kiskove obete odškodnia...
dnes, 22:31,  Bo eštebak by sa na plat ani dôchodok nesťažoval to je fakt *13*13*13*13*13*13*13*13*13*13*13...
dnes, 22:29,  Je to Haluzická skokotenina. *03*03
dnes, 22:28,  Aký to je jazyk ??? Ten frk či čo to malo akože byt skopírované ? Odhadujem zahoráčtina ?
dnes, 22:28,  To nebol eštebák, ale cigán ako ty čo furt ojebuje a slabo mu za to platia bo je kokot. *13*13
dnes, 22:27,  Prečo sa eštebak snaží vždy vyhovoriť že to on nebol ???*13*13*13 Je to asi nemenný stav
dnes, 22:26,  Kokotina, ojebuje ako furt, neodporúčam jeho odporúčania !!!!!!!!!!!!!
dnes, 22:25,  Papierová mapa huaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa *13*13*13 Dnes je rok 2019 mapy...
dnes, 22:22,  https://scontent-vie1-1.xx.fbcdn.net/v/t1.0-9/75204456_945748899127546_5508953374311055360_n.jpg?...
dnes, 22:21,  A banany ? Kde sú ??? Som sa dnes natočil pred Laugaríciom v Trenčíne až som miesto...
dnes, 22:15,  https://scontent-vie1-1.xx.fbcdn.net/v/t1.0-9/75565684_2355343761260191_5382021972429373440_n.png...
dnes, 22:14,  https://scontent.fprg2-1.fna.fbcdn.net/v/t1.0-9/75371729_2535116473202875_8816896993386299392_n.p...
dnes, 22:13,  https://scontent-vie1-1.xx.fbcdn.net/v/t1.0-9/76261156_2883681158318159_8663275857273421824_n.jpg...
dnes, 22:12,  https://scontent.fprg2-1.fna.fbcdn.net/v/t1.0-9/74705034_2535322743182248_8695912209949130752_n.p...
dnes, 22:08,  Ty kokot Spičaputený !!!!!!!!!
dnes, 22:07,  Každý vie že jediná rodina je farár kaplan kucharka ale Kuffa potrebuje k tomu ešte zopár...
dnes, 22:06,  Ti takú zajebem, že stena ti dá druhú ty vlastizradca pojebaný. *03*03
dnes, 22:05,  Tam kde ja robím, je ešte po kokot dôchodkov. *03*03*03
dnes, 22:05,  Okokotený neplač rodak ťa zachráni *39*39*39
dnes, 22:05,  https://picuscapital.sk/kazen-ktora-otvori-oci-knaz-kuffa-bez-servitky-o-falosnych-protestoch-na-...
neprehliadnite
df.sk na Facebooku
vyhľadávanie
 
Niekomu ide práca od ruky a niekomu zasa ruky od práce.
Prevádzkuje df.sk | TOPlist
(91 753 bytes in 0,493 seconds)