Příspěvky uživatele
< návrat zpět
Návod:
1.) Využij událost listu "Workbook_SheetFollowHyperlink".
2.) Název dokumentu bude "Target.Name".
3.) Časovou známku získáš přes funkci "Now", datum přes "Date".
4.) Ověření existence souboru přes funkci "Dir". K nalezení posledního obsazeného řádku lze využít např. "Range("B1000000").End(xlUp).Row". Pro vytváření nového souboru si do oné složky udělej šablonu dle tvého vzoru. V případě, že ještě neexistuje soubor s aktuálním datem, tak jej vytvoř ze šablony.
P.
Pokud by jsi se smířil s tím, že se do buňky nebude vypisovat název výrobku (ale bude třeba ve vedlejší buňce), pak lze využít klasické podmíněné formátování - datový pruh.
Za předpokladu že text musí být "součástí" data baru, by šlo využít např. pruhového grafu, který by se vhodně naformátoval.
Také je možné využít zmíněný datový pruh, a na něj vložit průhledné textové pole, jehož hodnota může být navázána na hodnotu nějaké buňky.
P.
Funkce SVYHLEDAT.
P.
Podmíněné formátování...
P.
Můj pokus ;-)...
P.
Př.:Private Sub Worksheet_Change(ByVal Target As Range)
Dim cesta_k_souboru As String
Dim nazev_souboru As String
Dim sloupec As Byte
Dim ws As Worksheet
Dim text_k_zapisu As String
If ActiveSheet.Range("A2").Value = 3 Then
Set ws = ActiveWorkbook.ActiveSheet
cesta_k_souboru = "C:\txtfiles\"
nazev_souboru = "commandfile" & ".txt"
text_k_zapisu = ""
For sloupec = 3 To 14
text_k_zapisu = text_k_zapisu & Replace(ActiveSheet.Cells(2, sloupec).Value, ",", ".", 1)
If sloupec <> 14 Then
text_k_zapisu = text_k_zapisu & ","
End If
Next sloupec
Open cesta_k_souboru & nazev_souboru For Output As #1
Print #1, text_k_zapisu
Close #1
End If
End Sub
Filtruje to přesně tak, jak má, tedy jak je naprogramován filtr v Excelu ;-).
"Překonat" by se to dalo např. tím, že nebudeš mít sloučené buňky, ale na každém řádku bude název přípravku. Opakujícím se názvům můžeš klidně nastavit barvu pozadí buňky...
P.
Viz příloha:
Je to "hovězina" :-), protože když nepovolí VBA, tak VBA prostě nebude fungovat.
Ale dalo by se dosáhnout stejného cíle i jinými způsoby. Např. to udělat tak, aby byl sešit při vypnutých makrech nepoužitelný - např. skrytí listů ("xlVeryHidden" funguje efektivně).
P.
Vložte prosím přílohu.
P.
To by měla vyřešit funkce COUNTIFS.
P.
Šlo by to např. tak, že na prvním listu se vytvoří událost SelectionChange, která vždy při změně výběru přepíše na druhém listu požadovanou buňku.
P.
Př.:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("List2").Range("A1").Value = ActiveCell.Value
End Sub
Vlož přílohu.
P.
Příloha chybí...
P.
Stačí vložit přílohu s ukázkou, a my Vám ten kód vytvoříme ;-).
P.
Bez přílohy ani ránu...
P.
Jak už psal kolega, ke zvýraznění buňky lze použít podmíněné formátování, k určení chyby pak vzorec. Bude stačit obalit vyhledávací funkci SVYHLEDAT funkcí IFERROR.
P.
Např.:
=IFERROR(SVYHLEDAT(A4;K:K;1;NEPRAVDA);"CHYBA")
Uživatelské menu
\nMenu
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.
RSS nejnovější články