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

Příspěvky uživatele

Dokázal bych si to představit v Excelu, pomocí makra, ale obávám se, že Word tohle nedá, leda taky pomocí makra.

M@

Zkusil jsem verzi od Elnina a když dáš v editoru maker Tools -> References, tak asi tak na 6. pozici je reference na ATLEntityPicker 1.0 type Library, označená nejspíš jako MISSING (minimálně u mě), tak pokud na ni tu referenci zrušíš, tak by to mělo jít.

PS: Co se Comboboxu týče, tak by stálo za to změnit jeho styl na dropdownlist, čímž se vyhnete neošetřené chybě. I zde pokud začnete psát tak combo skočí na první shodu.

M@

No nevím suma může být přeci i přes prázdné buňky, tak si lze udělat rezervu co do počtu sloupců, tak aby nebylo třeba řešit který je poslední, ale pokud je to třeba tak viz. příloha je VBA ukázka.

M@

Nějak postrádám informaci jak se vlastně ten soubor jmenuje, jestli má v názvu podtržítka, nebo ne.

Úplně nejjednodušší bude zapnout záznamník makra, provést ono hledání přes Ctrl + F. Stopnout záznamník, otevřít editor maker a pak v zaznamenaném makru vyměnit hledanou textovou hodnotu za odkaz na konkrétní buňku. Pak už stačí přidat tlačítko někam k té buňce a dát mu odkaz na toto makro.
Asi není třeba cokoliv vymýšlet.

M@

U Office 2013, vybrat KT graf, v ribbonu vybrat záložku Analyzovat a v ní je volba "Vložit časovou osu". Vybrat Datum a pak už se zobrazí okno s časovou osou, kde vpravo nahoře pod filtrem , lze přepnout Roky / Čtvrtletí / Měsíce / Dny.

Ale nevím jestli je to to co myslíš.

Pak je taky možnost vybrat KT tabulku, vybrat sloupec s datem a opět záložka analýza, měla by se objevit možnost Seskupit výběr, kde by mělo být na výběr Sekundy / Minuty / Hodiny / Dny / Měsíce / Čtvrtletí / Roky.

M@

Jakým způsobem onen import funguje?
MS QUERY
POWER QUERY
či otevření zdrojového souboru na pozadí?

tipuji že někde v připojovacím řetězci by mohl být parametr Readonly. Lépe řečeno spíš tam asi někde chybí.

M@

Sice neznám důvod tolika položek, ale budiž ...

příklad napoví
Public Sub POLOZKA()
MsgBox "NECO"
End Sub

Public Sub VOLEJ()
Dim promenna As String
promenna = "POLOZKA"

Application.Run (promenna)
End Sub

M@

Asi bych to sám nepoužil, ale zkusil jsem v příloze ukázku mazání, sice bez checkboxů, ale alespoň trochu vizuálně.
Byť nás s tím xlnc pošle za dveře :-)

Nicméně sám bych to nepoužil, protože takovéto akce přes VBA se nedají vrátit zpět.

M@

@Kajisko: Vřele doporučuji si to tvým způsobem vyzkoušet podle zadání, možná budeš výsledkem překvapen :-).

M@

Třeba =PRŮMĚR(NEPŘÍMÝ.ODKAZ("B1:F1"))

@marjankaj: Třeba jde o databázi nějakých položek, ke kterým jsou ve složce uloženy obrázky pojmenované nějakým klíčem a přes VBA chce autor otevřít obrázek (výkres) dané položky, což mi nepřijde "extravagantné" :-).
Ale to už ví autor nejlépe sám co je cílem

DATA -> Ověření Dat -> Seznam
zadat zdroj:
=NEPŘÍMÝ.ODKAZ("Tabulka1["&E13&"]")

M@

@ eLCHa: Člověk se pořád dovídá něco nového :-)

Public Sub NAJDI(text, pozice)
slozka = ThisWorkbook.Path & "\"
soubor = Dir(ThisWorkbook.Path & "\" & String$(pozice - 1, "?") & text & "*.tif")

If soubor <> "" Then
ThisWorkbook.FollowHyperlink slozka & soubor
Else
MsgBox "Nenalezeno"
End If
End Sub

M@

Např.


Public Sub NAJDI(text, pozice)

Dim soubor As Variant
Dim slozka As String

slozka = ThisWorkbook.Path & "\"
soubor = Dir(slozka)
Do While soubor <> ""
If Mid(soubor, pozice, Len(text)) = text Then Exit Do
soubor = Dir
Loop

If soubor <> "" Then
ThisWorkbook.FollowHyperlink slozka & soubor
Else
MsgBox "Nenalezeno"
End If

End Sub

a to pak zavolat s volitelnými parametry ...
Public Sub VOLEJ()
NAJDI "6", 5
End Sub


M@

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje