| Autor | Zpráva | ||
|---|---|---|---|
| Michales Profil |
#1 · Zasláno: 10. 4. 2016, 11:51:21
Ahoj všem.
Děláme s dcerou úkol do školy a zasekly jsme se na automatickém řazení tabulky při zápisu do ní. Veškeré zápisy jsme vyřešili a zdá se že fungují, nyní bychom potřebovali aby se po zápisu do tabulky sama seřadila podle počtu bodů. Můžete nám zde někdo pomoci? Díky předem. Tabulka: drive.google.com/file/d/0B0P0rFdHdMc_akpGdzhuYk1xMjA/view?usp=sharing |
||
| Mistr Profil |
#2 · Zasláno: 10. 4. 2016, 16:47:11
Michales:
Je možné použít makra? |
||
| Michales Profil |
#3 · Zasláno: 10. 4. 2016, 16:52:30
Mistr:
Ano lze |
||
| Mistr Profil |
#4 · Zasláno: 10. 4. 2016, 17:02:25
Michales:
Pomůže toťto? |
||
| Michales Profil |
#5 · Zasláno: 10. 4. 2016, 18:08:47
Mistr:
Použil jsem toto makro: Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Worksheets(1).Range("C13:G40"), Target) Is Nothing) Then
DoSort
End If
If Not (Application.Intersect(Worksheets(1).Range("O13:S40"), Target) Is Nothing) Then
DoSorts
End If
End Sub
Private Sub DoSort()
Worksheets(1).Range("A2:K9").Sort Key1:=Worksheets(1).Range("K2"), Order1:=xlDescending, _
Key2:=Worksheets(1).Range("J2"), Order2:=xlDescending, Header:=xlYes
End Sub
Private Sub DoSorts()
Worksheets(1).Range("M2:W9").Sort Key1:=Worksheets(1).Range("W2"), Order1:=xlDescending, _
Key2:=Worksheets(1).Range("V2"), Order2:=xlDescending, Header:=xlYes
End Sub |
||
| Mistr Profil |
#6 · Zasláno: 10. 4. 2016, 20:05:55
Michales:
Gratuluji. |
||
|
Časová prodleva: 10 let
|
|||
0