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

Příspěvky uživatele

asi takto:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Selection.Cells.Count
End Sub

skus toto:
Public Const VK_NUMLOCK = &H90
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long

Sub Makro1()
NumStatus = GetKeyState(VK_NUMLOCK)
End Sub

Opičák: Ano, ABBYY je najlepsi program na OCR, dlhe roky som ho pouzival. Ale pre moje uceli potrebujem nieco co mozem zakomponovat do svojho addins-u a viem ze kazdy uzivatel bude mat componenty k tomu aby to fungovalo

All: preto som bral MODI .... co je sucast Sharepointu ale po novom zisteni moji uzivatelia nemaju ani sharepoint :))) takze musim preist na Onenote kde je tiez moznost OCR

... uz sa mi podarilo vytvorit v onenote textovu poznamku, ale neviem tam nahodit obrazok ... z ktoreho by som v poslednej faze vytiahol text

OneNote: programuje sa tam v XML strukture kde aj obrazok musi mat 64-bit format

keby nahodov niekto mal chut to vyriesit tak prikladam aj dokument kde to je popisane

hadam to s spolocnymi silami vyriesime :)))

tak uz som nato dosiel:

aShape.Range.Paragraphs.LeftIndent

Ahojte,

Uz dva dni mrznem na jednom bode nemozem zistit v *.doc dokumente poziciu z lava shape objectu.

v *.docx to ide takto:
aShapeLeft = Selection.ShapeRange.Left
test1 = ActiveDocument.PageSetup.LeftMargin + aShapeLeft


netusite ako to urobit v *.doc dokumente???

prilozil som aj prilohu

nevie niekto o nejaku sposobe? :)) ja viem ze jeden funkcny som tu napisal ale ja nemam moznost nainstalovat na pocitacoch sharepoint

- bez neho ta kniznica nefunguje

Hotovo

- historicky první název: som nenasiel ... treba to tam potom dopisat
- funguje to na principe XML ... staci si predstavit adresarovu strukturu a odtial zobere udaj

napr:
<Osoba>
<Udaje>
<Vek>30</Vek>
</Udaje>
</Osoba>

tj. v adresaru "\\Osoba\Udaje\Vek" sa rovna 30

preco pisu tento priklad keby nahodov by sa chcel niekto s tym hrat tak staci na stranke "wwwinfo.mfcr.cz" pozriet si "wiev source" a podla tej strukturi dopisat si do makra udaj co potrebujete zobrazit

... popripade nejasnosti dorobim .))

bude to na dlhsie lebo to old makro pracuje viac mwenej s textom ja to budu musiet prerobit cele aby to pracovalo s XML ... lebo v tej textovej podobe su spojene udaje ktore ty chces rozdelit ... a riesit to stringovo je dost odflaknuta robota:) zajtra to budes mat hotove

s registrom nemam az tak bohate skusenosti :)) mohol by si dat IČ takeho kde ma vsetky tieto udaje vypisane? ja to podla toho naIF-ujem

no uz som tam dohodil stav, adresa, Základní kapitál

a teraz tie "akcie" to sa odkial bere? resp. na tej stranke to ani nieje napisane

ok uz natom pracuju
- nieje to az tak zlozite ako to vypada
- Makro funguje na sposobe ze vycucne udaje zo stranky "ARESu" podla udaneho IČ
- Tie zapise do sheet-u "list2"
- potom len prepisuje udaje do "list1"

uz to tam dopisujem len potrebujem vediet z listu dva co je: Obchodní firma
a: Obchodní firma (historicky první název)
???

pridal si prilohu bez old makra ... ked ho tam hodis kuknem sa nato .. vypada to zaujimavo :P

ale je to dost neprehladne tak si tam este doplnte entrovac:

=IF(D3 > 0;$D$2 & ":" & D3 & CHAR(10);"")


a bunky nastavte na "Wrap text"

prikladam prilohu ale je to len na 2 stlpce

to musis postupne takto zapisat


=IF(D3 > 0;$D$2 & ":" & D3;"") & .....


kde IF (podmienka; pravdiva; nepravdiva)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje