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@
kajisko napsal/a:
Zdravím... dá sa to urobit jednoducho cez $ ...
Ak chceš zafixovať celú bunku urobi to takto =$B$1
Ak chceš aby bolo zafixovaný len stĺpec a číslo nech je pohyblivé napíš takto =$B1.
Ak chceš aby bolo zafixované len číslo napís takto =B$1.
Hádam ti pomohlo :D
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@
Zajímavý že smyčku použít umíš, ale přesto ji nepoužiješ :-), respektive použiješ, ale jen na hledání prvního volného řádku přitom stačí použít smyčku i pro zápis dat a rozšířit ji o podmínku.
M@
Taky jsem v příloze zkusil nějaké harakiri :-).
Na neprůstřelnost netestováno :-)
M@
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.