< návrat zpět

MS Excel


Téma: Podmienka v makre rss

Zaslal/a 10.4.2015 14:00

Dobry den, potrebujem v makre zadefinovat podmienku, ze ak je zadana urcita hodnota v konkretnej bunke, tak sa spusti urcita cast v tom makre.

Priklad:
- spustim makro, ktore spravi vsetky akcie az pokial sa nedostane k spominanej podmienke, skontroluje ci je zadana v bunke hodnota "100", pokial ano, zrealizuje urcitu zadanu akciu (pripadne spusti ine makro).

Dakujem

Zaslat odpověď >

#024477
avatar
do ThisWorkbook napiste toto a pri zmene hociakeho udaju v bunke sa vypise range tej bunky

Private Sub aMacro(ByVal aRange As String)
MsgBox aRange
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each aCell In Target
If aCell = "100" Then aMacro aCell.Address
Next
End Sub
citovat
icon #024478
avatar
Mám za to, že Palooo popisuje trochu iný prípad, než riešiš ty. Predpokladám, že ti ide o to, spúšťať nejaký kód (časť kódu) v závislosti na hodnote konkrétnej bunky, nejedná sa teda o udalosť, ale skutočne o podmienku (IF). Inštrukcia, volajúca časť kódu (v mojom prípade inú subrutinu), môže byť potom v tvare:If [C10]=100 Then Call IneMakroPredpokladám, že zápis je samovysvetľujúci: Spusti makro IneMakro v prípade, že bunka C10 (v aktívnom liste) má hodnotu 100.citovat
#024479
elninoslov
Keď si to skombinujete, tak toto vložte do VBA daného listu v ktorom bunka je.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KonBunka As Range
Set KonBunka = Range("C1") 'Nastavenie kontrolovanej bunky
If Not Intersect(KonBunka, Target) Is Nothing And KonBunka = 100 Then
'Splnenie podmienky - vykonanie nejakej akcie
MsgBox ("Zdravím Vás, ja som bunka " & KonBunka.Address(0, 0) & " s hodnotou 100.")
End If
End Sub


EDIT: Omluva. Druhý krát som si to prečítal, a konštatujem, že jedine AL to pochopil a popísal správne. Nejde o udalosť vyvolanú zmenou hodnoty v bunke na 100, ale o kontrolu bunky počas spracovávania. To je tak, keď sa robí rýchlo...citovat
#024480
avatar
popravde necakal som ze to bude az taka jednoducha otazka :) ale myslim ze aj v mojom priklade je odpoved :)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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09