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

Příspěvky uživatele

a aky riadok v vba zvyrazni??

no pokusim sa to popisat:
- pri otvoreni dokumentu stlacte alt + F11 a dostanete sa do VBA
- tam vyberte z menu Tools/references a pozrite sa ci pri vybratych referenciach nemate pred nazvom napisane MISSING .... ked ano tak potom ho dohladajte v zozname a zapnite ho .... kludne dajte aj novsiu verziu
- pri referencii ms xml 6.0 sa zmenil nazov MSXML na MSXML2 .... fakt netusim akeho debila toto mohlo napadnut ked robil novsiu verziu

..... priladam aj subor kde som to updatol:

lebo tam nemate zapnutu referenciu

Opičák: hups to ma nenapadlo :)

tak potom idealnejsie to bude takto:
aUpravit = CDate(StrOd(0) & "." & StrOd(1) & "." & aRok)

tu som este dorobil to opravovanie datumu ale ked bude 5.5 - 4.5.2014 .... tak k tomu priradi 2014 rok a nie 2013 ... to sa mi uz nechcelo dorabat :)

urobil som makro na sortovanie

ale nieje dokoncene!!!
treba tam dorobit:
Private Function aUpravit(ByVal aValue As Variant) As Variant
If aValue Like "*-*" Then
aUpravit = aValue
Else
aUpravit = aValue
End If
End Function

to znamena ked najde datum kde sa nachaza "-" tak ten datum treba upravit na nejaky startovny aky vam vyhovuje

... ale verim tomu ze tam bude viac bordelu tak som to ani neupravoval
... dalsia vec toto makro zoraduje podla prveho stlpca

chceto prilohu

co znamena entrovat?

kedze som este nerobil s rucnym scenerom tak netusim ako to vypada ..... podla mna to urobi nejaku hodnotu

a ja potrebujem vediet kde tu hodnotu zapise??

resp. chcelo by to nejaku pomocnu prilohu z ktorej by sa dalo urobit to makro

a co tak si makrom vytvorit 2 pomocne stlpce kde bude zaciatok a koniec

resp. kde bude len jeden datum tak budemat Od 13.5.2014 Do 13.5.2014

a kde budu dva datumy tak bude od 5.6.2014 Do 13.5.2014

a nakoniec len zoradite stlpec Od

.... toto riesenie by vam nestacilo?

slo by to napr. makrom:

ale napisal som ho len tak zbrucha takze netusim ci funguje :) je to na range 1000 riadkou (x) a 100 stlpcou (y)
For x = 1 To 1000
For y = 1 To 100
On Error Resume Next
If Cells(x, y).Hyperlinks.Item(1).Address Like "C:\OldAddress\*" Then Cells(x, y).Hyperlinks.Item(1).Address = Replace(Cells(x, y).Hyperlinks.Item(1).Address, "C:\OldAddress\", "C:\NewAddress\")
On Error GoTo 0
Next
Next


samozrejme treba tam nastavit vlasstne range a to prepisanim x = 1 to 1000 a y = 1 To 100

potom tam prepisat aku cestu ma hladat a za aku ju ma prepisat "C:\NewAddress\" a "C:\OLDAddress\"

pri prepisovani cesty "C:\OldAddress\*" .... tam bacha na hviezdicku ta musi byt nakonci

no prva vec co sa musi ujasnit co sa stane ked zoberete rucny scan a oscenujete polozku?

vytvori to nejaky subor na pocitaci alebo ako to funguje?

no podla toho prikladu teraz vobec nemam sajnu naco to presne potrebujete

da sa to cez CustomProperties:)

napr. pri Worksheet_Change(ByVal Target As Range) pridame tag ze "bola zmenena s uzivatelom"

a do programu pre dany range nastavime tag "ze to urobil program"

tu je to lepsie popisane:
http://msdn.microsoft.com/en-us/library/office/aa196425(v=office.11).aspx

mozno chce generovat ID do SQL databaze a chce aby sa neopakovali :))) raz som to tak riesil ale to som programoval v SQLku a nie v VBA

marjankaj: to vase riesenie je urcite rychlejsie .... no hold ma to nenapadlo

Pookie: prikladam to moje riesenie to pomalsie .... popripade si to naprogramujte ako to navrhoval Marjankaj

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje