< návrat zpět

MS Excel

Téma: Zápis v tabulce rss

Zaslal/a frenk67 13.5.2011 1:28

Někdy se mi stane, že ve velké tabulce napíši údaj do nesprávné buňky - prostě se netrefím do správného sloupce či řádku a později tuto chybu dlouho hledám. Chtěl bych se zeptat, jestli by šlo vyřešit toto : pokud kliknu na libovolnou buňku, tak by se mi zobrazil kříž souvislý s řádkem a sloupcem v celém listu - pokusil jsem se to demonstrovat v příloze. Toto řešení jsem už kdysi někde viděl, ale nemohu ho najít a sám jsem na toto makro nepřišel. Předem děkuji za postrčení.

Příloha: 7z4969_sesit1.7z (4kB, staženo 15x)
Zaslat odpověď >
zdena(13.5.2011 8:49)#004972
zdena
Zdravím.
Alt+F11 a zvolíš list, zde zkopíruj
Private Sub Worksheet_SelectionChange(ByVal Tg As Range)
Range(Cells(1, 1), Cells(20, 20)).Interior.ColorIndex = xlNone
If Tg.Row < 20 And Tg.Column < 20 Then
Range(Cells(Tg.Row, 1), Cells(Tg.Row, Tg.Column)).Interior.ColorIndex = 34
Range(Cells(1, Tg.Column), Cells(Tg.Row, Tg.Column)).Interior.ColorIndex = 34
Cells(Tg.Row, Tg.Column).Interior.ColorIndex = 6
'varianta 2
'Range(Cells(Tg.Row, 1), Cells(Tg.Row, 20)).Interior.ColorIndex = 34
'Range(Cells(1, Tg.Column), Cells(20, Tg.Column)).Interior.ColorIndex = 34
'Cells(Tg.Row, Tg.Column).Interior.ColorIndex = 6
End If
End Sub
S pozdravem 2citovat
host(13.5.2011 11:35)#004977
avatar
Pr.Ak je potrebné odlíšiť farby
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password
Cells.Interior.ColorIndex = 0
Columns(Target.Column).Interior.ColorIndex = 3
Rows(Target.Row).Interior.ColorIndex = 19
ActiveSheet.Protect Password, Contents:=True
Application.ScreenUpdating = True
End Subcitovat
frenk67(14.5.2011 0:09)#004987
avatar
Díky - za tak rychlé reakce - to je ono. 2citovat

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