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

Příspěvky uživatele

neviem presne v akom Formate maju byt tie produkty tak som to hodil len poriadkoch

spusta sa tro cez makro: aXMLread

ano presne toto som potreboval :)

Dakujem

Ahojte,

vedel by niekto spravit Combobox tak aby to Bola len ikonka "smile" a ked nanu klikne tak sa otvori zoznam ako v comboboxe. Śamozrejme pri kliknuti si ikonka "smile" zachova hodnotu.

jednoducho potrebujem Combobox s ikonou :)

napr. takto:
msgbox "oto je hodnota z A1:" & sheets("harok1").range("A1")

a UserForm a MsgBox su dve rozdielne veci

a nieje to tak? :)

neviem presne naco to potrebujete

ale napr. takto:
Sub test()
Set aTable = Selection
aName = aTable.Rows(aTable.Rows.Count).Columns(1)
For x = aTable.Rows(aTable.Rows.Count).Row To aTable.Rows(1).Row Step -1
If aName <> aTable.Rows(x - aTable.Rows(1).Row).Columns(1) Then Rows(x).Insert xlDown
aName = aTable.Rows(x - aTable.Rows(1).Row).Columns(1)
Next
End Sub

musite mat selectnutu tabulku a konroluje to duplicitu len v prvom stlpci

tak urobte si access databazu kde budu mat uzivatelia len pristup na read only a rieste to SQL-kom

to je asi to najtahsie riesenie :)

su dve moznosti:
1. prepisu excel na zip a tam z pola ptotection sheet vymazu cele heslo :))) a ide to hned otvorit
2. z internetu si stiahnu makro ma asi 15riadkou a to im zisti heslo

zaheslovanie excel suboru je fakt nanic :) bezny uzivatel to vie dat dole ..... idealne je to zazipovat s heslom .... to uz pri kvalitnejsich heslach by trvalo dlhsie

napr. slo by to makrom:

alebo este pomocou makra si spravit vlasnu funkciu:
Function aSplit(ByVal aRange As Range, ByVal aValue As Integer) As String
aSplit = Split(aRange, ",")(aValue)
End Function


a potom len prikazom:
=aSplit(A7;1)
dostanete udaj z bunky

skuste to takto zapisat:
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Sheets(1).Visible = True
ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).Visible = False
End Sub

dnes to nejak nemysli :)))

makro by fungovalo takto:
- sa nachadza v rovnakom adresaru: test.xlsx
For x = 1 To 100
ActiveSheet.Hyperlinks.Add Cells(x, 1), "test.xlsx", , , "TEST Name"
Next

- sa nachadza inom adresare: c:\test.xlsx
For x = 1 To 100
ActiveSheet.Hyperlinks.Add Cells(x, 1), "c:\test.xlsx", , , "TEST Name"
Next

tu je presnejsi navod:
https://msdn.microsoft.com/en-us/library/office/ff822490.aspx

uz som to aj ja zacyklil :)

skuste to takto zapisat:
Option Explicit

Private aCheck As Boolean

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If aCheck = False Then
aCheck = True
Sheets(1).Visible = False
ThisWorkbook.Save
Sheets(1).Visible = True

Cancel = True
ThisWorkbook.Saved = True
End If
End Sub

pouzivam office 2010

inac:
Application.DisplayAlerts = False

zabrani ukazovanie hlasky

.... ale aj tak to nic nemeni na fakte ze sa to nezacykli u mna :)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje