If Err ...
A ako to rieši to, že mu to uloží bez makier ? Žiadnu chybu nedostane ak bude v názve na konci xlsx alebo xls. Len nebude súbor bez makier funkčný, keďže predpokladám, že xlsm je vyžadované práve kvôli nejakej makro-funkcionalite.
To čo píše xlnc som ešte neskúšal.
Základom je, tú bunku s prvou vlajkou v E2, mať vloženú ako Prepojený obrázok. Teda si označíte bunku B2 - Ctrl C - označíte E2 - pravý klik - Prilepiť špeciálne - Prepojený obrázok. A vtedy je možné "link" na tento obrázok meniť v riadku vzorcov. Tam sa zmení na ten Váš počítaný Definovaný názov.
Nieje zač.
Čo s tým vyvádzate ? Veď máte v MATCH/POZVYHLEDAT zase ako parameter číslo 2.
Keď robíte definovaný názov Vlajky, stojte na bunke E2. Keď to budete mať, označte vlajku v bunke E2 a zmente vzorec v poli vzorcov na "=Vlajky".
MATCH = POZVYHLEDAT
A ešte chyba bude asi v tom "+" vo vzorci.
A vzorec v poli "Odkaz na:" musí začínať znakom "=".
Čo znamená "nejde mi to. Pořád mi to hlásí chybu" ? Text chyby ? Príloha ? Dávate ako oddeľovače čiarky "," alebo bodkočiarky ";" ? Nechce sa mi to hľadať, ale sem na fórum som aj ja dával určite konkrétne tento prípad s vlajkami...
Ja som normálne vo VBA (E2016 Pro) klikol pravým na ToolBox - Additional Controls - zaškrtol Microsoft Web Browser - OK. A vložil som prvok WebBrowser do formu. Potom mi čudlík načíta animované GIF normálne.
Private Sub CommandButton1_Click()
WebBrowser1.Navigate "Z:\pokus.gif"
End Sub
Šmarjá, veď sem dajte prílohu, aby sa vedelo, ako sa tie Vaše listy volajú, alebo si to List2 zmente na Code názov Vašeho listu. V editore VBA keď kliknete na list, tak je to v okne Properties položka "Name". Alebo to List2... nahraďte za Worksheets("názov listu na jeho ušku")...
Tak príklad...
Ale s kopírovaním listu do nového zošitu už bolo popísaných veľa problémov. Nevysvetliteľných chovaní. Treba s tým počítať. Aj tu sme už viedli siahodlhú debatu na túto tému, ale nechce sa mi to hľadať...
Inak aj bunka Vám to zistí:
=LEFT(CELL("filename";$A$1);2)
=ZLEVA(POLÍČKO("filename";$A$1);2)
Ak by to nechcelo prepočítavať, tak to obalte do IF/KDYŽ napr:
=IF(NOW()<>0;LEFT(CELL("filename";$A$1);2))
=KDYŽ(NYNÍ()<>0;ZLEVA(POLÍČKO("filename";$A$1);2))
Iba typ: Máte v nastavení to zaškrtávacie políčko ? Rovnako mrknite na syncho s internetovým časom. A pozrite v services.msc či máte spustenú službu "Windows Time".
Predpoklad vrátenia správneho písmena disku je:
-uložený súbor (nie iba nový a neuložený)
-neotvárať z archívu (ten sa rozbalí do Tempu - predvolene C:)
Tu máte už uvedené príklady v súbore, a mne fungujú.
Nie. Použite teda spojenie pomocou pomocného skrytého stĺpca. Vymyslite si podobne koncipovaný vzorec, ktorý bude vždy pridávať daný riadok k už spojeným, a Vy budete čítať iba poslednú hodnotu, ktorej pozíciu vhodne umiestnite.
Vygooglené-upravené
Ďalší príklad:
Function SPOJTEXT(rng As Range) As String
Dim ADR As String
ADR = rng.Columns(1).Address
SPOJTEXT = Replace(Replace(Join(Evaluate("=TRANSPOSE(IF(" & ADR & "<>""""," & ADR & ",""""))"), "•°"), "°•", vbNullString), "•°", ",")
If Right$(SPOJTEXT, 1) = "," Then SPOJTEXT = Left$(SPOJTEXT, Len(SPOJTEXT) - 1)
End Function
Napríklad:
Sub pokus()
Dim Subor As String, Bodka As Long
Subor = "Z:\Pokus súbor.xls"
Bodka = InStrRev(Subor, ".")
If Bodka > 0 Then
If LCase(Right$(Subor, Len(Subor) - Bodka)) <> "xlsm" Then Subor = Left$(Subor, Bodka) & "xlsm"
Else
Subor = Subor & ".xlsm"
End If
ThisWorkbook.SaveAs Filename:=Subor, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.