• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Dobrý den. Tady záleží opravdu jen na identifikaci směny. Pokud to je v tomto případě číslo 7,5 , tak by zjištění počtu směn v oblasti A1:A31 mohlo vypadat takto:

=COUNTIF(A1:A31;7,5)

Zkuste se podívat na tento článek http://wall.cz/zobrazeni-textu-a-hodnot-v-jedne-bunce.a147.html. Zde najdete řešení.

Na Internetu koluje několik řešení. Zkuste například tento odkaz http://www.path.cz/forum/viewtopic.php?f=21&t=33

Jde pomocí makra na konkrétním listě. Přiřadil bych to na událost SelectionChange.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$23"
With ActiveSheet.PageSetup
.LeftHeader = "&A"
.CenterHeader = Range("A1")
.RightHeader = "&F"
End With
End Sub

Ano, je to možné. Vložte si do listu textové pole. Klikněte myší na textové pole a do příkazové řádku vložte odkaz na buňku z jiného listu.
Například:
=List1!B2
V textovém poli se zobrazí obsah buňky B2 z listu List1.

Dobrý den. Obraťte se na správce PC.

Popište mi do mailu přesně jak postupujete a co děláte.

Makro s importem dat z www můžete vypadat například takto:


With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.pcexpert.cz/mini-notebooky/?listType=table", Destination:=Range("A1"))
.Name = "?listType=table"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

Jedná se o nabídku notebooku z e-shopu. Při importu jsem spustil záznam makra. Zkuste si makro spustit. Pro své potřeby můžete udělat něco podobného.

V budoucnu někdy ano. V SL jsem provedl už tolik změn, že se to už těžko popisuje.

Zkuste si ve zdrojových datech (v seznamu) vytvořit nový sloupec, kde by jste rozlišil ty produktové skupiny, které chcete sčítat (subtotal). Pak si vytvořte novou KT a nový sloupec by měl docílit to co potřebujete.

Kontingenční tabulky bych se nebál. Pole pro filtrování lze pohodlně přetahovat podle toho jaký chci pohled na data. Je možné udělat druhou kontingenční tabulku na jiný list, kde budete mít sestavený jiný pohled na data.

Soubor je k používání tak jak je.

Co třeba takhle?
Dim R as Integer
R=8
Range("A" & R).End(xlDown).Clear

K bodu 1.
Použijte funkci KDYŽ:

=KDYŽ(podmínka; podmínka je splněna; podmínka není splněna)
Příklad:
=KDYŽ(A1=10; A1; "")
Pokud je v buňce A1 číslo 10, tak bude zobrazena buňka A1. Pokud není v buňce A1 číslo 10, tak buňka, ve které je vzorec bude prázdná.

K bodu 2:
Můžete použít makro, které hlídá buňku A1 (její změny). Pokud obsah buňky A1 splňuje podmínku, tak se spustí makro, které potřebujete. Toto makro musíte vložit do listu v editoru maker.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim VRange As Range
Dim CisloRadku As Integer
Set VRange = Range("A1") 'hlídaná buňka
If Union(ActiveCell, VRange).Address = VRange.Address Then
if VRange = 10 Then Call vase_makro 'zavolá makro vase_makro
End If
End Sub

V boxu mám upravený modul. Právě kvůli duplicitám jsem si ho upravil.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse