MS Excel

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ěď >

Palooo(10.4.2015 14:07)#024477

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

AL(10.4.2015 14:40)#024478

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

elninoslov(10.4.2015 15:47)#024479

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

Palooo(10.4.2015 16:30)#024480

popravde necakal som ze to bude az taka jednoducha otazka :) ale myslim ze aj v mojom priklade je odpoved :)citovat

Téma: Podmienka v makre

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje