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

Příspěvky uživatele

Alebo jedným riadkom :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C6:AD36")) Is Nothing Then MsgBox "podminka splnena"
End Sub

Ak by bolo z nejakého dôvodu treba používať VBA tak :
Sub Tlačidlo1_Kliknúť()
Dim B As Excel.Button, s As String
ActiveSheet.Columns("H:J").Hidden = Not ActiveSheet.Columns("H:J").Hidden
If ActiveSheet.Columns("H:J").Hidden Then s = "Odkryť" Else s = "Skryť"
Set B = ActiveSheet.Buttons(Application.Caller)
ActiveSheet.Buttons(B.Name).Caption = s
End Sub
potrebný je iba jeden riadok, ostatné sú tam pre zmenu popisu tlačítka
ActiveSheet.Columns("H:J").Hidden = Not ActiveSheet.Columns("H:J").Hidden

Nič nieje schované. Je to vložené do "Názvov".
Menu Vzorce - Správca názvov - tam vidíš všetky vzorce a "podvzorce". "Podvzorce" sú využité kvôli zjednodušeniu pochopenia hlavných vzorcov. Proste klasika...

Čistý pokus :
Skús otvoriť tento súbor. Je v ňom makro, ktoré pri otvorení označí A1:A3, skopíruje do B1:B3, odošle Escape. Aj po tomto ti to stále označuje viac buniek ?

Private Sub Workbook_Open()
Range("A1:A3").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
SendKeys (ESC)
End Sub

Mne sa Excel 2013 otvára tak ako potrebuješ - na posledom uloženom aktívnom liste. Čiže niečo bude u teba inak, nejedná sa o "vylepšenie". Prezrel som snáď všetko nastavenie ale nikde nič nevidím. Skús posťahovať ešte všetky aktualizácie na Office. Na nete aj tu na fóre som zatiaľ narazil len na riešenie pomocou VBA - to je ale blbosť pre všeobecné použitie.

Pomocou pomocného stĺpca, alebo potom pomocou makra.

EDIT: Sorry, kým som to ja napísal .... už je tu fundovaná odpoveď

Prvé tlačítko ti vytvorí Test tak, že sú z každého okruhu 2 náhodné po sebe. Ak majú byť premiešané aj okruhy, použi druhé tlačítko.

Myslíš takto ?

Ak som správne pochopil tie nedobre vysvetlené podmienky tak napr. takto.

Ahoj.
A čo poviete na toto ? Otestujte to niekto a dajte vedieť. Ktoré presne bunky sa to majú zrátať do "Stav hodin za kalendářní rok:" ? Zatiaľ som tam dal stĺpec "AI".

A ten list "Seznam" by som dal preč, je tam zbytočný, presunul som to do Setup.

Určite mi dajte vedieť. Pekný deň.

veny: treba ešte niečo niekde zmeniť, zapnúť, či nastaviť, aby mi to MS Query fachalo ?
Pretože nech zmením/doplním čokoľvek v ktorejkoľvek tabuľke či liste, nič sa neudeje.

Tu máš riešenie podľa "lubo" s tabuľkou, takisto nebude fungovať uberanie riadkov. To by bolo treba doriešiť asi cez makro. Vzorce ak sa dá bez VLOOKUP, prípadne upraviť na jednoduchšiu notáciu...

Myslíš takto ?
Nechce sa mi ale dorábať ošetrenie vymazanie riadku a prípadne posunutie výsledkov...

No samozrejme ! Tu je ten pes, tie ich blbé preklady. By som rád spoznal toho inteligenta čo vymyslel, že nebudú funkcie a formáty rovnako pomenované.
Nieje problém len medzi jazykovými verziami Excelu čo sa týka vzorcov, ale ešte aj medzi makrom a vzorcom tej istej jazyk. verzie. V SK Excely napr. makro Range.Formula="=IF(A,B)" vs vzorec =IF(A;B)
Ak by sa také niečo zaviedlo aj v C++ či Delphi, to by bola "paráda" ...

Dlhšie mi trvalo kým som pochopil čo chceš a študoval pôvodný kód, ako som to potom upravoval :)
Mrkni či si chcel toto.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje