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

Příspěvky uživatele

subor ktoremu nastavujete hyperlink:
- sa nachadza v rovnakom adresaru .... tak link je viazany tam kde je subor
- sa nachadza inom adresare .... tak link nastavy napevno

... resp. to funguje defaultne tak ako to potrebujete

skusal som to u seba a umna sa to nezacyklilo
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).Visible = False
Application.EnableEvents = False
Application.DisplayAlerts = False

ThisWorkbook.Save

Application.DisplayAlerts = True
Application.EnableEvents = True
Sheets(1).Visible = True

Cancel = True
ThisWorkbook.Saved = True
End Sub

to su len premenne
z je premena ktora nesie dva udaje z(0) a z(1)

preto to tak je lebo z integeru robim string aby vedel system ze sa nejedna o ID sheetu ale o nazov sheetu preto to tak je

v cyklu by to vypadalo asi takto:
dim z(1) as string
dim u as integer

for u = 1 to 100
z(0) = u
z(1) = 2 + u

Sheets(z(1)).Cells(2, 2) = "=List1!R[" & z(1) & "]C[-1]
next
"

skuste toto:
dim z(1) as string
dim u as integer

u = 1
z(0) = u
z(1) = 2 + u

Sheets(z(1)).Cells(2, 2) = "=List1!R[" & z(1) & "]C[-1]"

netestoval som to ale keby ste davali do sheetu integer tak by to bralo ID sheetu a nie jeho nazov.

preto aj take riesenie som dal

hups spusti :) co uz betar jeden

oihladne riesenia tiez som povodne chcel dat jednoriadkove ale na znazornenie je to riesenie pre zacinajuceho uzivatela uplne idealne :) .... lahko sa cita

podmienka bola taka ze ked vlozim znak tak v predchadzajucej sa ma zrusis .... tj. ked ich vlozil naraz do 4roch nema co rusit :))) ... aspon takto alibiaticky sa vyhovaram ze je to spravne :)

nezacykli sa ... lebo sa nespusti event :)

to pojde asi len makrom napr. takto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C6" Then Range("D6,E6,F6") = ""
If Target.Address(0, 0) = "D6" Then Range("C6,E6,F6") = ""
If Target.Address(0, 0) = "E6" Then Range("D6,C6,F6") = ""
If Target.Address(0, 0) = "F6" Then Range("D6,E6,C6") = ""
End Sub

pozeral som funkciu:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

a pri save SaveAsUI = false
a pri saveAs SaveAsUI = true

niesom si uplne isty ale asi ide o to ci ukaze userform alebo nie ..... tj. pri saveas vzdy ukaze a pri save nie

Priklad:
=COUNTIFS(C2:C12;"Test")
Napoveda:
=COUNTIFS(Pole;Hladaj)

nieje to az taka tazka funkcia

pouzite conditional formating ... v sestine je to asi podminene formatovanie .... nachadza sa to v Home

navod:
https://support.office.com/en-au/article/Use-a-formula-to-apply-conditional-formatting-fed60dfa-1d3f-4e13-9ecb-f1951ff89d7f

skuste funkciu COUNTIFS

zamknute to bolo urcite ale ludia su ako kobylky jeden to zisti ako to odomknut a uz to posunie dalsiemu a dalsiemu

v userfotme si spravte textbox a potom len zobrazite userform a v cykle date menenie textboxu

TextBox1 "Probíhá... hotovo: " & x

ale radsej by som to zapisoval do StatusBar-u

viac navod:
https://msdn.microsoft.com/en-us/library/office/ff835916.aspx

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse