< návrat zpět

MS Excel


Téma: makrem vyhledat a označit určitou buňku rss

Zaslal/a 25.8.2016 10:59

Prosím pomoc = makro. Potřebuji makrem vyhledat a označit určitou buňku(v buňce je číslo) v List2, ve sloupci D, v určité označené oblasti(tuto oblast potom různě měním a to jen ve sloupci D). A tato vyhledaná buňka má stejnou hodnotu,jako je aktivní buňka (jedna) v List1 ve sloupci D (označení této jedné buňky také měním jen ve sloupci D). C@uki a dík.

Zaslat odpověď >

#032433
elninoslov
Netuším, či chápem správne. Tento kód do listu "Hárok1"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then
Dim R As Long
On Error Resume Next
R = WorksheetFunction.Match(ActiveCell, Worksheets("Hárok2").Range("D1:D10"), 0)
If Err = 0 Then Cells(2, 6) = R Else Cells(2, 6) = CVErr(xlErrNA)
End If
End Sub

V liste "Hárok2" sú v D1:D10 hodnoty, ktoré prehľadáva. Táto adresa sa dá zmeniť v makre alebo zameniť za definovaný názov. podľa toho ako ju chcete meniť.

EDIT: Alebo označiť bunku, a nie len nájsť bunku ? Označiť bunku v neaktívnom liste snáď ani nejde. Neviem, potom asi takto.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then
Dim R As Long
On Error Resume Next
R = WorksheetFunction.Match(ActiveCell, Worksheets("Hárok2").Range("D1:D10"), 0)
Application.ScreenUpdating = False
If Err = 0 Then Application.Goto Worksheets("Hárok2").Range("D1:D10").Cells(R) Else Application.Goto Worksheets("Hárok2").Range("A1")
Application.Goto Target
Application.ScreenUpdating = True
End If
End Sub
citovat
#032436
avatar
takto: na Listu1 mám označenou buňku (ve sl.D) a v ní je číslo.Pozice této buňky se mění jen na různých řádcích (v tomto sl.D). Potřebuji najít hodnotu této buňky z Listu1 v Listu2 ve sloupci D jen v předem označené oblasti.Označení této oblasti není pevné a mění se také.Makro by mělo tuto označenou oblast(část sl.D) najít a prohledat samo a označit buňku se stejnou hodnotou(jako je číslo v List1).citovat
#032437
elninoslov
Slovom "označiť" myslíte ľavý klik myši ? Alebo slovom "označiť" myslíte vyfarbiť a pod. To je zásadný rozdiel v skladbe makra. To sa sa prehľadávaná oblasť mení, je najmenší problém, to sa dá vyriešiť jednoducho Definovaným názvom. Ale od významu slova "označiť" záleží či sa použije funkcia, alebo makro naviazané na udalosť listu (klik).citovat
#032440
avatar
Dídy moc za Vaši rychlou reakci a doplním to, že slovem "označit" myslím levý klik myší.citovat

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje