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

Příspěvky uživatele

uloha5

No mne sa nepodarilo ani jedno dll naist ... ale asi preto lebo vo firme sme na nete dost obmedzovany

stiahol som si "tessnet2" DLL kniznicu ale ked ju chcem pripojit k referenciam tak to vypise:
"Cant add a reference to the specified file."

samozrejme ju nepripajam cez visual studio (na addins ho zatial nevyuzivam) ale cez MS Office

skusal som nejaku naist ale marne, asi v tomto som uplny noob :))

tak som urobil nejake jednoduche makro

funguje takto:
- spusta sa cez "test"
- nacita vsetky subory ktore sa nachadzaju v adresari "XLS"
- naplna pole d() a po procese zapise do aktualneho zositu
- makro je popisane ... takze sa da aj prerobit podla svojich predstav
- je tam aj viditelny progressbar

dajte potom vediet ci vyhovuje :))

pre vysvetlenie je to len viac krokov zapisane v jednom vzorci

Cells(Cells(Target.Row, 6).End(xlUp).Row, 8) = "x"
Cells(Cells(Target.Row, 6).End(xlDown).Row, 8) = "y"

musis sa nato poyerat najprv zvonku a potom to postupne rozbalovat

1. cells() = "x" // takze v nejakej bunke dopise "x"
2. cells: cells(tu sa zapisuje riadok, tu sa zapisuje stlpec)
3. target.row je zobraty udaj(object) z eventu kde si vyberem len cislo riadku kde sa kurzor nachadza
4. Cells(Target.Row, 6).End(xlDown).Row ... tento udaj konci row .. aj ked to vypada ze sa odkazuje na bunku bere z nej len udaj riadku
5. Cells(riadok, 8 je stlpec)

asi tak v skratke ... ja viem nerad sa rozpisujem

pre zaujimavost skus si nahrat makro a na nejakej bunke stlac: end + hore sipka

jj slo, len bacha aby si na tie odrazky nezabudol :)))

ano, je tam chyba sorry uz som ju opravil

ono to je odpocet od left margin preto nula :)) takze prepocitat si to potom z lava nieje problem :)

malo by to byt takto:
aLeft = ActiveDocument.PageSetup.LeftMargin + aShape.Range.Paragraphs.LeftIndent

tak som sa nato kukol :)

- v tisk som doplnil ze ked prebehne makro tak vycisti H stlpec
- potom tam je v sheet(1) doplneny event na change "zmenu"

pozri sa nato potom napis ci vyhovuje

hej .RBG = RBG(255,255,255)

ok tak nasiel som aj inu moznost :)))

skus:
Sub test()
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
wsh.SendKeys "{NUMLOCK}", True
Set wsh = Nothing
End Sub

musi fungovat ale skusim naist aj ine

skus toto:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = 0
For Each aCell In Selection
If aCell.Interior.Color = 255 Then x = x + 1
Next
Application.StatusBar = "Celkovo: " & Selection.Cells.Count & " Red: " & x
End Sub

1. stlacis alt+f11
2. kliknes "Project - VBA project"
3. tam najdes sheet "hárok" v ktorom mas to čudo :) a vlozis to tam

a takto keby si chcel len urcitu farbu:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = 0
For Each aCell In Selection
If aCell.Interior.Color = 255 Then x = x + 1
Next
MsgBox x
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse