< návrat zpět

MS Excel


Téma: VBA funkce - prosím rss

Zaslal/a 16.10.2009 6:04

Ahojky, prosím nemohl by mi někdo z Vás pomoct? Nemám hotovou poslední zkoušku a nějak si nevím rady. máme vytvořit funkci ve VBA ve které je podmíněný příkaz a příkaz cyklu. Vůbec nevím co s tím, protože jsem antitalent na počítače. Nemá být nijak složitá, stačí lehký příklad, ale já fakt nevím co po mě vlastně chce.

Zaslat odpověď >

#000776
Jeza.m
Tak třeba :-)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = "A" Then
For i = 1 To 10
Cells(i, 2) = "A" & Format(i, "0#")
Next
Else
If Target <> "" Then
MsgBox "Zadej A do buňky A1", vbCritical
Cells(1, 1).Activate
End If
End If
End If
End Sub


Příklad je absolutně k ničemu, ale jako příklad snad poslouží :-)citovat
#000777
avatar
Děkuju 2 Předám kamarádovi, snad mi to pomůže udělat, jinak mě ta baba vyhodí. 6 7citovat
#000778
avatar
3 18 neví si s tím taky rady. Nebyl by prosím nějaký kratičký lehoučký příkladek? Prosím! 18citovat
#000779
Jeza.m
for i = 1 to 10
msgbox i
next

cyklus 10 hlášek od 1 do 10

if activecell <>"" then msgbox activecell

pokud vybraná buňka není prázdná tak Excel hodí hlášku s hodnotou buňky

Jednoduššeji už to snad nejde :-)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Prirazeni OnClick makra CommandButtonu pres VBA

Tex • 3.10. 1:57

Automatické dosazení KDYŽ

marjankaj • 2.10. 22:22

Automatické dosazení KDYŽ

PavelJ • 2.10. 21:54

Automatické dosazení KDYŽ

elninoslov • 2.10. 20:21

Automatické dosazení KDYŽ

PavelJ • 2.10. 19:55

Automatické dosazení KDYŽ

Stalker • 2.10. 19:23

Automatické dosazení KDYŽ

PavelJ • 2.10. 18:22