Příspěvky uživatele
< návrat zpět
Nemáš zač, tá Tvoja tabuľka sa mi celkom páčila, tak len malý revanš, som rád, že si s tým riešením spokojný. Inak máte dobré ceny za obedy :)
Však to tam máš napísané:
'Name of the zip file that you want to unzip (.zip or .7z files)
FileNameZip = "I:\práce\VBA\SC_WH_supp_dep_p_02-dec-12_02-dec-12.zrp.Z"
Čiže, pokiaľ chceš názov súboru meniť, tak do premennej FileNameZip nebudeš ukladať reťazec "I:\práce\VBA\SC_WH_supp_dep_p_02-dec-12_02-dec-12.zrp.Z", ale budeš do nej načítať názov súboru vrátane fullpath, ktorý máš, ako hovoríš, uložený v nejakom excelovskom súbore...
No, mám nejaký nápad, ale nie je to úplne tip-top.
V prvom rade, na to aby aspon tak-nejak fungovalo moje riešenie, tak do pomocnej premennej by som uložil ten dátum z bunky D14 (31/12/2012).
Čiže, vytvorím pomocou Správcov Názvov premennú DatumStart s odkazom na =DATUM(2012;12;31).
Do D14 potom vzorec =DatumStart+SLOUPEC()-SLOUPEC($D$14)+(ŘÁDEK()-ŘÁDEK($D$14))*7
Ten rozkopírovať do zelenej oblasti (možno i do stĺpcov I a J).
Samotný kód:
Do kódového okna modulu:
Option Explicit
Public LastSelection As Range
Public LastFormula As String
Do kódového okna ThisWorkbook:
Option Explicit
Private Sub Workbook_Open()
Set LastSelection = Sheets("Leden").Range("D14")
LastFormula = LastSelection.Formula
End Sub
Do kódového okna List1(Leden):
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If LastSelection.Formula <> LastFormula Then
LastSelection.Formula = LastFormula
End If
Set LastSelection = Selection
LastFormula = LastSelection.Formula
End Sub
Budeš si to musieť spojiť s Tvojou procedúrou, ktorú máš napísanú pre udalosť Worksheet_SelectionChange, ale to by nemal byť problém, stačí asi tie dve časti hodiť za seba do jednej Sub.
Zamkneš list, povolíš zmeny v zelenej oblasti. Pokiaľ sa užívateľ pokúsi zmeniť bunku v zelenej oblasti, po odskoku (napr. entrom), sa do buniek zapíšu pôvodné vzorce.
Nie je to nič moc, ale ako inšpirácia možno pomôže..
Nakopíruj do kódového okna ThisWorkbook:
Option Explicit
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Private Sub Workbook_Open()
Dim x As Long
Dim y As Long
Dim z As Long
Dim sh
z = ActiveSheet.Index
x = GetSystemMetrics(SM_CXSCREEN)
y = GetSystemMetrics(SM_CYSCREEN)
If x = 1024 And y = 768 Then
For Each sh In ThisWorkbook.Sheets
sh.Activate
ActiveWindow.Zoom = 100
Next
End If
If x = 1280 And y = 1024 Then
For Each sh In ThisWorkbook.Sheets
sh.Activate
ActiveWindow.Zoom = 125
Next
End If
Sheets(z).Activate
End Sub
Niečo som stvoril, ale kolegovia upozorňovali na úskalia správneho vyplňovania vstupov, tak na to pozor...
pozerám do 2003 a je fakt, že nastavenie zobrazovania prázdnych buniek som v tejto verzii nenašiel, asi to tam nie je možné nastaviť (určite si nepamätám ako sa to dá prípadne nastaviť).
Vysvetlím teda ešte raz aspoň to linkovanie popiskov do grafu (to funguje i v 2003, je na Tebe, či to budeš chcieť podstúpiť u 120 hodnôt).
Klikneš si na popisok (musíš dvakrát za sebou, ale nie dvojklikom, prvý klik Ti vyberie všetky popisky danej datovej rady, z ktorých druhým klikom vyberieš ten, ktorý budeš linkovať).
Potom myškou klikneš do riadku vzorcov a zapíšeš znak rovná sa (nemačkáš enter)
Klikneš myšou na bunku, ktorej obsah cheš zlinkovať s popiskom (jej adresa sa objaví za znamienkom rovné v riadku vzorcov).
Zmačkneš enter, v ten moment sa popisok už aktualizuje v grafe.
Postup opakuješ u každej zo 120 hodnôt v grafe.
nedef funguje, aspoň na mojich 2007, máš nastavené zobrazovať prázdne bunky v grafe ako medzery?
Riešenie od eLCHa funguje, mám tu jedno alternatívne.
Pokiaľ chceš v popiskoch vidieť jednotlivé hodnoty, tak stačí vybrať konkrétny popisok a nalinkovať ho k nejakej bunke. Príklad:
V rade(stĺpci) A máš u prvej sady popisok F1.
Klikni si na daný popisok a do riadku vzorcov zapíš znak: =
klikni do bunky B2, na uvedený popisok tak dostaneš hodnotu 1.
Takto postupne popisky nalinkuješ k jednotlivým bunkám v zdrojovej tabuľke, tam, kde budeš mať v zdrojovej tabuľke prázdny znak, či medzeru, bude popisok v grafe "neviditeľný". To linkovanie chvíľu trvá, ale potom to už funguje spoľahlivo.
to nestojí za reč, bola to hračka :)
Podľa môjho názoru uvedenú hlášku ani jedna z uvedených funkcií nie je pôvodcom uvedenej hlášky. Je ale možné, že kód sa odvoláva na niečo, čo v danom PC nie je k dispozícii. Napr. na nejakú inú procedúru, ktorú máš niekde u seba (napr. v osobnom zošite makier) ale nie je v tom druhom PC.
No, keďže som to medzitým zmatlal tiež, tak posielam ako možné riešenie. Môžeš si skontrolovať voči Stalkerovi, v mojom som sa vyhol použitiu maticových vzorcov. Akurát si musíš dávať pozor, aby farby šli za sebou a neboli prehádzané
pokiaľ Ti nestačí podeliť hmotnosti postupne 1/4, 1/2, 3/4, tak by to asi chcelo vidieť vzorový súbor s vyznačením, čo vlastne chceš dosiahnuť....
asi by to šlo nejak skrátiť, ale maticový vzorec funguje napr. v tvare:
=IF(ISNA(MATCH(B1&C1; oktober!$B$1:$B$100&oktober!$C$1:$C$100;0));"";INDEX(oktober!$E$1:$E$100; MATCH(B1&C1; oktober!$B$1:$B$100&oktober!$C$1:$C$100;0)))
if = když
isna=je.nedef
match=pozvyhledat
index=index
Marjan, máš pravdu, u násobenia v prípade skalárneho súčinu je možné -- vypustiť. Ja na to pravidelne zabúdam a -- tam dávam v tomto prípade zbytočne.
podmienené formátovanie???
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články