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

Příspěvky uživatele

eLCHa: praveze uz to vie odomnknut aj bezny uzivatel. Staci napisat do google word unlock document a ma hned 5 navodou ako nato.

Robil som dotaznik pre asi 50 ludi kde asi 40 ludi to poslalo spat odomnknuteee :)) odvtedy nikdy viac word dotazniky :) ale spravit si v visual studiu nejaky userform

ano da sa zamknut dokument staci dat Review a tam Protect Workbook a tam si nastavit proti comu .... ale taketo dokumenty sa daju lahko odomknut :)

jednoducho

napr. takto:

no uz som to vyriesil stacilo ten click dat 3x a uz to funguje :))

Ahojte poradaci,

tak podlhom case si neviem s niecim poradit :)))

uz som predpripravil makro kde treba najprv zapnut Sub Auto_Open()

a potreboval by som ho dokoncit ale neviem si rady

ide o to ze ked kliknete na prvy Shape v poradi tak ho zneviditelni a chcem aby selectlo hned ten co je pod kurzorom :)) samozrejme nechcem to robit cez INDEX ale podla pozicii mysky

vedel by niekto vysvetlit preco to moje makro nefunguje??? kedze vsetko je spravne napisane

resp. toto nezaklikne dalsi shape:
Public Sub aSelect()
GetCursorPos aPosition
SetCursorPos aPosition.x, aPosition.y
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub


za hociaku radu vopred dakujem :))

tak uz som to nasiel :)

vola sa to: ContextMenuFrame

Ahojte,

Pre narocnejsich VBA-ckarov mam otazku :)

Po dlhy cas si zas neviem niecim rady. Resp. viem kde to je ale neviem to naist:). Potreboval by som pridat cuplik do contextmenu v powerpointe. A to do takeho ked na prazdny slide kliknete pravy cuplik tak sa zobrazi.

tu su vsetky contextmenu idMso ale zatial som to nenasiel:
http://youpresent.biz/idmso-control-list-powerpoint-2013-2010/

neviete nahodov ako sa to idMso vola????

<contextMenus>
<contextMenu idMso="ContextMenuSlideSorter">
<gallery id="galleryOne4" label="My Gallery">
<item id="item4" imageMso="HappyFace" />
</gallery>
</contextMenu>
</contextMenus>

klasicka podmienka if:
=IF(2>1;"Pravda";"Nepravda")

popravde necakal som ze to bude az taka jednoducha otazka :) ale myslim ze aj v mojom priklade je odpoved :)

do ThisWorkbook napiste toto a pri zmene hociakeho udaju v bunke sa vypise range tej bunky

Private Sub aMacro(ByVal aRange As String)
MsgBox aRange
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each aCell In Target
If aCell = "100" Then aMacro aCell.Address
Next
End Sub

no ani ja :) nestaci priklad? :)

kedze sa jedna o databazu tak by som to riesil cez ADODB je to najrychlejsia metoda na spracovavanie dat

tu je priklad:

toto sa tu uz riesilo da sa to urobit cez VBA

prilozim priklad:

to som netusil ze v ceskom to nejde lebo v Nemeckom a Slovenskom to ide.

alebo vytcorit si vlasnu funkciu a riesit to cez VBA tam uz ten prikaz urcite nebude premenovany do jazyku :)

podla mna netreba ani debugovat to a staci tam dat len anglicky nazov:
With Range(Range("G2"), Range("G2").End(xlDown))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=RIGHT(R2;2)=""km"""
With .FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
End With

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje