Rychle, kvalitně a levně

Diskuze

Datum: 25.05.2011

Vložil: Lex

Titulek: Re: Pro Jancu

Uz je to prepsane muzes jen skopirovat ale zachovej ze se nacita cislo z prvniho radku a pate bunky tedy v E1 musi byt napsano kolik cisel

Datum: 18.05.2011

Vložil: pro čerta

Titulek: zap


Sub zapocet()

Dim r, c, radku, sloupcu, cislo

radku = Cells(1, 2).Value
sloupcu = Cells(2, 2).Value

r = 4
c = 2
cislo = 1

For r = 4 To radku + 3

For c = 2 To sloupcu + 1

Cells(r, c).Value = cislo
cislo = cislo + 1

Next

Next

End Sub

Datum: 17.05.2011

Vložil: kkkkkk

Titulek: vba

kod

Datum: 29.09.2010

Vložil: roman

Titulek: ..

Dobrý den, prosím Vás o radu. Stáhnul jsem si nový firmware do Samsungu S5230 a potřeboval bych soubor menu.swf přeložit do češtiny. Včera jsem to přeložil v programu Flash Decompiler a po instalaci v mobilu jsem zjistil, že to menu je v češtině, ale nefunguje. Moc Vás prosím. Když se najde nějaký hodný člověk, kt. mi to přeloží, tak ať mi napíše a já mu ten soubor pošlu. Moc děkuji

Datum: 12.05.2011

Vložil: ffefwqfw

Titulek: Re: ..

Sub zapocet()

Dim cisel, krok, suma

cisel = Cells(1, 5).Value

For krok = 1 To cisel

Cells(krok, 1).Value = krok
Cells(krok, 2).Value = Rnd()
suma = suma + Cells(krok, 2).Value

Next

Cells(2, 5).Value = suma / cisel

End Sub

Datum: 13.05.2011

Vložil: vbaprogramovani@gmail.com

Titulek: Re: Re: ..

Dobrý den,
vidím proceduru, ale nerozumím v čem je potřeba pomoci ... poradit.
Děkuji za reakci.

Datum: 15.05.2011

Vložil: karel

Titulek: Re: ..

Rem Sub den()
Rem
Rem Dim datum, denTydne
Rem
Rem datum = Cells(1, 2).Value
Rem
Rem denTydne = DatePart("w", datum)
Rem
Rem Select Case denTydne
Rem
Rem Case 1
Rem Cells(2, 2).Value = "neděle"
Rem Case 2
Rem Cells(2, 2).Value = "pondělí"
Rem Case 3
Rem Cells(2, 2).Value = "úterý"
Rem Case 4
Rem Cells(2, 2).Value = "středa"
Rem Case 5
Rem Cells(2, 2).Value = "čtvrtek"
Rem Case 6
Rem Cells(2, 2).Value = "pátek"
Rem Case 7
Rem Cells(2, 2).Value = "sobota"
Rem
Rem End Select
Rem
Rem End Sub

Datum: 16.05.2011

Vložil: vbaprogramovani@gmail.com

Titulek: Re: Re: ..

co tohle ? Sub den() Dim datum, denTydne datum = Cells(1, 2).Value denTydne = DatePart("w", datum, vbUseSystem) Select Case denTydne Case 1 Cells(2, 2).Value = "pondělí" Case 2 Cells(2, 2).Value = "úterý" Case 3 Cells(2, 2).Value = "středa" Case 4 Cells(2, 2).Value = "čtvrtek" Case 5 Cells(2, 2).Value = "pátek" Case 6 Cells(2, 2).Value = "sobota" Case 7 Cells(2, 2).Value = "neděle" End Select End Sub

Datum: 17.05.2011

Vložil: krotitel

Titulek: pokus započet poslim kamošovi

Sub zapocet()

Dim kroku, radek, krok

kroku = Cells(1, 2).Value
radek = 3

For krok = 1 To kroku

Cells(radek, 1).Value = krok
Cells(radek, 2).Value = 1 / (krok * krok)
radek = radek + 1

Next


End Sub

Datum: 13.11.2009

Vložil: Klimeš O.

Titulek: Formulář

Dobrý den měl bych zájem o vaše služby a to přímo o vytvoření formuláře na tvorbu cenových nabídek. skype kontakt: klimesondrej, email:klimesondrej@seznam.cz

Vyhledávání

Kontakt

Proč platit peníze za drahé a licencované programy?

 

Kancelářské produkty MS office obsahují prostředí VBA (vývoj. nástroje pro programátory) za pomoci kterého lze napsat koplexní automatizovaný podnikový software.