Příspěvky uživatele
< návrat zpět
A1 je buňka, A je sloupec, 1 je řádek
možné řešení v příloze
PavelJanec napsal/a:
...Porovnání bude podle názvu sloupců...
Znamená to tedy, že název sloupce bude v řádku 1?
Názvy sloupců jsou standardní podle typu odkazu (A1 vs R1C1) a jsou to buď písmena nebo čísla.
Interior.ColorIndexhttps://learn.microsoft.com/cs-cz/office/vba/api/excel.interior.colorindex
Samostatný list nelze přiložit jako přílohu emailu, stejně tak jako list neuložíte na úložiště.
Vložit lze soubor (sešit) obsahující pouze uvedený list.
.Attachments.Add (soubor)
Dalo.
Rows(i) nahradit uvedeným Range
...Kdykoliv vložím do složky soubor B, tak otevřít excel s makrem...
...porovná oba soubory A a B a ze souboru B odstraní všechny sloupce, které neobsahuje soubor A....
...moc bych poprosil o radu, jak ve dvou excelových souborech (oba mají pouze jeden sešit) odstranit nadbytečné sloupce...
2. v cyklu, podle počtu sloupců v souboru B, provést - zjistit (načíst) klíč prvního sloupce v souboru B a vyhledat stejný klíč v souboru A (pokud nebude klíč shodný sloupec ze souboru B smazat, jinak pokračovat načtením klíče následujícího sloupce);
3. uložit soubor B.
Jedno z možných řešení, ale nevýhoda při velkém počtu řádků bude pomalé.
Předpoklad, že sloupec A je seřazen.Sub ObarviRadek()
Dim barva As Long, barva1 As Long, barva2 As Long, i As Long
Dim hodnota As String
barva1 = vbYellow
barva2 = vbGreen
hodnota = Cells(1, 1)
barva = barva1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) <> hodnota Then
If barva = barva1 Then
barva = barva2
Else
barva = barva1
End If
End If
Rows(i).Interior.Color = barva
hodnota = Cells(i, 1)
Next i
End Sub
Přesunout Application.DisplayAlerts = False v proceduře Nacti_osobni_udaje_Click za dialog pro otevření souboru.
Tak já asi moc nepomohu, protože se mi při sebelepší snaze tento výtvor nedaří na MSO 2007 ani otevřít.
Kdyby byl soubor tak by se to možná dalo i posoudit lépe, kde je chyba.
Je to na tomto fóru docela standard, přikládat vzorové soubory.
pavelo napsal/a:
Hmm..., to je hezké, ale co s tím, jak to mám opravit, aby to bylo funkční?
Že by to šlo opravit zadáním správného názvu spouštěného makra?
Application.OnTime Now + TimeValue("00:00:04"), "HideLabel1"
Makro List1.HideLabel1 neexistuje
existuje pouze HideLabel1
Application.OnTime Now + TimeValue("00:00:04"), "moje_makro"
OnTime spustí definované makro, evidentně to makro v modulu není, když to hlásí.
Dopsat si moje_makro, které zabezpečí skrytí labelu
Standardní je vložit přílohu.
Rychlejší a elegantnější je řešení od Stalker
Private Function ListExistuje(ByVal strJmeno As String) As Boolean
On Error Resume Next
ListExistuje = Not Worksheets(strJmeno) Is Nothing
On Error GoTo 0
End Function
Sub JeList()
If ListExistuje("Test") Then
MsgBox "List existuje."
Else
MsgBox "List neexistuje."
End If
End Sub
Pak se inspirovat https://wall.cz/index.php?m=topic&id=56008
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